Toolchain/binutils-gdb
1
0
Fork 0
forked from Imagelibrary/binutils-gdb
Code Pull Requests Activity

Remove fall-back prune_warnings

Browse Source 
No one should be using versions of dejagnu without prune_warnings,
which was available in 1996 (dejagnu-1.3).

binutils/
	* testsuite/lib/binutils-common.exp: Remove fallback prune_warnings.
gas/
	* testsuite/lib/gas-defs.exp: Remove fallback prune_warnings.
This commit is contained in:
Alan Modra
2023-08-14 11:40:52 +09:30
parent 33efa77ecf
commit 9381cdb1fb
2 changed files with 1 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
binutils/testsuite/lib/binutils-common.exp
View File

@@ -672,28 +672,7 @@ proc prune_warnings_extra { text } {
return $text
}
# 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_warnings]] {
#
# 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
#
# Sites with particular verbose os's may wish to override this in site.exp.
#
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
# It might be tempting to get carried away and delete blank lines, etc.
# Just delete *exactly* what we're ask to, and that's it.
set text [prune_warnings_extra $text]
return $text
}
} elseif { [info procs saved-prune_warnings] == [list] } {
if { [info procs saved-prune_warnings] == [list] } {
rename prune_warnings saved-prune_warnings
proc prune_warnings { text } {
set text [saved-prune_warnings $text]