diff options
| author | Tom Tromey <tromey@redhat.com> | 2002-12-13 05:00:15 +0000 |
|---|---|---|
| committer | Tom Tromey <tromey@gcc.gnu.org> | 2002-12-13 05:00:15 +0000 |
| commit | 19eaa5a38b8e3c6e2974d5a52ad2e729d9665a12 (patch) | |
| tree | 73f2abae246af7f6615b11cc01bfe25e9809e4e8 /libjava/testsuite/libjava.mauve | |
| parent | dd05b1b461a3ba163cac1e3ce7801ce042ea2964 (diff) | |
| download | gcc-19eaa5a38b8e3c6e2974d5a52ad2e729d9665a12.zip gcc-19eaa5a38b8e3c6e2974d5a52ad2e729d9665a12.tar.gz gcc-19eaa5a38b8e3c6e2974d5a52ad2e729d9665a12.tar.bz2 | |
loader.exp (gcj_loader_test_one): Use libjava_prune_warnings.
* libjava.loader/loader.exp (gcj_loader_test_one): Use
libjava_prune_warnings.
(gcj_loader_run): Likewise.
* libjava.mauve/mauve.exp (test_mauve): Use
libjava_prune_warnings.
(test_mauve_sim): Likewise.
* libjava.jni/jni.exp (gcj_jni_compile_c_to_so): Use
libjava_prune_warnings.
(gcj_jni_build_header): Likewise.
* lib/libjava.exp (libjava_prune_warnings): New proc.
(gcj_link): Use it.
(test_libjava_from_source): Likewise.
(test_libjava_from_javac): Likewise.
From-SVN: r60089
Diffstat (limited to 'libjava/testsuite/libjava.mauve')
| -rw-r--r-- | libjava/testsuite/libjava.mauve/mauve.exp | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/libjava/testsuite/libjava.mauve/mauve.exp b/libjava/testsuite/libjava.mauve/mauve.exp index a9a1c98..1ca2884 100644 --- a/libjava/testsuite/libjava.mauve/mauve.exp +++ b/libjava/testsuite/libjava.mauve/mauve.exp @@ -154,7 +154,7 @@ proc test_mauve {} { foreach base {DejaGNUTestHarness gnu/testlet/SimpleTestHarness gnu/testlet/TestHarness gnu/testlet/Testlet gnu/testlet/ResourceNotFoundException gnu/testlet/config} { set file $base.class set obj $base.o - set x [prune_warnings \ + set x [libjava_prune_warnings \ [target_compile [pwd]/$file $obj object $compile_args]] if {$x != ""} then { fail "Compile $obj" @@ -180,7 +180,7 @@ proc test_mauve {} { if {! [file exists $obj]} then { verbose "compiling $obj for test of $class" set srcfile [file rootname $obj].class - set x [prune_warnings \ + set x [libjava_prune_warnings \ [target_compile [pwd]/$srcfile $obj object $compile_args]] if {$x != ""} then { fail "Compile $obj for $class" @@ -195,8 +195,9 @@ proc test_mauve {} { continue } - set x [prune_warnings [target_compile [concat $uses($file) $objlist] \ - $Executable executable $link_args]] + set x [libjava_prune_warnings \ + [target_compile [concat $uses($file) $objlist] \ + $Executable executable $link_args]] if {$x != ""} then { set proc_ok 0 fail "Link for $class" @@ -292,7 +293,7 @@ proc test_mauve_sim {} { gnu/testlet/config} { set file $base.class set obj $base.o - set x [prune_warnings \ + set x [libjava_prune_warnings \ [target_compile [pwd]/$file $obj object $compile_args]] if {$x != ""} then { fail "Compile $obj" @@ -321,7 +322,7 @@ proc test_mauve_sim {} { if {! [file exists $obj]} then { verbose "compiling $obj for test of $class" set srcfile [file rootname $obj].class - set x [prune_warnings \ + set x [libjava_prune_warnings \ [target_compile [pwd]/$srcfile $obj object $compile_args]] if {$x != ""} then { fail "Compile $obj for $class" @@ -357,7 +358,7 @@ proc test_mauve_sim {} { return 0 } - set x [prune_warnings \ + set x [libjava_prune_warnings \ [target_compile gnu/testlet/DejaGNUTestHarness.class \ gnu/testlet/DejaGNUTestHarness.o object $compile_args]] if {$x != ""} then { @@ -366,8 +367,9 @@ proc test_mauve_sim {} { continue } - set x [prune_warnings [target_compile [concat $uses($file) $objlist] \ - $Executable executable $link_args]] + set x [libjava_prune_warnings \ + [target_compile [concat $uses($file) $objlist] \ + $Executable executable $link_args]] if {$x != ""} then { set proc_ok 0 fail "Link for $class" |