mirror of
https://gcc.gnu.org/git/gcc.git
synced 2024-12-05 01:34:12 +08:00
mauve.exp (mauve_compute_uses): Let user select specific tests to run.
* libjava.mauve/mauve.exp (mauve_compute_uses): Let user select specific tests to run. From-SVN: r31183
This commit is contained in:
parent
1a75bc3340
commit
f540ec2448
@ -1,3 +1,8 @@
|
||||
1999-12-31 Tom Tromey <tromey@cygnus.com>
|
||||
|
||||
* libjava.mauve/mauve.exp (mauve_compute_uses): Let user select
|
||||
specific tests to run.
|
||||
|
||||
1999-10-19 Bryce McKinlay <bryce@albatross.co.nz>
|
||||
|
||||
* libjava.compile/invokeinterface: New directory.
|
||||
|
@ -10,7 +10,7 @@
|
||||
# maps source file names onto list of objects required for link.
|
||||
proc mauve_compute_uses {aName} {
|
||||
upvar $aName uses
|
||||
global env
|
||||
global env runtests
|
||||
|
||||
set fd [open classes r]
|
||||
set line [read $fd]
|
||||
@ -22,6 +22,11 @@ proc mauve_compute_uses {aName} {
|
||||
}
|
||||
set item [join [split $item .] /].java
|
||||
|
||||
# User might have specified "mauve.exp=something.java".
|
||||
if {! [runtest_file_p $runtests $item]} {
|
||||
continue
|
||||
}
|
||||
|
||||
# Look for Uses line in source file.
|
||||
set fd [open $env(MAUVEDIR)/$item r]
|
||||
set ufiles [list $item]
|
||||
|
Loading…
Reference in New Issue
Block a user