jar.exp (gcj_jar_interpret): Updated.

* testsuite/libjava.jar/jar.exp (gcj_jar_interpret): Updated.
	* testsuite/libjava.verify/verify.exp (gcj_verify_run): Updated.
	* testsuite/libjava.jni/jni.exp (gcj_jni_test_one): Updated.
	* testsuite/lib/libjava.exp (libjava_find_spec): Don't use
	get_multilibs.
	(libjava_find_gij): Likewise.  Changed return result if gij not
	found.
	(test_libjava_from_javac): Updated.

From-SVN: r92446
This commit is contained in:
Tom Tromey 2004-12-21 01:01:08 +00:00 committed by Tom Tromey
parent 90d8362105
commit d2b55bc559
5 changed files with 26 additions and 27 deletions

View File

@ -1,5 +1,14 @@
2004-12-20 Tom Tromey <tromey@redhat.com>
* testsuite/libjava.jar/jar.exp (gcj_jar_interpret): Updated.
* testsuite/libjava.verify/verify.exp (gcj_verify_run): Updated.
* testsuite/libjava.jni/jni.exp (gcj_jni_test_one): Updated.
* testsuite/lib/libjava.exp (libjava_find_spec): Don't use
get_multilibs.
(libjava_find_gij): Likewise. Changed return result if gij not
found.
(test_libjava_from_javac): Updated.
PR java/15001
* testsuite/libjava.jni/iface.c: New file.
* testsuite/libjava.jni/iface.out: New file.

View File

@ -270,28 +270,17 @@ proc libjava_find_lib {dir name} {
# is used with -B.
proc libjava_find_spec {} {
global objdir
set gp [get_multilibs]
if {[file exists $gp/libjava/libgcj.spec]} then {
return "$gp/libjava/"
}
return "$objdir/../"
}
# Find `gij'.
# Find `gij'. Return empty string if not found.
proc libjava_find_gij {} {
global base_dir
set gp [get_multilibs]
if {$gp != ""} {
set file $gp/libjava/gij
} else {
set file $base_dir/../gij
}
global base_dir objdir
if {[file exists $file]} {
return $file
if {! [file exists $objdir/../gij]} {
return ""
}
return gij
return $objdir/../gij
}
# Remove a bunch of files.
@ -814,9 +803,9 @@ proc test_libjava_from_javac { options srcfile compile_args inpfile resultfile e
# We purposely ignore errors here; we still want to run the other
# appropriate tests.
set gij [libjava_find_gij]
# libjava_find_gij will return `gij' if it couldn't find the
# libjava_find_gij will return "" if it couldn't find the
# program; in this case we want to skip the test.
if {$INTERPRETER == "yes" && $gij != "gij"} {
if {$INTERPRETER == "yes" && $gij != ""} {
libjava_invoke $errname "gij test" opts $gij \
$inpfile $resultfile "" $main_name
}

View File

@ -20,9 +20,9 @@ proc gcj_jar_interpret {jarfile} {
global INTERPRETER srcdir
set gij [libjava_find_gij]
# libjava_find_gij will return `gij' if it couldn't find the
# libjava_find_gij will return "" if it couldn't find the
# program; in this case we want to skip the test.
if {$INTERPRETER != "yes" || $gij == "gij"} {
if {$INTERPRETER != "yes" || $gij == ""} {
untested "$jarfile execution - gij test"
untested "$jarfile output - gij test"
return

View File

@ -165,17 +165,18 @@ proc gcj_jni_test_one {file} {
# appropriate tests.
set errname [file rootname [file tail $file]]
set gij [libjava_find_gij]
# libjava_find_gij will return `gij' if it couldn't find the
# libjava_find_gij will return "" if it couldn't find the
# program; in this case we want to skip the test.
# If the libraries are not installed yet, we have to pass them via
# cxxldlibflags to libjava_invoke.
if {$INTERPRETER == "yes" && $gij != "gij"} {
libjava_invoke $errname "gij test" opts $gij \
"" $resultfile $cxxldlibflags $main
if {$INTERPRETER == "yes" && $gij != ""} {
libjava_invoke $errname "gij test" opts $gij \
"" $resultfile $cxxldlibflags $main
}
# When we succeed we remove all our clutter.
eval gcj_cleanup [glob -nocomplain -- ${main}.*] [list $main lib${main}.${so_extension}]
eval gcj_cleanup [glob -nocomplain -- ${main}.*] \
[list $main lib${main}.${so_extension}]
return 1
}

View File

@ -61,9 +61,9 @@ proc gcj_verify_run {} {
set gij [libjava_find_gij]
set interpret 1
# libjava_find_gij will return `gij' if it couldn't find the
# libjava_find_gij will return "" if it couldn't find the
# program; in this case we want to skip the test.
if {$INTERPRETER != "yes" || $gij == "gij"} {
if {$INTERPRETER != "yes" || $gij == ""} {
set interpret 0
}