* lib/ld.exp: Use [which $ld] rather than [file exists $ld] to see

	if the linker exists.

diff --git a/ld/testsuite/ChangeLog b/ld/testsuite/ChangeLog
index feda8a0dc1a46c2f3ae4265978c967444dfd5bb5..ce101b98eaf75494d4acb48ce08d94ccd8c6515c 100644 (file)
--- a/ld/testsuite/ChangeLog
+++ b/ld/testsuite/ChangeLog
@@ -1,3 +1,19 @@
+Wed Jan  4 18:56:27 1995  Ian Lance Taylor  <ian@sanguine.cygnus.com>
+
+       * lib/ld.exp: Use [which $ld] rather than [file exists $ld] to see
+       if the linker exists.
+
+Wed Dec 14 16:39:03 1994  Ken Raeburn  <raeburn@cujo.cygnus.com>
+
+       * lib/ld.exp (prune_system_crud): Define if not already defined,
+       in case the user isn't using the newest DejaGnu version that we
+       haven't released to the net yet.
+
+Fri Dec  2 14:17:02 1994  Ian Lance Taylor  <ian@rtl.cygnus.com>
+
+       * config/default.exp: Define objdump if it is not defined.
+       * ld-empic/*: New tests to test -membedded-pic code.
+
 Mon Nov 28 11:24:36 1994  Ian Lance Taylor  <ian@sanguine.cygnus.com>
 
        * ld-bootstrap/bootstrap.exp: Pass cmp output through

diff --git a/ld/testsuite/lib/ld.exp b/ld/testsuite/lib/ld.exp
index ee8c047841c66ff6b8b1def5e34176b392e018f3..1a63b68b98620663adb3c77fa0cd9e786910cac3 100644 (file)
--- a/ld/testsuite/lib/ld.exp
+++ b/ld/testsuite/lib/ld.exp
@@ -3,7 +3,7 @@
 #      extract and print the version number of ld
 #
 proc default_ld_version { ld } {
-    if { [file exists $ld] == 0 } then {
+    if { [which $ld] == 0 } then {
        perror "$ld does not exist"
        exit 1
     }
@@ -24,7 +24,7 @@ proc default_ld_relocate { ld target objects } {
     
     global HOSTING_EMU
     
-    if { [file exists $ld] == 0 } then {
+    if { [which $ld] == 0 } then {
        perror "$ld does not exist"
        return 0
     }
@@ -56,7 +56,7 @@ proc default_ld_link { ld target objects } {
     set objs "$HOSTING_CRT0 $objects"
     set libs "$HOSTING_LIBS"
     
-    if { [file exists $ld] == 0 } then {
+    if { [which $ld] == 0 } then {
        perror "$ld does not exist"
        return 0
     }
@@ -80,7 +80,7 @@ proc default_ld_link { ld target objects } {
 #
 proc default_ld_simple_link { ld target objects } {
     
-    if { [file exists $ld] == 0 } then {
+    if { [which $ld] == 0 } then {
        perror "$ld does not exist"
        return 0
     }