From 087188e0df58b88eddca6b3ae177b9ddb3c4e629 Mon Sep 17 00:00:00 2001
From: Bill Cox <bill@cygnus>
Date: Tue, 17 May 1994 21:06:39 +0000
Subject: 	* config/default.exp, config/unix.exp: Replace error 	  proc
 calls with perror.

---
 binutils/testsuite/ChangeLog          |  5 +++++
 binutils/testsuite/config/default.exp | 10 +++++-----
 binutils/testsuite/config/unix.exp    |  4 ++--
 3 files changed, 12 insertions(+), 7 deletions(-)

(limited to 'binutils/testsuite')

diff --git a/binutils/testsuite/ChangeLog b/binutils/testsuite/ChangeLog
index e050e43..05a34c7 100644
--- 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
--- 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
--- 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." }
 }
 
 
-- 
cgit v1.1