From: Bob Manson Date: Sat, 8 Feb 1997 01:03:37 +0000 (+0000) Subject: Changes to replace references to "prune_system_crud" with X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=dfe637973149e8ae56aaa5e57f780ec1f6848b21;p=binutils-gdb.git Changes to replace references to "prune_system_crud" with "prune_warnings". --- diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog index 9c064871e26..06a51d117a9 100644 --- a/gas/testsuite/ChangeLog +++ b/gas/testsuite/ChangeLog @@ -1,3 +1,8 @@ +Fri Feb 7 16:42:53 1997 Bob Manson + + * gasp/gasp.exp: Use prune_warnings instead of prune_system_crud. + * lib/gas-defs.exp: Ditto. + Mon Feb 3 15:46:05 1997 Ian Lance Taylor * gas/arm/inst.d, gas/arm/arm7t.d: Pass --prefix-addresses to diff --git a/gas/testsuite/gasp/gasp.exp b/gas/testsuite/gasp/gasp.exp index 5987352556d..2a72a6d3591 100644 --- a/gas/testsuite/gasp/gasp.exp +++ b/gas/testsuite/gasp/gasp.exp @@ -8,7 +8,7 @@ proc gasp_test { filename testname opt } { send_log "$srcdir/lib/run $GASP -I$srcdir/gasp -s $opt $filename.asm -o gasp.out\n" catch "exec $srcdir/lib/run $GASP -I$srcdir/gasp -s $opt $filename.asm -o gasp.out" errs catch "exec diff gasp.out $filename.out" diffs - set diffs [prune_system_crud $host_triplet $diffs] + set diffs [prune_warnings $diffs] if ![string match "" $diffs] { send_log "$diffs\n" verbose $diffs diff --git a/ld/testsuite/lib/ld.exp b/ld/testsuite/lib/ld.exp index 6fd9829e8ad..cb836603f6b 100644 --- a/ld/testsuite/lib/ld.exp +++ b/ld/testsuite/lib/ld.exp @@ -11,7 +11,7 @@ proc default_ld_version { ld } { } catch "exec $ld --version" tmp - set tmp [prune_system_crud $host_triplet $tmp] + set tmp [prune_warnings $tmp] regexp "\[^\n\]* (cygnus-|)(\[-0-9.a-zA-Z-\]+)\[\r\n\].*" $tmp version cyg number if [info exists number] then { clone_output "$ld $number\n" @@ -34,7 +34,7 @@ proc default_ld_relocate { ld target objects } { verbose -log "$ld $HOSTING_EMU -o $target -r $objects" catch "exec $ld $HOSTING_EMU -o $target -r $objects" exec_output - set exec_output [prune_system_crud $host_triplet $exec_output] + set exec_output [prune_warnings $exec_output] if [string match "" $exec_output] then { return 1 } else { @@ -65,7 +65,7 @@ proc default_ld_link { ld target objects } { verbose -log "$ld $HOSTING_EMU -o $target $objs $libs" catch "exec $ld $HOSTING_EMU -o $target $objs $libs" exec_output - set exec_output [prune_system_crud $host_triplet $exec_output] + set exec_output [prune_warnings $exec_output] if [string match "" $exec_output] then { return 1 } else { @@ -89,7 +89,7 @@ proc default_ld_simple_link { ld target objects } { verbose -log "$ld -o $target $objects" catch "exec $ld -o $target $objects" exec_output - set exec_output [prune_system_crud $host_triplet $exec_output] + set exec_output [prune_warnings $exec_output] # We don't care if we get a warning about a non-existent start # symbol, since the default linker script might use ENTRY. @@ -127,7 +127,7 @@ proc default_ld_compile { cc source object } { verbose -log "$cc -I$srcdir/$subdir -c $CFLAGS $source -o $object" catch "exec $cc -I$srcdir/$subdir -c $CFLAGS $source -o $object" exec_output - set exec_output [prune_system_crud $host_triplet $exec_output] + set exec_output [prune_warnings $exec_output] if [string match "" $exec_output] then { if {![file exists $object]} then { regexp ".*/(\[^/\]*)$" $source all dobj @@ -136,7 +136,7 @@ proc default_ld_compile { cc source object } { if {[file exists $realobj]} then { verbose -log "mv $realobj $object" catch "exec mv $realobj $object" exec_output - set exec_output [prune_system_crud $host_triplet $exec_output] + set exec_output [prune_warnings $exec_output] if {![string match "" $exec_output]} then { verbose -log "$exec_output" perror "could not move $realobj to $object" @@ -173,7 +173,7 @@ proc default_ld_assemble { as source object } { verbose -log "$as $ASFLAGS -o $object $source" catch "exec $as $ASFLAGS -o $object $source" exec_output - set exec_output [prune_system_crud $host_triplet $exec_output] + set exec_output [prune_warnings $exec_output] if [string match "" $exec_output] then { return 1 } else { @@ -202,7 +202,7 @@ proc default_ld_nm { nm object } { verbose -log "$nm $NMFLAGS $object >tmpdir/nm.out" catch "exec $nm $NMFLAGS $object >tmpdir/nm.out" exec_output - set exec_output [prune_system_crud $host_triplet $exec_output] + set exec_output [prune_warnings $exec_output] if [string match "" $exec_output] then { set file [open tmpdir/nm.out r] while { [gets $file line] != -1 } { @@ -295,19 +295,16 @@ proc simple_diff { file_1 file_2 } { # This definition is taken from an unreleased version of DejaGnu. Once # that version gets released, and has been out in the world for a few # months at least, it may be safe to delete this copy. -if ![string length [info proc prune_system_crud]] { +if ![string length [info proc prune_warnings]] { # - # prune_system_crud -- delete various system verbosities from TEXT on SYSTEM + # prune_warnings -- delete various system verbosities from TEXT # # An example is: # ld.so: warning: /usr/lib/libc.so.1.8.1 has older revision than expected 9 # - # SYSTEM is typical $target_triplet or $host_triplet. - # - # This is useful when trying to do pattern matches on program output. # Sites with particular verbose os's may wish to override this in site.exp. # - proc prune_system_crud { system text } { + proc prune_warnings { text } { # This is from sun4's. Do it for all machines for now. # The "\\1" is to try to preserve a "\n" but only if necessary. regsub -all "(^|\n)(ld.so: warning:\[^\n\]*\n?)+" $text "\\1" text