blob: c99dd34ee02c8e164f89a392f534e0b22a20bfa3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
|
# 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"
} else {
set so_extension "so"
set so_flag "-shared"
}
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"
# 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 {} $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
|
