mirror of
git://gcc.gnu.org/git/gcc.git
synced 2024-12-26 04:59:02 +08:00
9cb0bef59f
* libjava.mauve/mauve.exp (test_mauve): Call `prune_warnings'. (test_mauve_sim): Likewise. (test_mauve): Redirect stderr in system call. (test_mauve_sim): Likewise. * lib/libjava.exp (test_libjava_from_source): Call `prune_warnings'. (test_libjava_from_javac): Likewise. (bytecompile_file): Redirect stderr in system call. * lib/libjava.exp (libjava_find_program): New proc. (find_jvscan): Use it. (find_gcjh): New proc. * libjava.compile/compile.exp: Use "", not $options. From-SVN: r33959
21 lines
450 B
Plaintext
21 lines
450 B
Plaintext
global srcdir subdir
|
|
|
|
catch "glob -nocomplain ${srcdir}/${subdir}/*.java" srcfiles
|
|
verbose "srcfiles are $srcfiles"
|
|
|
|
set prefix ""
|
|
foreach x $srcfiles {
|
|
set args [libjava_read_xfail [file rootname $x].xfail]
|
|
if {[file exists [file rootname $x].no-link]} {
|
|
lappend args no-link
|
|
}
|
|
lappend args no-exec
|
|
|
|
test_libjava "" "$x" "" "" "" $args
|
|
test_libjava "" "$x" "-O" "" "" $args
|
|
}
|
|
|
|
# Local Variables:
|
|
# tcl-indent-level:4
|
|
# End:
|