aboutsummaryrefslogtreecommitdiff
path: root/ld/testsuite
diff options
context:
space:
mode:
authorBill Cox <bill@cygnus>1994-05-17 22:40:29 +0000
committerBill Cox <bill@cygnus>1994-05-17 22:40:29 +0000
commit2a12627b217f838c04ffe05855390d17ef583803 (patch)
tree158a419a1bfd929ba7d85d7103527ca5e167435f /ld/testsuite
parent8f07e53768abf7f08527ae87079cbd6db95b14dd (diff)
downloadgdb-2a12627b217f838c04ffe05855390d17ef583803.zip
gdb-2a12627b217f838c04ffe05855390d17ef583803.tar.gz
gdb-2a12627b217f838c04ffe05855390d17ef583803.tar.bz2
* ld.bootstrap/bootstrap.exp, lib/ld.exp: Replace error proc
calls with perror calls.
Diffstat (limited to 'ld/testsuite')
-rw-r--r--ld/testsuite/ChangeLog5
-rw-r--r--ld/testsuite/ld.bootstrap/bootstrap.exp2
-rw-r--r--ld/testsuite/lib/ld.exp8
3 files changed, 10 insertions, 5 deletions
diff --git a/ld/testsuite/ChangeLog b/ld/testsuite/ChangeLog
index 031d987..8317b2a 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 11f52a8..66337bf 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 659dfe2..aeb8454 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
}