1 # Interpreted Tests
for JVMTI code.
2 # These tests are used to test JVMTI functions in a purley interpreted setting
3 # This file compiles the JNI code into a shared object
, then invokes gij to run
7 #
Compile a single C file and produce a .so file. OPTIONS is a list
8 # of options to pass to the compiler. Returns
0 on failure
, 1 on
10 proc gcj_jni_compile_c_to_so
{file
{options
{}}} {
13 verbose
"options: $options"
14 set options_cxx $options
17 # Apple uses a different extension
for shared
/dynamic libraries
18 # so we check against powerpc
-apple
-darwin and
set them to
20 # HP
-UX uses sl
, so we check this too
, otherwise we take so.
22 if { [istarget
"*-*-darwin*"] } {
23 set so_extension
"dylib"
24 set so_flag
"-dynamiclib"
25 } elseif
{ [istarget
"hppa*-hp-hpux*"] } {
33 set filename
[file tail $file
]
34 set name [file rootname $filename
]
35 set soname lib$
{name}.$
{so_extension
}
37 lappend options
"additional_flags=${so_flag} -fPIC"
38 # Find the generated header.
39 lappend options
"additional_flags=-I. -I.. -I$srcdir/$subdir"
41 # Ensure that the generated header has correct prototypes.
42 set cfile
[file rootname $file
].c
43 if { [file
exists $cfile
] } {
44 # This option is only valid
for C sources.
45 lappend options
"additional_flags=-Wmissing-prototypes"
48 # Find jni.h and jni_md.h.
49 lappend options
"additional_flags=-I$srcdir/../include \
50 -I$srcdir
/..
/classpath
/include -fdollars
-in
-identifiers
"
53 lappend options
"additional_flags=$options_cxx"
55 set x
[libjava_prune_warnings \
56 [target_compile $file $soname executable $options
]]
58 verbose
"target_compile failed: $x" 2
59 fail
"$filename compilation"
63 pass
"$filename compilation"
67 #
Do all the work
for a single JVMTI test.
Return 0 on failure.
68 proc gij_jvmti_test_one
{file
} {
71 # The base
name. We use it
for several purposes.
72 set main
[file rootname
[file tail $file
]]
73 if {! [runtest_file_p $runtests $main
] } {
78 #
if {! [bytecompile_file $file
[pwd
]] } {
79 # fail
"bytecompile $file"
80 # # FIXME
- should use `untested
' on all remaining tests.
84 # pass "bytecompile $file"
86 # if {! [gcj_jvmti_build_headers $file] } {
91 set cfile [file join [file dirname $file] nat$main.c]
94 # If there is no `.c' file
, assume there is a `.cc
' file.
95 if {! [file exists $cfile] } {
96 set cfile [file join [file dirname $file] nat$main.cc]
99 foreach arg [split [libjava_find_lib libstdc++-v3/src stdc++] " "] {
100 switch -glob -- $arg {
102 set arg [string range $arg 2 end]
103 lappend cxxldlibflags $arg
104 # Strip the `.libs' directory
; we link with libtool which
106 set arg "-L[file dirname $arg]"
110 lappend cxxflaglist $arg
111 # In case the libstdc++ is not installed yet, we pass the build
112 # directory of it to the cxxflaglist.
113 lappend cxxflaglist "-L$cxxldlibflags"
115 # If you're building the compiler with
--prefix
set to a place
116 # where it
's not yet installed, then the linker won't be able to
117 # find the libgcc used by libgcj.dylib
/libstdc
++.dylib. We could pass
118 # the
-dylib_file option
, but that
's complicated, and it's much easier
119 # to just make the linker find libgcc using
-L options.
120 if { [istarget
"*-*-darwin*"] } {
121 lappend cxxflaglist
"-shared-libgcc -lstdc++"
123 lappend cxxflaglist
"-lstdc++"
125 set cxxflags
[join $cxxflaglist
]
128 if {! [gcj_jni_compile_c_to_so $cfile $cxxflags
] } {
135 set jarfile
[file join
[file dirname $file
] $main.jar
]
136 set gij_flags
{-agentlib
:dummyagent
}
137 if {! [exec_gij $jarfile
[file rootname $file
].out $cxxldlibflags $gij_flags
] } {
141 # When we succeed we remove all our clutter.
142 eval gcj_cleanup
[glob
-nocomplain
-- $
{main
}.
*] \
143 [list $main.class libnat$main.so
]
148 # Run the JVMTI tests.
149 proc gij_jvmti_run
{} {
151 global build_triplet host_triplet
153 #
For now we only test JVMTI
on native builds.
154 if {$build_triplet
== $host_triplet
} {
156 # Build our dummy JVMTI agent library
157 if {![gcj_jni_compile_c_to_so
[file join $srcdir $subdir dummyagent.c
]]} {
158 fail
"compiling dummy JVMTI agent"
160 pass
"compiling dummy JVMTI agent"
162 catch
{lsort
[glob
-nocomplain $
{srcdir
}/$
{subdir
}/interp
/*.jar
]} \
165 foreach x $srcfiles
{
166 gij_jvmti_test_one $x
169 gcj_cleanup libdummyagent.so
172 verbose
"JVMTI tests not run in cross-compilation environment"