diff options
| author | mark <mark@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-01-31 18:09:04 +0000 |
|---|---|---|
| committer | mark <mark@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-01-31 18:09:04 +0000 |
| commit | 0beaec08e0f9e76ae7b5c0186b5b73951069daaf (patch) | |
| tree | cca15b012d9e90ba48b7ef9cc1c9a2f311814018 /libjava/testsuite/lib/libjava.exp | |
| parent | d5daf43be3c98e6ad55b32e1ebc292a2261a9d80 (diff) | |
| download | ppe42-gcc-0beaec08e0f9e76ae7b5c0186b5b73951069daaf.tar.gz ppe42-gcc-0beaec08e0f9e76ae7b5c0186b5b73951069daaf.zip | |
* lib/libjava.exp (libjava_prune_warnings): Remove all unreachable
bytecode warnings.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@62190 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libjava/testsuite/lib/libjava.exp')
| -rw-r--r-- | libjava/testsuite/lib/libjava.exp | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/libjava/testsuite/lib/libjava.exp b/libjava/testsuite/lib/libjava.exp index 9c8e664e67b..05cf08fe8e3 100644 --- a/libjava/testsuite/lib/libjava.exp +++ b/libjava/testsuite/lib/libjava.exp @@ -18,9 +18,15 @@ proc libjava_prune_warnings {text} { set len [llength $tlist] for {set i [expr {$len - 1}]} {$i >= 2} {incr i -1} { if {[string match "*unreachable bytecode*" [lindex $tlist $i]]} { - # Delete this line and the previous two lines. - set tlist [lreplace $tlist [expr {$i - 2}] $i] - incr i -2 + # Delete this line, all other unreachable warnings and the previous + # two lines containing the method and class. + set j [expr {$i - 1}] + while {[string match "*unreachable bytecode*" [lindex $tlist $j]]} { + incr j -1 + } + incr j -1 + set tlist [lreplace $tlist $j $i] + set i $j } } return [join $tlist \n] |
