* ld-elfcomm/elfcomm.exp (dump_common1): Use $READELF, not plain

	readelf as found using default path.

diff --git a/ld/testsuite/ChangeLog b/ld/testsuite/ChangeLog
index 75716f6dc180527cae9f2451e0b93f2377cd6168..e54d285b4c44f7c3d471b12dfabce123273852dd 100644 (file)
--- a/ld/testsuite/ChangeLog
+++ b/ld/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2003-06-18  Hans-Peter Nilsson  <hp@axis.com>
+
+       * ld-elfcomm/elfcomm.exp (dump_common1): Use $READELF, not plain
+       readelf as found using default path.
+
 2003-06-18  Alan Modra  <amodra@bigpond.net.au>
 
        * lib/ld-lib.exp (default_ld_simple_link): Trim ld parms before

diff --git a/ld/testsuite/ld-elfcomm/elfcomm.exp b/ld/testsuite/ld-elfcomm/elfcomm.exp
index 80ede642aabfa398810667f35ad1d7d08d5773a4..e5bd29b62f5d3e1c76d586d6a0ba0fb0da3cfa21 100644 (file)
--- a/ld/testsuite/ld-elfcomm/elfcomm.exp
+++ b/ld/testsuite/ld-elfcomm/elfcomm.exp
@@ -41,9 +41,10 @@ if { [which $CC] == 0 } {
 
 proc dump_common1 { testname } {
     global exec_output
+    global READELF
 
-    send_log "readelf -s tmpdir/common1.o | grep foo\n"
-    catch "exec readelf -s tmpdir/common1.o | grep foo" exec_output
+    send_log "$READELF -s tmpdir/common1.o | grep foo\n"
+    catch "exec $READELF -s tmpdir/common1.o | grep foo" exec_output
     if { ![regexp "(\[         \]*)(\[0-9\]+):(\[      \]*)(\[0\]*)80(\[       \]+)4(\[        \]+)OBJECT(\[   \]+)GLOBAL(\[   \]+)DEFAULT(\[  \]+)COM(\[      \]+)_?foo2" $exec_output]
         || ![regexp "(\[       \]*)(\[0-9\]+):(\[      \]*)(\[0-9\]+)(\[       \]+)21(\[       \]+)OBJECT(\[   \]+)GLOBAL(\[   \]+)DEFAULT(\[  \]+)(\[0-9\]+)(\[       \]+)_?foo1" $exec_output] } {
        send_log "$exec_output\n"