From 2a12627b217f838c04ffe05855390d17ef583803 Mon Sep 17 00:00:00 2001 From: Bill Cox Date: Tue, 17 May 1994 22:40:29 +0000 Subject: * ld.bootstrap/bootstrap.exp, lib/ld.exp: Replace error proc calls with perror calls. --- ld/testsuite/ChangeLog | 5 +++++ ld/testsuite/ld.bootstrap/bootstrap.exp | 2 +- ld/testsuite/lib/ld.exp | 8 ++++---- 3 files changed, 10 insertions(+), 5 deletions(-) (limited to 'ld/testsuite') 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 } -- cgit v1.1