darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2025-02-25 03:54:33 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

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

Browse Source 
readelf as found using default path.
This commit is contained in:
Hans-Peter Nilsson 2003-06-18 03:38:05 +00:00
parent 9f2b53d784
commit a42ec05b09
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ld/testsuite/ChangeLog
View File

@ -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

5
ld/testsuite/ld-elfcomm/elfcomm.exp
View File

@ -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"