diff options
author | Bill Cox <bill@cygnus> | 1994-05-17 22:40:29 +0000 |
---|---|---|
committer | Bill Cox <bill@cygnus> | 1994-05-17 22:40:29 +0000 |
commit | 2a12627b217f838c04ffe05855390d17ef583803 (patch) | |
tree | 158a419a1bfd929ba7d85d7103527ca5e167435f /ld/testsuite/lib | |
parent | 8f07e53768abf7f08527ae87079cbd6db95b14dd (diff) | |
download | gdb-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/lib')
-rw-r--r-- | ld/testsuite/lib/ld.exp | 8 |
1 files changed, 4 insertions, 4 deletions
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 } |