From 08fcde7c431743cabdf6d50b9df6107a26372bee Mon Sep 17 00:00:00 2001 From: Mark Wielaard Date: Fri, 31 Jan 2003 18:09:04 +0000 Subject: [PATCH] libjava.exp (libjava_prune_warnings): Remove all unreachable bytecode warnings. * lib/libjava.exp (libjava_prune_warnings): Remove all unreachable bytecode warnings. From-SVN: r62190 --- libjava/testsuite/ChangeLog | 5 +++++ libjava/testsuite/lib/libjava.exp | 12 +++++++++--- 2 files changed, 14 insertions(+), 3 deletions(-) diff --git a/libjava/testsuite/ChangeLog b/libjava/testsuite/ChangeLog index 23293eaf064..c1edda603e5 100644 --- a/libjava/testsuite/ChangeLog +++ b/libjava/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2003-01-31 Mark Wielaard + + * lib/libjava.exp (libjava_prune_warnings): Remove all unreachable + bytecode warnings. + 2003-01-28 Tom Tromey * libjava.loader/TestEarlyGC.java: Added comment explaining 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] -- 2.30.2