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

diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index bd9c577bd617f26d03e212e1e6080feb742ee386..3eb2d439c0c9eb3496a639a0fb198bbe4de0cbef 100644 (file)
--- 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 1ea3512892208aa9cfb4e0b89d7f9e8c00320c61..e8942af394fa3c8420f0b16082a4c5a4d039c512 100644 (file)
--- 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