* config/default.exp, config/unix.exp: Replace error

	  proc calls with perror.

diff --git a/binutils/testsuite/ChangeLog b/binutils/testsuite/ChangeLog
index e050e43..05a34c7 100644 (file)
--- a/binutils/testsuite/ChangeLog
+++ b/binutils/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+Tue May 17 14:04:05 1994  Bill Cox  (bill@rtl.cygnus.com)
+
+       * config/default.exp, config/unix.exp: Replace error
+         proc calls with perror.
+
 Tue May 10 11:20:54 1994  Stan Shebs  (shebs@andros.cygnus.com)
 
        * configure.in (sparclite): Match on sparclite*-*-*.

diff --git a/binutils/testsuite/config/default.exp b/binutils/testsuite/config/default.exp
index 31fe7e3..4f4d7b3 100644 (file)
--- a/binutils/testsuite/config/default.exp
+++ b/binutils/testsuite/config/default.exp
@@ -23,7 +23,7 @@ load_lib util-defs.exp
 
 global NM
 if ![info exists NM] then {
-    set NM [transform nm]
+    set NM [findfile $base_dir/../nm]
 }
 global NMFLAGS
 if ![info exists NMFLAGS] then {
@@ -31,7 +31,7 @@ if ![info exists NMFLAGS] then {
 }
 global SIZE
 if ![info exists SIZE] then {
-    set SIZE [transform size]
+    set SIZE [findfile $base_dir/../size]
 }
 global SIZEFLAGS
 if ![info exists SIZEFLAGS] then {
@@ -39,7 +39,7 @@ if ![info exists SIZEFLAGS] then {
 }
 global OBJDUMP
 if ![info exists OBJDUMP] then {
-    set OBJDUMP [transform objdump]
+    set OBJDUMP [findfile $base_dir/../objdump]
 }
 global OBJDUMPFLAGS
 if ![info exists OBJDUMPFLAGS] then {
@@ -51,8 +51,8 @@ if ![info exists OBJDUMPFLAGS] then {
 # within the tests themselves
 #
 expect_before {
-    buffer_full                   { error "internal buffer is full." }
-    "can't open '*'" { error "Can't open test file." }
+    buffer_full                   { perror "internal buffer is full." }
+    "can't open '*'" { perror "Can't open test file." }
 }
 
 

diff --git a/binutils/testsuite/config/unix.exp b/binutils/testsuite/config/unix.exp
index b5aa505..10da270 100644 (file)
--- a/binutils/testsuite/config/unix.exp
+++ b/binutils/testsuite/config/unix.exp
@@ -51,8 +51,8 @@ if ![info exists OBJDUMPFLAGS] then {
 # within the tests themselves
 #
 expect_before {
-    buffer_full                   { error "internal buffer is full." }
-    "can't open '*'" { error "Can't open test file." }
+    buffer_full                   { perror "internal buffer is full." }
+    "can't open '*'" { perror "Can't open test file." }
 }