libjava.exp (libjava_prune_warnings): Remove all unreachable bytecode warnings.
* lib/libjava.exp (libjava_prune_warnings): Remove all unreachable bytecode warnings. From-SVN: r62190
This commit is contained in:
parent
60c7f4ef5e
commit
08fcde7c43
2 changed files with 14 additions and 3 deletions
|
@ -1,3 +1,8 @@
|
|||
2003-01-31 Mark Wielaard <mark@klomp.org>
|
||||
|
||||
* lib/libjava.exp (libjava_prune_warnings): Remove all unreachable
|
||||
bytecode warnings.
|
||||
|
||||
2003-01-28 Tom Tromey <tromey@redhat.com>
|
||||
|
||||
* libjava.loader/TestEarlyGC.java: Added comment explaining
|
||||
|
|
|
@ -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]
|
||||
|
|
Loading…
Add table
Reference in a new issue