diff options
Diffstat (limited to 'libjava/testsuite/libjava.jvmti/jvmti-interp.exp')
| -rw-r--r-- | libjava/testsuite/libjava.jvmti/jvmti-interp.exp | 184 |
1 files changed, 0 insertions, 184 deletions
diff --git a/libjava/testsuite/libjava.jvmti/jvmti-interp.exp b/libjava/testsuite/libjava.jvmti/jvmti-interp.exp deleted file mode 100644 index 62c82e9..0000000 --- a/libjava/testsuite/libjava.jvmti/jvmti-interp.exp +++ /dev/null @@ -1,184 +0,0 @@ -# Interpreted Tests for JVMTI code. -# These tests are used to test JVMTI functions in a purley interpreted setting -# This file compiles the JNI code into a shared object, then invokes gij to run -# the test. - - -# Compile a single C file and produce a .so file. OPTIONS is a list -# of options to pass to the compiler. Returns 0 on failure, 1 on -# success. -proc gcj_jni_compile_c_to_so {file {options {}}} { - global srcdir subdir - global host_triplet - verbose "options: $options" - set options_cxx $options - set options "" - -# Apple uses a different extension for shared/dynamic libraries -# so we check against powerpc-apple-darwin and set them to -# dylib. -# HP-UX uses sl, so we check this too, otherwise we take so. - - if { [istarget "*-*-darwin*"] } { - set so_extension "dylib" - set so_flag "-dynamiclib" - } elseif { [istarget "hppa*-hp-hpux*"] } { - set so_extension "sl" - set so_flag "-shared" - } elseif { [istarget "*-*-cygwin*"] || [istarget "*-*-mingw*"] } { - set so_extension "dll" - set so_flag "-shared" - } else { - set so_extension "so" - set so_flag "-shared" - } - - # ARM C++ emits an ABI warning for varargs. - if { [istarget "arm*"] } { - lappend options "additional_flags=-Wno-abi" - } - - set filename [file tail $file] - set name [file rootname $filename] - set soname lib${name}.${so_extension} - - lappend options "additional_flags=${so_flag} -fPIC" - # Find the generated header. - lappend options "additional_flags=-I. -I.. -I$srcdir/$subdir" - - # Ensure that the generated header has correct prototypes. - set cfile [file rootname $file].c - if { [file exists $cfile] } { - # This option is only valid for C sources. - lappend options "additional_flags=-Wmissing-prototypes" - } - - # Find jni.h and jni_md.h. - lappend options "additional_flags=-I$srcdir/../include \ - -I$srcdir/../classpath/include -fdollars-in-identifiers" - - # Append C++ options - lappend options "additional_flags=$options_cxx" - - set x [libjava_prune_warnings \ - [target_compile $file $soname executable $options]] - if {$x != ""} { - verbose "target_compile failed: $x" 2 - fail "$filename compilation" - return 0 - } - - pass "$filename compilation" - return 1 -} - -# Do all the work for a single JVMTI test. Return 0 on failure. -proc gij_jvmti_test_one {file} { - global runtests - - # The base name. We use it for several purposes. - set main [file rootname [file tail $file]] - if {! [runtest_file_p $runtests $main] } { - # Simply skip it. - return 1 - } - -# if {! [bytecompile_file $file [pwd]] } { -# fail "bytecompile $file" -# # FIXME - should use `untested' on all remaining tests. -# # But that is hard. -# return 0 -# } -# pass "bytecompile $file" - -# if {! [gcj_jvmti_build_headers $file] } { -# # FIXME -# return 0 -# } - - set cfile [file join [file dirname $file] nat$main.c] - set cxxflags "" - set cxxldlibflags {} - # If there is no `.c' file, assume there is a `.cc' file. - if {! [file exists $cfile] } { - set cfile [file join [file dirname $file] nat$main.cc] - - set cxxflaglist {} - foreach arg [split [libjava_find_lib libstdc++-v3/src stdc++] " "] { - switch -glob -- $arg { - "-L*" { - set arg [string range $arg 2 end] - lappend cxxldlibflags $arg - # Strip the `.libs' directory; we link with libtool which - # doesn't need it. - set arg "-L[file dirname $arg]" - } - } - - lappend cxxflaglist $arg - # In case the libstdc++ is not installed yet, we pass the build - # directory of it to the cxxflaglist. - lappend cxxflaglist "-L$cxxldlibflags" - } - # If you're building the compiler with --prefix set to a place - # where it's not yet installed, then the linker won't be able to - # find the libgcc used by libgcj.dylib/libstdc++.dylib. We could pass - # the -dylib_file option, but that's complicated, and it's much easier - # to just make the linker find libgcc using -L options. - if { [istarget "*-*-darwin*"] } { - lappend cxxflaglist "-shared-libgcc -lstdc++" - } else { - lappend cxxflaglist "-lstdc++" - } - set cxxflags [join $cxxflaglist] - } - - if {! [gcj_jni_compile_c_to_so $cfile $cxxflags] } { - # FIXME - return 0 - } - - libjava_arguments - - set jarfile [file join [file dirname $file] $main.jar] - set gij_flags {-agentlib:dummyagent} - if {! [exec_gij $jarfile [file rootname $file].out $cxxldlibflags $gij_flags] } { - return 0 - } - - # When we succeed we remove all our clutter. - eval gcj_cleanup [glob -nocomplain -- ${main}.*] \ - [list $main.class libnat$main.so] - - return 1 -} - -# Run the JVMTI tests. -proc gij_jvmti_run {} { - global srcdir subdir - global build_triplet host_triplet - - # For now we only test JVMTI on native builds. - if {$build_triplet == $host_triplet} { - - # Build our dummy JVMTI agent library - if {![gcj_jni_compile_c_to_so [file join $srcdir $subdir dummyagent.c]]} { - fail "compiling dummy JVMTI agent" - } else { - pass "compiling dummy JVMTI agent" - - catch {lsort [glob -nocomplain ${srcdir}/${subdir}/interp/*.jar]} \ - srcfiles - - foreach x $srcfiles { - gij_jvmti_test_one $x - } - - gcj_cleanup libdummyagent.so - } - } else { - verbose "JVMTI tests not run in cross-compilation environment" - } -} - -gij_jvmti_run |