* lib/gas-defs.exp: Replace error proc calls with perror calls.

2 files changed, 10 insertions, 6 deletions

diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index bd9c577..3eb2d43 100644
--- a/gas/testsuite/ChangeLog
+++ b/gas/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+Tue May 17 14:53:08 1994  Bill Cox  (bill@rtl.cygnus.com)
+
+	* lib/gas-defs.exp: Replace error proc calls with perror calls.
+
 Mon May 16 13:19:16 1994  Jeff Law  (law@snake.cs.utah.edu)
 
 	* gas/hppa/reloc/reloc.exp: Tweak expected output to match new
diff --git a/gas/testsuite/lib/gas-defs.exp b/gas/testsuite/lib/gas-defs.exp
index 1ea3512..e8942af 100644
--- a/gas/testsuite/lib/gas-defs.exp
+++ b/gas/testsuite/lib/gas-defs.exp
@@ -59,7 +59,7 @@ proc gas_start { prog as_opts } {
 	spawn -noecho -nottyinit $srcdir/lib/run $AS $ASFLAGS $as_opts $srcdir/$subdir/$prog
     } foo
     if ![regexp {^[0-9]+} $foo] then {
-	error "Can't run $subdir/$prog: $foo"
+ perror "Can't run $subdir/$prog: $foo"
     }
 }
 
@@ -189,7 +189,7 @@ proc objdump_start_no_subdir { prog opts } {
 	spawn -noecho -nottyinit $srcdir/lib/run $OBJDUMP $opts $prog
     } foo
     if ![regexp {^[0-9]+} $foo] then {
-	error "Can't run $prog: $foo"
+ perror "Can't run $prog: $foo"
     }
 }
 
@@ -200,10 +200,10 @@ proc objdump_finish { } {
 }
 
 expect_after {
-    timeout			{ error "timeout" }
-    "virtual memory exhausted"	{ error "virtual memory exhausted" }
-    buffer_full			{ error "buffer full" }
-    eof				{ error "eof" }
+    timeout			{ perror "timeout" }
+    "virtual memory exhausted"	{ perror "virtual memory exhausted" }
+    buffer_full			{ perror "buffer full" }
+    eof				{ perror "eof" }
 }
 
 # regexp_diff, based on simple_diff taken from ld test suite