From 858665b79900c1ec22ec4e897b251c3b05e98510 Mon Sep 17 00:00:00 2001
From: Bill Cox <bill@cygnus>
Date: Tue, 17 May 1994 21:54:41 +0000
Subject: [PATCH] 	* lib/gas-defs.exp: Replace error proc calls with
 perror calls.

---
 gas/testsuite/ChangeLog        |  4 ++++
 gas/testsuite/lib/gas-defs.exp | 12 ++++++------
 2 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index bd9c577bd61..3eb2d439c0c 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 1ea35128922..e8942af394f 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
-- 
2.30.2