From: Bill Cox <bill@cygnus>
Date: Tue, 17 May 1994 22:40:29 +0000 (+0000)
Subject: 	* ld.bootstrap/bootstrap.exp, lib/ld.exp: Replace error proc
X-Git-Url: http://drtracing.org/?a=commitdiff_plain;h=2a12627b217f838c04ffe05855390d17ef583803;p=deliverable%2Fbinutils-gdb.git

	* ld.bootstrap/bootstrap.exp, lib/ld.exp: Replace error proc
	  calls with perror calls.
---

diff --git a/ld/testsuite/ChangeLog b/ld/testsuite/ChangeLog
index 031d98735a..8317b2ac39 100644
--- a/ld/testsuite/ChangeLog
+++ b/ld/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+Tue May 17 15:06:49 1994  Bill Cox  (bill@rtl.cygnus.com)
+
+	* ld.bootstrap/bootstrap.exp, lib/ld.exp: Replace error proc
+	  calls with perror calls.
+
 Wed May 11 16:47:46 1994  Ken Raeburn  (raeburn@rtl.cygnus.com)
 
 	* ld.cdtest/cdtest-bar.cc: Renamed from cdtest-func.cc.
diff --git a/ld/testsuite/ld.bootstrap/bootstrap.exp b/ld/testsuite/ld.bootstrap/bootstrap.exp
index 11f52a8df6..66337bf48c 100644
--- a/ld/testsuite/ld.bootstrap/bootstrap.exp
+++ b/ld/testsuite/ld.bootstrap/bootstrap.exp
@@ -84,7 +84,7 @@ for { set stage 0 } { $stage < 9 } { incr stage } {
 	    fail "$tmptarget aborted" 
 	}
 	"-1" { 
-	    error "Couldn't load $tmptarget." 
+	    perror "Couldn't load $tmptarget." 
 	}
     }
 
diff --git a/ld/testsuite/lib/ld.exp b/ld/testsuite/lib/ld.exp
index 659dfe299c..aeb8454943 100644
--- a/ld/testsuite/lib/ld.exp
+++ b/ld/testsuite/lib/ld.exp
@@ -4,7 +4,7 @@
 #
 proc default_ld_version { ld } {
     if { [file exists $ld] == 0 } then {
-	error "$ld does not exist"
+ perror "$ld does not exist"
 	exit 1
     }
     
@@ -25,7 +25,7 @@ proc default_ld_relocate { ld target objects } {
     global HOSTING_EMU
     
     if { [file exists $ld] == 0 } then {
-	error "$ld does not exist"
+ perror "$ld does not exist"
 	exit 1
     }
     
@@ -56,7 +56,7 @@ proc default_ld_link { ld target objects } {
     set libs "$BFDLIB $LIBIBERTY $HOSTING_LIBS"
     
     if { [file exists $ld] == 0 } then {
-	error "$ld does not exist"
+ perror "$ld does not exist"
 	exit 1
     }
     
@@ -80,7 +80,7 @@ proc default_ld_compile { cc source object } {
     global subdir
     
     if {[which $cc] == 0} then {
-	error "$cc does not exist"
+ perror "$cc does not exist"
 	exit 1
     }