1 /*
2 * Copyright (c) 2011, 2026, Oracle and/or its affiliates. All rights reserved.
3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4 *
5 * This code is free software; you can redistribute it and/or modify it
6 * under the terms of the GNU General Public License version 2 only, as
7 * published by the Free Software Foundation.
8 *
9 * This code is distributed in the hope that it will be useful, but WITHOUT
10 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
11 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
12 * version 2 for more details (a copy is included in the LICENSE file that
13 * accompanied this code).
14 *
15 * You should have received a copy of the GNU General Public License version
16 * 2 along with this work; if not, write to the Free Software Foundation,
17 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
18 *
19 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
20 * or visit www.oracle.com if you need additional information or have any
21 * questions.
22 */
23
24 #ifdef COMPILER1
25 #include "c1/c1_Compiler.hpp"
26 #endif
27 #include "ci/ciUtilities.hpp"
28 #include "compiler/compiler_globals.hpp"
29 #include "compiler/oopMap.hpp"
30 #include "gc/shared/barrierSet.hpp"
31 #include "gc/shared/barrierSetAssembler.hpp"
32 #include "gc/shared/barrierSetNMethod.hpp"
33 #include "gc/shared/cardTable.hpp"
34 #include "gc/shared/collectedHeap.hpp"
35 #include "gc/shared/gc_globals.hpp"
36 #include "gc/shared/tlab_globals.hpp"
37 #if INCLUDE_ZGC
38 #include "gc/z/zBarrierSetRuntime.hpp"
39 #include "gc/z/zThreadLocalData.hpp"
40 #endif
41 #include "jvmci/jvmciCompilerToVM.hpp"
42 #include "jvmci/jvmciEnv.hpp"
43 #include "jvmci/vmStructs_jvmci.hpp"
44 #include "memory/universe.hpp"
45 #include "oops/compressedOops.hpp"
46 #include "oops/klass.inline.hpp"
47 #include "prims/jvmtiExport.hpp"
48 #ifdef COMPILER2
49 #include "opto/c2compiler.hpp"
50 #endif
51 #include "runtime/flags/jvmFlag.hpp"
52 #include "runtime/sharedRuntime.hpp"
53 #include "runtime/stubRoutines.hpp"
54 #include "utilities/hashTable.hpp"
55 #if INCLUDE_SHENANDOAHGC
56 #include "gc/shenandoah/shenandoahHeap.hpp"
57 #include "gc/shenandoah/shenandoahHeapRegion.hpp"
58 #endif
59
60 int CompilerToVM::Data::oopDesc_klass_offset_in_bytes;
61 int CompilerToVM::Data::arrayOopDesc_length_offset_in_bytes;
62
63 int CompilerToVM::Data::Klass_vtable_start_offset;
64 int CompilerToVM::Data::Klass_vtable_length_offset;
65
66 int CompilerToVM::Data::Method_extra_stack_entries;
67
68 address CompilerToVM::Data::SharedRuntime_ic_miss_stub;
69 address CompilerToVM::Data::SharedRuntime_handle_wrong_method_stub;
70 address CompilerToVM::Data::SharedRuntime_deopt_blob_unpack;
71 address CompilerToVM::Data::SharedRuntime_deopt_blob_unpack_with_exception_in_tls;
72 address CompilerToVM::Data::SharedRuntime_deopt_blob_uncommon_trap;
73 address CompilerToVM::Data::SharedRuntime_polling_page_return_handler;
74 address CompilerToVM::Data::SharedRuntime_throw_delayed_StackOverflowError_entry;
75
76 address CompilerToVM::Data::nmethod_entry_barrier;
77 int CompilerToVM::Data::thread_disarmed_guard_value_offset;
78 int CompilerToVM::Data::thread_address_bad_mask_offset;
79
80 address CompilerToVM::Data::ZBarrierSetRuntime_load_barrier_on_oop_field_preloaded;
81 address CompilerToVM::Data::ZBarrierSetRuntime_load_barrier_on_weak_oop_field_preloaded;
82 address CompilerToVM::Data::ZBarrierSetRuntime_load_barrier_on_phantom_oop_field_preloaded;
83 address CompilerToVM::Data::ZBarrierSetRuntime_weak_load_barrier_on_oop_field_preloaded;
84 address CompilerToVM::Data::ZBarrierSetRuntime_weak_load_barrier_on_weak_oop_field_preloaded;
85 address CompilerToVM::Data::ZBarrierSetRuntime_weak_load_barrier_on_phantom_oop_field_preloaded;
86 address CompilerToVM::Data::ZBarrierSetRuntime_load_barrier_on_oop_array;
87 address CompilerToVM::Data::ZBarrierSetRuntime_clone;
88
89 address CompilerToVM::Data::ZPointerVectorLoadBadMask_address;
90 address CompilerToVM::Data::ZPointerVectorStoreBadMask_address;
91 address CompilerToVM::Data::ZPointerVectorStoreGoodMask_address;
92
93 #if INCLUDE_SHENANDOAHGC
94 address CompilerToVM::Data::shenandoah_in_cset_fast_test_addr;
95 int CompilerToVM::Data::shenandoah_region_size_bytes_shift;
96 #endif
97
98 bool CompilerToVM::Data::continuations_enabled;
99
100 #ifdef AARCH64
101 int CompilerToVM::Data::BarrierSetAssembler_nmethod_patching_type;
102 address CompilerToVM::Data::BarrierSetAssembler_patching_epoch_addr;
103 #endif
104
105 size_t CompilerToVM::Data::ThreadLocalAllocBuffer_alignment_reserve;
106
107 CollectedHeap* CompilerToVM::Data::Universe_collectedHeap;
108 int CompilerToVM::Data::Universe_base_vtable_size;
109 address CompilerToVM::Data::Universe_narrow_oop_base;
110 int CompilerToVM::Data::Universe_narrow_oop_shift;
111 address CompilerToVM::Data::Universe_narrow_klass_base;
112 int CompilerToVM::Data::Universe_narrow_klass_shift;
113 void* CompilerToVM::Data::Universe_non_oop_bits;
114 uintptr_t CompilerToVM::Data::Universe_verify_oop_mask;
115 uintptr_t CompilerToVM::Data::Universe_verify_oop_bits;
116
117 bool CompilerToVM::Data::_supports_inline_contig_alloc;
118 HeapWord** CompilerToVM::Data::_heap_end_addr;
119 HeapWord* volatile* CompilerToVM::Data::_heap_top_addr;
120 int CompilerToVM::Data::_max_oop_map_stack_offset;
121 int CompilerToVM::Data::_fields_annotations_base_offset;
122
123 CardTable::CardValue* CompilerToVM::Data::cardtable_start_address;
124 int CompilerToVM::Data::cardtable_shift;
125
126 #ifdef X86
127 int CompilerToVM::Data::L1_line_size;
128 bool CompilerToVM::Data::supports_avx512_simd_sort;
129 #endif
130
131 size_t CompilerToVM::Data::vm_page_size;
132
133 int CompilerToVM::Data::sizeof_vtableEntry = sizeof(vtableEntry);
134 int CompilerToVM::Data::sizeof_ExceptionTableElement = sizeof(ExceptionTableElement);
135 int CompilerToVM::Data::sizeof_LocalVariableTableElement = sizeof(LocalVariableTableElement);
136 int CompilerToVM::Data::sizeof_ConstantPool = sizeof(ConstantPool);
137 int CompilerToVM::Data::sizeof_narrowKlass = sizeof(narrowKlass);
138 int CompilerToVM::Data::sizeof_arrayOopDesc = sizeof(arrayOopDesc);
139 int CompilerToVM::Data::sizeof_BasicLock = sizeof(BasicLock);
140 #if INCLUDE_ZGC
141 int CompilerToVM::Data::sizeof_ZStoreBarrierEntry = sizeof(ZStoreBarrierEntry);
142 #endif
143
144 address CompilerToVM::Data::dsin;
145 address CompilerToVM::Data::dcos;
146 address CompilerToVM::Data::dtan;
147 address CompilerToVM::Data::dsinh;
148 address CompilerToVM::Data::dtanh;
149 address CompilerToVM::Data::dcbrt;
150 address CompilerToVM::Data::dexp;
151 address CompilerToVM::Data::dlog;
152 address CompilerToVM::Data::dlog10;
153 address CompilerToVM::Data::dpow;
154
155 address CompilerToVM::Data::crc_table_addr;
156
157 address CompilerToVM::Data::symbol_init;
158 address CompilerToVM::Data::symbol_clinit;
159
160 int CompilerToVM::Data::data_section_item_alignment;
161
162 JVMTI_ONLY( int* CompilerToVM::Data::_should_notify_object_alloc; )
163
164 void CompilerToVM::Data::initialize(JVMCI_TRAPS) {
165 oopDesc_klass_offset_in_bytes = oopDesc::klass_offset_in_bytes();
166 arrayOopDesc_length_offset_in_bytes = arrayOopDesc::length_offset_in_bytes();
167
168 Klass_vtable_start_offset = in_bytes(Klass::vtable_start_offset());
169 Klass_vtable_length_offset = in_bytes(Klass::vtable_length_offset());
170
171 Method_extra_stack_entries = Method::extra_stack_entries();
172
173 SharedRuntime_ic_miss_stub = SharedRuntime::get_ic_miss_stub();
174 SharedRuntime_handle_wrong_method_stub = SharedRuntime::get_handle_wrong_method_stub();
175 SharedRuntime_deopt_blob_unpack = SharedRuntime::deopt_blob()->unpack();
176 SharedRuntime_deopt_blob_unpack_with_exception_in_tls = SharedRuntime::deopt_blob()->unpack_with_exception_in_tls();
177 SharedRuntime_deopt_blob_uncommon_trap = SharedRuntime::deopt_blob()->uncommon_trap();
178 SharedRuntime_polling_page_return_handler = SharedRuntime::polling_page_return_handler_blob()->entry_point();
179 SharedRuntime_throw_delayed_StackOverflowError_entry = SharedRuntime::throw_delayed_StackOverflowError_entry();
180
181 BarrierSetNMethod* bs_nm = BarrierSet::barrier_set()->barrier_set_nmethod();
182 thread_disarmed_guard_value_offset = in_bytes(bs_nm->thread_disarmed_guard_value_offset());
183 nmethod_entry_barrier = StubRoutines::method_entry_barrier();
184 BarrierSetAssembler* bs_asm = BarrierSet::barrier_set()->barrier_set_assembler();
185 AARCH64_ONLY(BarrierSetAssembler_nmethod_patching_type = (int) bs_asm->nmethod_patching_type());
186 AARCH64_ONLY(BarrierSetAssembler_patching_epoch_addr = bs_asm->patching_epoch_addr());
187
188 #if INCLUDE_ZGC
189 if (UseZGC) {
190 ZPointerVectorLoadBadMask_address = (address) &ZPointerVectorLoadBadMask;
191 ZPointerVectorStoreBadMask_address = (address) &ZPointerVectorStoreBadMask;
192 ZPointerVectorStoreGoodMask_address = (address) &ZPointerVectorStoreGoodMask;
193 }
194 #endif
195
196 continuations_enabled = Continuations::enabled();
197
198 ThreadLocalAllocBuffer_alignment_reserve = ThreadLocalAllocBuffer::alignment_reserve();
199
200 Universe_collectedHeap = Universe::heap();
201 Universe_base_vtable_size = Universe::base_vtable_size();
202 if (UseCompressedOops) {
203 Universe_narrow_oop_base = CompressedOops::base();
204 Universe_narrow_oop_shift = CompressedOops::shift();
205 } else {
206 Universe_narrow_oop_base = nullptr;
207 Universe_narrow_oop_shift = 0;
208 }
209 if (UseCompressedClassPointers) {
210 Universe_narrow_klass_base = CompressedKlassPointers::base();
211 Universe_narrow_klass_shift = CompressedKlassPointers::shift();
212 } else {
213 Universe_narrow_klass_base = nullptr;
214 Universe_narrow_klass_shift = 0;
215 }
216 Universe_non_oop_bits = Universe::non_oop_word();
217 Universe_verify_oop_mask = Universe::verify_oop_mask();
218 Universe_verify_oop_bits = Universe::verify_oop_bits();
219
220 _supports_inline_contig_alloc = false;
221 _heap_end_addr = (HeapWord**) -1;
222 _heap_top_addr = (HeapWord* volatile*) -1;
223
224 _max_oop_map_stack_offset = (OopMapValue::register_mask - VMRegImpl::stack2reg(0)->value()) * VMRegImpl::stack_slot_size;
225 int max_oop_map_stack_index = _max_oop_map_stack_offset / VMRegImpl::stack_slot_size;
226 assert(OopMapValue::legal_vm_reg_name(VMRegImpl::stack2reg(max_oop_map_stack_index)), "should be valid");
227 assert(!OopMapValue::legal_vm_reg_name(VMRegImpl::stack2reg(max_oop_map_stack_index + 1)), "should be invalid");
228
229 symbol_init = (address) vmSymbols::object_initializer_name();
230 symbol_clinit = (address) vmSymbols::class_initializer_name();
231
232 _fields_annotations_base_offset = Array<AnnotationArray*>::base_offset_in_bytes();
233
234 data_section_item_alignment = relocInfo::addr_unit();
235
236 JVMTI_ONLY( _should_notify_object_alloc = &JvmtiExport::_should_notify_object_alloc; )
237
238 BarrierSet* bs = BarrierSet::barrier_set();
239 #if INCLUDE_G1GC
240 if (bs->is_a(BarrierSet::G1BarrierSet)) {
241 cardtable_start_address = nullptr;
242 cardtable_shift = CardTable::card_shift();
243 } else
244 #endif
245 #if INCLUDE_SHENANDOAHGC
246 if (bs->is_a(BarrierSet::ShenandoahBarrierSet)) {
247 cardtable_start_address = nullptr;
248 cardtable_shift = CardTable::card_shift();
249 } else
250 #endif
251 if (bs->is_a(BarrierSet::CardTableBarrierSet)) {
252 CardTable::CardValue* base = ci_card_table_address_const();
253 assert(base != nullptr, "unexpected byte_map_base");
254 cardtable_start_address = base;
255 cardtable_shift = CardTable::card_shift();
256 } else {
257 // No card mark barriers
258 cardtable_start_address = nullptr;
259 cardtable_shift = 0;
260 }
261
262 #if INCLUDE_SHENANDOAHGC
263 if (UseShenandoahGC) {
264 shenandoah_in_cset_fast_test_addr = ShenandoahHeap::in_cset_fast_test_addr();
265 shenandoah_region_size_bytes_shift = ShenandoahHeapRegion::region_size_bytes_shift_jint();
266 }
267 #endif
268
269 #ifdef X86
270 L1_line_size = VM_Version::L1_line_size();
271 supports_avx512_simd_sort = VM_Version::supports_avx512_simd_sort();
272 #endif
273
274 vm_page_size = os::vm_page_size();
275
276 #define SET_TRIGFUNC(name) \
277 if (StubRoutines::name() != nullptr) { \
278 name = StubRoutines::name(); \
279 } else { \
280 name = CAST_FROM_FN_PTR(address, SharedRuntime::name); \
281 }
282
283 SET_TRIGFUNC(dsin);
284 SET_TRIGFUNC(dcos);
285 SET_TRIGFUNC(dtan);
286 SET_TRIGFUNC(dexp);
287 SET_TRIGFUNC(dlog10);
288 SET_TRIGFUNC(dlog);
289 SET_TRIGFUNC(dpow);
290
291 #undef SET_TRIGFUNC
292
293 #define SET_TRIGFUNC_OR_NULL(name) \
294 if (StubRoutines::name() != nullptr) { \
295 name = StubRoutines::name(); \
296 } else { \
297 name = nullptr; \
298 }
299
300 SET_TRIGFUNC_OR_NULL(dsinh);
301 SET_TRIGFUNC_OR_NULL(dtanh);
302 SET_TRIGFUNC_OR_NULL(dcbrt);
303 SET_TRIGFUNC_OR_NULL(crc_table_addr);
304
305 #undef SET_TRIGFUNC_OR_NULL
306
307
308 }
309
310 static jboolean is_c1_supported(vmIntrinsics::ID id){
311 jboolean supported = false;
312 #ifdef COMPILER1
313 supported = (jboolean) Compiler::is_intrinsic_supported(id);
314 #endif
315 return supported;
316 }
317
318 static jboolean is_c2_supported(vmIntrinsics::ID id){
319 jboolean supported = false;
320 #ifdef COMPILER2
321 supported = (jboolean) C2Compiler::is_intrinsic_supported(id);
322 #endif
323 return supported;
324 }
325
326 JVMCIObjectArray CompilerToVM::initialize_intrinsics(JVMCI_TRAPS) {
327 int len = vmIntrinsics::number_of_intrinsics() - 1; // Exclude vmIntrinsics::_none, which is 0
328 JVMCIObjectArray vmIntrinsics = JVMCIENV->new_VMIntrinsicMethod_array(len, JVMCI_CHECK_NULL);
329 int index = 0;
330 vmSymbolID kls_sid = vmSymbolID::NO_SID;
331 JVMCIObject kls_str;
332 #define VM_SYMBOL_TO_STRING(s) \
333 JVMCIENV->create_string(vmSymbols::symbol_at(VM_SYMBOL_ENUM_NAME(s)), JVMCI_CHECK_NULL)
334 #define VM_INTRINSIC_INFO(id, kls, name, sig, ignore_fcode) { \
335 vmSymbolID sid = VM_SYMBOL_ENUM_NAME(kls); \
336 if (kls_sid != sid) { \
337 kls_str = VM_SYMBOL_TO_STRING(kls); \
338 kls_sid = sid; \
339 } \
340 JVMCIObject name_str = VM_SYMBOL_TO_STRING(name); \
341 JVMCIObject sig_str = VM_SYMBOL_TO_STRING(sig); \
342 JVMCIObject vmIntrinsicMethod = JVMCIENV->new_VMIntrinsicMethod(kls_str, name_str, sig_str, (jint) vmIntrinsics::id, \
343 (jboolean) vmIntrinsics::is_intrinsic_available(vmIntrinsics::id), \
344 is_c1_supported(vmIntrinsics::id), \
345 is_c2_supported(vmIntrinsics::id), JVMCI_CHECK_NULL); \
346 JVMCIENV->put_object_at(vmIntrinsics, index++, vmIntrinsicMethod); \
347 }
348
349 // VM_INTRINSICS_DO does *not* iterate over vmIntrinsics::_none
350 VM_INTRINSICS_DO(VM_INTRINSIC_INFO, VM_SYMBOL_IGNORE, VM_SYMBOL_IGNORE, VM_SYMBOL_IGNORE, VM_ALIAS_IGNORE)
351 #undef VM_SYMBOL_TO_STRING
352 #undef VM_INTRINSIC_INFO
353
354 assert(index == len, "must be");
355 return vmIntrinsics;
356 }
357
358 #define PREDEFINED_CONFIG_FLAGS(do_bool_flag, do_uint_flag, do_int_flag, do_size_t_flag, do_intx_flag, do_uintx_flag) \
359 do_int_flag(AllocateInstancePrefetchLines) \
360 do_int_flag(AllocatePrefetchDistance) \
361 do_intx_flag(AllocatePrefetchInstr) \
362 do_int_flag(AllocatePrefetchLines) \
363 do_int_flag(AllocatePrefetchStepSize) \
364 do_int_flag(AllocatePrefetchStyle) \
365 do_intx_flag(BciProfileWidth) \
366 do_bool_flag(BootstrapJVMCI) \
367 do_bool_flag(CITime) \
368 do_bool_flag(CITimeEach) \
369 do_size_t_flag(CodeCacheSegmentSize) \
370 do_uint_flag(CodeEntryAlignment) \
371 do_int_flag(ContendedPaddingWidth) \
372 do_bool_flag(DontCompileHugeMethods) \
373 do_bool_flag(EagerJVMCI) \
374 do_bool_flag(EnableContended) \
375 do_bool_flag(FoldStableValues) \
376 do_bool_flag(ForceUnreachable) \
377 do_intx_flag(HugeMethodLimit) \
378 do_bool_flag(Inline) \
379 do_intx_flag(JVMCICounterSize) \
380 do_bool_flag(JVMCIPrintProperties) \
381 do_int_flag(ObjectAlignmentInBytes) \
382 do_bool_flag(PrintInlining) \
383 do_bool_flag(ReduceInitialCardMarks) \
384 do_bool_flag(RestrictContended) \
385 do_intx_flag(StackReservedPages) \
386 do_intx_flag(StackShadowPages) \
387 do_uintx_flag(TLABWasteIncrement) \
388 do_intx_flag(TypeProfileWidth) \
389 do_bool_flag(UseAESIntrinsics) \
390 X86_ONLY(do_int_flag(UseAVX)) \
391 do_bool_flag(UseCRC32Intrinsics) \
392 do_bool_flag(UseAdler32Intrinsics) \
393 do_bool_flag(UseCompressedClassPointers) \
394 do_bool_flag(UseCompressedOops) \
395 X86_ONLY(do_bool_flag(UseCountLeadingZerosInstruction)) \
396 X86_ONLY(do_bool_flag(UseCountTrailingZerosInstruction)) \
397 do_bool_flag(UseG1GC) \
398 do_bool_flag(UseParallelGC) \
399 do_bool_flag(UseSerialGC) \
400 do_bool_flag(UseZGC) \
401 do_bool_flag(UseEpsilonGC) \
402 COMPILER2_PRESENT(do_bool_flag(UseMontgomeryMultiplyIntrinsic)) \
403 COMPILER2_PRESENT(do_bool_flag(UseMontgomerySquareIntrinsic)) \
404 COMPILER2_PRESENT(do_bool_flag(UseMulAddIntrinsic)) \
405 COMPILER2_PRESENT(do_bool_flag(UseMultiplyToLenIntrinsic)) \
406 do_bool_flag(UsePopCountInstruction) \
407 do_bool_flag(UseSHA1Intrinsics) \
408 do_bool_flag(UseSHA256Intrinsics) \
409 do_bool_flag(UseSHA512Intrinsics) \
410 X86_ONLY(do_int_flag(UseSSE)) \
411 COMPILER2_PRESENT(do_bool_flag(UseSquareToLenIntrinsic)) \
412 do_bool_flag(UseTLAB) \
413 do_bool_flag(VerifyOops) \
414
415 #define BOXED_BOOLEAN(name, value) name = ((jboolean)(value) ? boxedTrue : boxedFalse)
416 #define BOXED_DOUBLE(name, value) do { jvalue p; p.d = (jdouble) (value); name = JVMCIENV->create_box(T_DOUBLE, &p, JVMCI_CHECK_NULL);} while(0)
417 #define BOXED_LONG(name, value) \
418 do { \
419 jvalue p; p.j = (jlong) (value); \
420 JVMCIObject* e = longs.get(p.j); \
421 if (e == nullptr) { \
422 JVMCIObject h = JVMCIENV->create_box(T_LONG, &p, JVMCI_CHECK_NULL); \
423 longs.put(p.j, h); \
424 name = h; \
425 } else { \
426 name = (*e); \
427 } \
428 } while (0)
429
430 #define CSTRING_TO_JSTRING(name, value) \
431 JVMCIObject name; \
432 do { \
433 if (value != nullptr) { \
434 JVMCIObject* e = strings.get(value); \
435 if (e == nullptr) { \
436 JVMCIObject h = JVMCIENV->create_string(value, JVMCI_CHECK_NULL); \
437 strings.put(value, h); \
438 name = h; \
439 } else { \
440 name = (*e); \
441 } \
442 } \
443 } while (0)
444
445 jobjectArray readConfiguration0(JNIEnv *env, JVMCI_TRAPS) {
446 JavaThread* THREAD = JavaThread::current(); // For exception macros.
447 HashTable<jlong, JVMCIObject> longs;
448 HashTable<const char*, JVMCIObject,
449 256, AnyObj::RESOURCE_AREA, mtInternal,
450 &CompilerToVM::cstring_hash, &CompilerToVM::cstring_equals> strings;
451
452 jvalue prim;
453 prim.z = true; JVMCIObject boxedTrue = JVMCIENV->create_box(T_BOOLEAN, &prim, JVMCI_CHECK_NULL);
454 prim.z = false; JVMCIObject boxedFalse = JVMCIENV->create_box(T_BOOLEAN, &prim, JVMCI_CHECK_NULL);
455
456 CompilerToVM::Data::initialize(JVMCI_CHECK_NULL);
457
458 JVMCIENV->VMField_initialize(JVMCI_CHECK_NULL);
459 JVMCIENV->VMFlag_initialize(JVMCI_CHECK_NULL);
460 JVMCIENV->VMIntrinsicMethod_initialize(JVMCI_CHECK_NULL);
461
462 int len = JVMCIVMStructs::localHotSpotVMStructs_count();
463 JVMCIObjectArray vmFields = JVMCIENV->new_VMField_array(len, JVMCI_CHECK_NULL);
464 for (int i = 0; i < len ; i++) {
465 VMStructEntry vmField = JVMCIVMStructs::localHotSpotVMStructs[i];
466 const size_t name_buf_size = strlen(vmField.typeName) + strlen(vmField.fieldName) + 2 + 1 /* "::" */;
467 char* name_buf = NEW_RESOURCE_ARRAY_IN_THREAD(THREAD, char, name_buf_size);
468 os::snprintf_checked(name_buf, name_buf_size, "%s::%s", vmField.typeName, vmField.fieldName);
469 CSTRING_TO_JSTRING(name, name_buf);
470 CSTRING_TO_JSTRING(type, vmField.typeString);
471 JVMCIObject box;
472 if (vmField.isStatic && vmField.typeString != nullptr) {
473 if (strcmp(vmField.typeString, "bool") == 0) {
474 BOXED_BOOLEAN(box, *(jbyte*) vmField.address);
475 assert(box.is_non_null(), "must have a box");
476 } else if (strcmp(vmField.typeString, "int") == 0 ||
477 strcmp(vmField.typeString, "jint") == 0 ||
478 strcmp(vmField.typeString, "uint") == 0 ||
479 strcmp(vmField.typeString, "uint32_t") == 0) {
480 BOXED_LONG(box, *(jint*) vmField.address);
481 assert(box.is_non_null(), "must have a box");
482 } else if (strcmp(vmField.typeString, "uint64_t") == 0) {
483 BOXED_LONG(box, *(uint64_t*) vmField.address);
484 assert(box.is_non_null(), "must have a box");
485 } else if (strcmp(vmField.typeString, "address") == 0 ||
486 strcmp(vmField.typeString, "intptr_t") == 0 ||
487 strcmp(vmField.typeString, "uintptr_t") == 0 ||
488 strcmp(vmField.typeString, "OopHandle") == 0 ||
489 strcmp(vmField.typeString, "VM_Version::VM_Features") == 0 ||
490 strcmp(vmField.typeString, "size_t") == 0 ||
491 // All foo* types are addresses.
492 vmField.typeString[strlen(vmField.typeString) - 1] == '*') {
493 BOXED_LONG(box, *((address*) vmField.address));
494 assert(box.is_non_null(), "must have a box");
495 } else {
496 JVMCI_ERROR_NULL("VM field %s has unsupported type %s", name_buf, vmField.typeString);
497 }
498 }
499 JVMCIObject vmFieldObj = JVMCIENV->new_VMField(name, type, vmField.offset, (jlong) vmField.address, box, JVMCI_CHECK_NULL);
500 JVMCIENV->put_object_at(vmFields, i, vmFieldObj);
501 }
502
503 int ints_len = JVMCIVMStructs::localHotSpotVMIntConstants_count();
504 int longs_len = JVMCIVMStructs::localHotSpotVMLongConstants_count();
505 len = ints_len + longs_len;
506 JVMCIObjectArray vmConstants = JVMCIENV->new_Object_array(len * 2, JVMCI_CHECK_NULL);
507 int insert = 0;
508 for (int i = 0; i < ints_len ; i++) {
509 VMIntConstantEntry c = JVMCIVMStructs::localHotSpotVMIntConstants[i];
510 CSTRING_TO_JSTRING(name, c.name);
511 JVMCIObject value;
512 BOXED_LONG(value, c.value);
513 JVMCIENV->put_object_at(vmConstants, insert++, name);
514 JVMCIENV->put_object_at(vmConstants, insert++, value);
515 }
516 for (int i = 0; i < longs_len ; i++) {
517 VMLongConstantEntry c = JVMCIVMStructs::localHotSpotVMLongConstants[i];
518 CSTRING_TO_JSTRING(name, c.name);
519 JVMCIObject value;
520 BOXED_LONG(value, c.value);
521 JVMCIENV->put_object_at(vmConstants, insert++, name);
522 JVMCIENV->put_object_at(vmConstants, insert++, value);
523 }
524 assert(insert == len * 2, "must be");
525
526 len = JVMCIVMStructs::localHotSpotVMAddresses_count();
527 JVMCIObjectArray vmAddresses = JVMCIENV->new_Object_array(len * 2, JVMCI_CHECK_NULL);
528 for (int i = 0; i < len ; i++) {
529 VMAddressEntry a = JVMCIVMStructs::localHotSpotVMAddresses[i];
530 CSTRING_TO_JSTRING(name, a.name);
531 JVMCIObject value;
532 BOXED_LONG(value, a.value);
533 JVMCIENV->put_object_at(vmAddresses, i * 2, name);
534 JVMCIENV->put_object_at(vmAddresses, i * 2 + 1, value);
535 }
536
537 #define COUNT_FLAG(ignore) +1
538 #ifdef ASSERT
539 #define CHECK_FLAG(type, name) { \
540 const JVMFlag* flag = JVMFlag::find_declared_flag(#name); \
541 assert(flag != nullptr, "No such flag named " #name); \
542 assert(flag->is_##type(), "JVMFlag " #name " is not of type " #type); \
543 }
544 #else
545 #define CHECK_FLAG(type, name)
546 #endif
547
548 #define ADD_FLAG(type, name, convert) { \
549 CHECK_FLAG(type, name) \
550 CSTRING_TO_JSTRING(fname, #name); \
551 CSTRING_TO_JSTRING(ftype, #type); \
552 convert(value, name); \
553 JVMCIObject vmFlagObj = JVMCIENV->new_VMFlag(fname, ftype, value, JVMCI_CHECK_NULL); \
554 JVMCIENV->put_object_at(vmFlags, i++, vmFlagObj); \
555 }
556 #define ADD_BOOL_FLAG(name) ADD_FLAG(bool, name, BOXED_BOOLEAN)
557 #define ADD_UINT_FLAG(name) ADD_FLAG(uint, name, BOXED_LONG)
558 #define ADD_INT_FLAG(name) ADD_FLAG(int, name, BOXED_LONG)
559 #define ADD_SIZE_T_FLAG(name) ADD_FLAG(size_t, name, BOXED_LONG)
560 #define ADD_INTX_FLAG(name) ADD_FLAG(intx, name, BOXED_LONG)
561 #define ADD_UINTX_FLAG(name) ADD_FLAG(uintx, name, BOXED_LONG)
562
563 len = 0 + PREDEFINED_CONFIG_FLAGS(COUNT_FLAG, COUNT_FLAG, COUNT_FLAG, COUNT_FLAG, COUNT_FLAG, COUNT_FLAG);
564 JVMCIObjectArray vmFlags = JVMCIENV->new_VMFlag_array(len, JVMCI_CHECK_NULL);
565 int i = 0;
566 JVMCIObject value;
567 PREDEFINED_CONFIG_FLAGS(ADD_BOOL_FLAG, ADD_UINT_FLAG, ADD_INT_FLAG, ADD_SIZE_T_FLAG, ADD_INTX_FLAG, ADD_UINTX_FLAG)
568
569 JVMCIObjectArray vmIntrinsics = CompilerToVM::initialize_intrinsics(JVMCI_CHECK_NULL);
570
571 JVMCIObjectArray data = JVMCIENV->new_Object_array(5, JVMCI_CHECK_NULL);
572 JVMCIENV->put_object_at(data, 0, vmFields);
573 JVMCIENV->put_object_at(data, 1, vmConstants);
574 JVMCIENV->put_object_at(data, 2, vmAddresses);
575 JVMCIENV->put_object_at(data, 3, vmFlags);
576 JVMCIENV->put_object_at(data, 4, vmIntrinsics);
577
578 return JVMCIENV->get_jobjectArray(data);
579 }