1 /*
  2  * Copyright (c) 2011, 2025, 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/resourceHash.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::dtanh;
148 address CompilerToVM::Data::dcbrt;
149 address CompilerToVM::Data::dexp;
150 address CompilerToVM::Data::dlog;
151 address CompilerToVM::Data::dlog10;
152 address CompilerToVM::Data::dpow;
153 
154 address CompilerToVM::Data::symbol_init;
155 address CompilerToVM::Data::symbol_clinit;
156 
157 int CompilerToVM::Data::data_section_item_alignment;
158 
159 JVMTI_ONLY( int* CompilerToVM::Data::_should_notify_object_alloc; )
160 
161 void CompilerToVM::Data::initialize(JVMCI_TRAPS) {
162   oopDesc_klass_offset_in_bytes = oopDesc::klass_offset_in_bytes();
163   arrayOopDesc_length_offset_in_bytes = arrayOopDesc::length_offset_in_bytes();
164 
165   Klass_vtable_start_offset = in_bytes(Klass::vtable_start_offset());
166   Klass_vtable_length_offset = in_bytes(Klass::vtable_length_offset());
167 
168   Method_extra_stack_entries = Method::extra_stack_entries();
169 
170   SharedRuntime_ic_miss_stub = SharedRuntime::get_ic_miss_stub();
171   SharedRuntime_handle_wrong_method_stub = SharedRuntime::get_handle_wrong_method_stub();
172   SharedRuntime_deopt_blob_unpack = SharedRuntime::deopt_blob()->unpack();
173   SharedRuntime_deopt_blob_unpack_with_exception_in_tls = SharedRuntime::deopt_blob()->unpack_with_exception_in_tls();
174   SharedRuntime_deopt_blob_uncommon_trap = SharedRuntime::deopt_blob()->uncommon_trap();
175   SharedRuntime_polling_page_return_handler = SharedRuntime::polling_page_return_handler_blob()->entry_point();
176   SharedRuntime_throw_delayed_StackOverflowError_entry = SharedRuntime::throw_delayed_StackOverflowError_entry();
177 
178   BarrierSetNMethod* bs_nm = BarrierSet::barrier_set()->barrier_set_nmethod();
179   thread_disarmed_guard_value_offset = in_bytes(bs_nm->thread_disarmed_guard_value_offset());
180   nmethod_entry_barrier = StubRoutines::method_entry_barrier();
181   BarrierSetAssembler* bs_asm = BarrierSet::barrier_set()->barrier_set_assembler();
182   AARCH64_ONLY(BarrierSetAssembler_nmethod_patching_type = (int) bs_asm->nmethod_patching_type());
183   AARCH64_ONLY(BarrierSetAssembler_patching_epoch_addr = bs_asm->patching_epoch_addr());
184 
185 #if INCLUDE_ZGC
186   if (UseZGC) {
187     ZPointerVectorLoadBadMask_address   = (address) &ZPointerVectorLoadBadMask;
188     ZPointerVectorStoreBadMask_address  = (address) &ZPointerVectorStoreBadMask;
189     ZPointerVectorStoreGoodMask_address = (address) &ZPointerVectorStoreGoodMask;
190   }
191 #endif
192 
193   continuations_enabled = Continuations::enabled();
194 
195   ThreadLocalAllocBuffer_alignment_reserve = ThreadLocalAllocBuffer::alignment_reserve();
196 
197   Universe_collectedHeap = Universe::heap();
198   Universe_base_vtable_size = Universe::base_vtable_size();
199   if (UseCompressedOops) {
200     Universe_narrow_oop_base = CompressedOops::base();
201     Universe_narrow_oop_shift = CompressedOops::shift();
202   } else {
203     Universe_narrow_oop_base = nullptr;
204     Universe_narrow_oop_shift = 0;
205   }
206   if (UseCompressedClassPointers) {
207     Universe_narrow_klass_base = CompressedKlassPointers::base();
208     Universe_narrow_klass_shift = CompressedKlassPointers::shift();
209   } else {
210     Universe_narrow_klass_base = nullptr;
211     Universe_narrow_klass_shift = 0;
212   }
213   Universe_non_oop_bits = Universe::non_oop_word();
214   Universe_verify_oop_mask = Universe::verify_oop_mask();
215   Universe_verify_oop_bits = Universe::verify_oop_bits();
216 
217   _supports_inline_contig_alloc = false;
218   _heap_end_addr = (HeapWord**) -1;
219   _heap_top_addr = (HeapWord* volatile*) -1;
220 
221   _max_oop_map_stack_offset = (OopMapValue::register_mask - VMRegImpl::stack2reg(0)->value()) * VMRegImpl::stack_slot_size;
222   int max_oop_map_stack_index = _max_oop_map_stack_offset / VMRegImpl::stack_slot_size;
223   assert(OopMapValue::legal_vm_reg_name(VMRegImpl::stack2reg(max_oop_map_stack_index)), "should be valid");
224   assert(!OopMapValue::legal_vm_reg_name(VMRegImpl::stack2reg(max_oop_map_stack_index + 1)), "should be invalid");
225 
226   symbol_init = (address) vmSymbols::object_initializer_name();
227   symbol_clinit = (address) vmSymbols::class_initializer_name();
228 
229   _fields_annotations_base_offset = Array<AnnotationArray*>::base_offset_in_bytes();
230 
231   data_section_item_alignment = relocInfo::addr_unit();
232 
233   JVMTI_ONLY( _should_notify_object_alloc = &JvmtiExport::_should_notify_object_alloc; )
234 
235   BarrierSet* bs = BarrierSet::barrier_set();
236   if (bs->is_a(BarrierSet::CardTableBarrierSet)) {
237     CardTable::CardValue* base = ci_card_table_address();
238     assert(base != nullptr, "unexpected byte_map_base");
239     cardtable_start_address = base;
240     cardtable_shift = CardTable::card_shift();
241 #if INCLUDE_SHENANDOAHGC
242   } else if (bs->is_a(BarrierSet::ShenandoahBarrierSet)) {
243     cardtable_start_address = nullptr;
244     cardtable_shift = CardTable::card_shift();
245 #endif
246   } else {
247     // No card mark barriers
248     cardtable_start_address = nullptr;
249     cardtable_shift = 0;
250   }
251 
252 #if INCLUDE_SHENANDOAHGC
253   if (UseShenandoahGC) {
254     shenandoah_in_cset_fast_test_addr = ShenandoahHeap::in_cset_fast_test_addr();
255     shenandoah_region_size_bytes_shift = ShenandoahHeapRegion::region_size_bytes_shift_jint();
256   }
257 #endif
258 
259 #ifdef X86
260   L1_line_size = VM_Version::L1_line_size();
261   supports_avx512_simd_sort = VM_Version::supports_avx512_simd_sort();
262 #endif
263 
264   vm_page_size = os::vm_page_size();
265 
266 #define SET_TRIGFUNC(name)                                      \
267   if (StubRoutines::name() != nullptr) {                        \
268     name = StubRoutines::name();                                \
269   } else {                                                      \
270     name = CAST_FROM_FN_PTR(address, SharedRuntime::name);      \
271   }
272 
273   SET_TRIGFUNC(dsin);
274   SET_TRIGFUNC(dcos);
275   SET_TRIGFUNC(dtan);
276   SET_TRIGFUNC(dexp);
277   SET_TRIGFUNC(dlog10);
278   SET_TRIGFUNC(dlog);
279   SET_TRIGFUNC(dpow);
280 
281 #undef SET_TRIGFUNC
282 
283 #define SET_TRIGFUNC_OR_NULL(name)                              \
284   if (StubRoutines::name() != nullptr) {                        \
285     name = StubRoutines::name();                                \
286   } else {                                                      \
287     name = nullptr;                                             \
288   }
289 
290   SET_TRIGFUNC_OR_NULL(dtanh);
291   SET_TRIGFUNC_OR_NULL(dcbrt);
292 
293 #undef SET_TRIGFUNC_OR_NULL
294 
295 
296 }
297 
298 static jboolean is_c1_supported(vmIntrinsics::ID id){
299     jboolean supported = false;
300 #ifdef COMPILER1
301     supported = (jboolean) Compiler::is_intrinsic_supported(id);
302 #endif
303     return supported;
304 }
305 
306 static jboolean is_c2_supported(vmIntrinsics::ID id){
307     jboolean supported = false;
308 #ifdef COMPILER2
309     supported = (jboolean) C2Compiler::is_intrinsic_supported(id);
310 #endif
311     return supported;
312 }
313 
314 JVMCIObjectArray CompilerToVM::initialize_intrinsics(JVMCI_TRAPS) {
315   int len = vmIntrinsics::number_of_intrinsics() - 1; // Exclude vmIntrinsics::_none, which is 0
316   JVMCIObjectArray vmIntrinsics = JVMCIENV->new_VMIntrinsicMethod_array(len, JVMCI_CHECK_NULL);
317   int index = 0;
318   vmSymbolID kls_sid = vmSymbolID::NO_SID;
319   JVMCIObject kls_str;
320 #define VM_SYMBOL_TO_STRING(s) \
321   JVMCIENV->create_string(vmSymbols::symbol_at(VM_SYMBOL_ENUM_NAME(s)), JVMCI_CHECK_NULL)
322 #define VM_INTRINSIC_INFO(id, kls, name, sig, ignore_fcode) {            \
323     vmSymbolID sid = VM_SYMBOL_ENUM_NAME(kls);                           \
324     if (kls_sid != sid) {                                                \
325       kls_str = VM_SYMBOL_TO_STRING(kls);                                \
326       kls_sid = sid;                                                     \
327     }                                                                    \
328     JVMCIObject name_str = VM_SYMBOL_TO_STRING(name);                    \
329     JVMCIObject sig_str = VM_SYMBOL_TO_STRING(sig);                      \
330     JVMCIObject vmIntrinsicMethod = JVMCIENV->new_VMIntrinsicMethod(kls_str, name_str, sig_str, (jint) vmIntrinsics::id, \
331                                     (jboolean) vmIntrinsics::is_intrinsic_available(vmIntrinsics::id),                   \
332                                     is_c1_supported(vmIntrinsics::id),                       \
333                                     is_c2_supported(vmIntrinsics::id), JVMCI_CHECK_NULL);    \
334     JVMCIENV->put_object_at(vmIntrinsics, index++, vmIntrinsicMethod);   \
335   }
336 
337   // VM_INTRINSICS_DO does *not* iterate over vmIntrinsics::_none
338   VM_INTRINSICS_DO(VM_INTRINSIC_INFO, VM_SYMBOL_IGNORE, VM_SYMBOL_IGNORE, VM_SYMBOL_IGNORE, VM_ALIAS_IGNORE)
339 #undef VM_SYMBOL_TO_STRING
340 #undef VM_INTRINSIC_INFO
341 
342   assert(index == len, "must be");
343   return vmIntrinsics;
344 }
345 
346 #define PREDEFINED_CONFIG_FLAGS(do_bool_flag, do_int_flag, do_size_t_flag, do_intx_flag, do_uintx_flag) \
347   do_int_flag(AllocateInstancePrefetchLines)                               \
348   do_int_flag(AllocatePrefetchDistance)                                    \
349   do_intx_flag(AllocatePrefetchInstr)                                      \
350   do_int_flag(AllocatePrefetchLines)                                       \
351   do_int_flag(AllocatePrefetchStepSize)                                    \
352   do_int_flag(AllocatePrefetchStyle)                                       \
353   do_intx_flag(BciProfileWidth)                                            \
354   do_bool_flag(BootstrapJVMCI)                                             \
355   do_bool_flag(CITime)                                                     \
356   do_bool_flag(CITimeEach)                                                 \
357   do_size_t_flag(CodeCacheSegmentSize)                                     \
358   do_intx_flag(CodeEntryAlignment)                                         \
359   do_int_flag(ContendedPaddingWidth)                                       \
360   do_bool_flag(DontCompileHugeMethods)                                     \
361   do_bool_flag(EagerJVMCI)                                                 \
362   do_bool_flag(EnableContended)                                            \
363   do_bool_flag(FoldStableValues)                                           \
364   do_bool_flag(ForceUnreachable)                                           \
365   do_intx_flag(HugeMethodLimit)                                            \
366   do_bool_flag(Inline)                                                     \
367   do_intx_flag(JVMCICounterSize)                                           \
368   do_bool_flag(JVMCIPrintProperties)                                       \
369   do_int_flag(ObjectAlignmentInBytes)                                      \
370   do_bool_flag(PrintInlining)                                              \
371   do_bool_flag(ReduceInitialCardMarks)                                     \
372   do_bool_flag(RestrictContended)                                          \
373   do_intx_flag(StackReservedPages)                                         \
374   do_intx_flag(StackShadowPages)                                           \
375   do_uintx_flag(TLABWasteIncrement)                                        \
376   do_intx_flag(TypeProfileWidth)                                           \
377   do_bool_flag(UseAESIntrinsics)                                           \
378   X86_ONLY(do_int_flag(UseAVX))                                            \
379   do_bool_flag(UseCRC32Intrinsics)                                         \
380   do_bool_flag(UseAdler32Intrinsics)                                       \
381   do_bool_flag(UseCompressedClassPointers)                                 \
382   do_bool_flag(UseCompressedOops)                                          \
383   X86_ONLY(do_bool_flag(UseCountLeadingZerosInstruction))                  \
384   X86_ONLY(do_bool_flag(UseCountTrailingZerosInstruction))                 \
385   do_bool_flag(UseG1GC)                                                    \
386   do_bool_flag(UseParallelGC)                                              \
387   do_bool_flag(UseSerialGC)                                                \
388   do_bool_flag(UseZGC)                                                     \
389   do_bool_flag(UseEpsilonGC)                                               \
390   COMPILER2_PRESENT(do_bool_flag(UseMontgomeryMultiplyIntrinsic))          \
391   COMPILER2_PRESENT(do_bool_flag(UseMontgomerySquareIntrinsic))            \
392   COMPILER2_PRESENT(do_bool_flag(UseMulAddIntrinsic))                      \
393   COMPILER2_PRESENT(do_bool_flag(UseMultiplyToLenIntrinsic))               \
394   do_bool_flag(UsePopCountInstruction)                                     \
395   do_bool_flag(UseSHA1Intrinsics)                                          \
396   do_bool_flag(UseSHA256Intrinsics)                                        \
397   do_bool_flag(UseSHA512Intrinsics)                                        \
398   X86_ONLY(do_int_flag(UseSSE))                                            \
399   COMPILER2_PRESENT(do_bool_flag(UseSquareToLenIntrinsic))                 \
400   do_bool_flag(UseTLAB)                                                    \
401   do_bool_flag(VerifyOops)                                                 \
402 
403 #define BOXED_BOOLEAN(name, value) name = ((jboolean)(value) ? boxedTrue : boxedFalse)
404 #define BOXED_DOUBLE(name, value) do { jvalue p; p.d = (jdouble) (value); name = JVMCIENV->create_box(T_DOUBLE, &p, JVMCI_CHECK_NULL);} while(0)
405 #define BOXED_LONG(name, value) \
406   do { \
407     jvalue p; p.j = (jlong) (value); \
408     JVMCIObject* e = longs.get(p.j); \
409     if (e == nullptr) { \
410       JVMCIObject h = JVMCIENV->create_box(T_LONG, &p, JVMCI_CHECK_NULL); \
411       longs.put(p.j, h); \
412       name = h; \
413     } else { \
414       name = (*e); \
415     } \
416   } while (0)
417 
418 #define CSTRING_TO_JSTRING(name, value) \
419   JVMCIObject name; \
420   do { \
421     if (value != nullptr) { \
422       JVMCIObject* e = strings.get(value); \
423       if (e == nullptr) { \
424         JVMCIObject h = JVMCIENV->create_string(value, JVMCI_CHECK_NULL); \
425         strings.put(value, h); \
426         name = h; \
427       } else { \
428         name = (*e); \
429       } \
430     } \
431   } while (0)
432 
433 jobjectArray readConfiguration0(JNIEnv *env, JVMCI_TRAPS) {
434   JavaThread* THREAD = JavaThread::current(); // For exception macros.
435   ResourceHashtable<jlong, JVMCIObject> longs;
436   ResourceHashtable<const char*, JVMCIObject,
437                     256, AnyObj::RESOURCE_AREA, mtInternal,
438                     &CompilerToVM::cstring_hash, &CompilerToVM::cstring_equals> strings;
439 
440   jvalue prim;
441   prim.z = true;  JVMCIObject boxedTrue =  JVMCIENV->create_box(T_BOOLEAN, &prim, JVMCI_CHECK_NULL);
442   prim.z = false; JVMCIObject boxedFalse = JVMCIENV->create_box(T_BOOLEAN, &prim, JVMCI_CHECK_NULL);
443 
444   CompilerToVM::Data::initialize(JVMCI_CHECK_NULL);
445 
446   JVMCIENV->VMField_initialize(JVMCI_CHECK_NULL);
447   JVMCIENV->VMFlag_initialize(JVMCI_CHECK_NULL);
448   JVMCIENV->VMIntrinsicMethod_initialize(JVMCI_CHECK_NULL);
449 
450   int len = JVMCIVMStructs::localHotSpotVMStructs_count();
451   JVMCIObjectArray vmFields = JVMCIENV->new_VMField_array(len, JVMCI_CHECK_NULL);
452   for (int i = 0; i < len ; i++) {
453     VMStructEntry vmField = JVMCIVMStructs::localHotSpotVMStructs[i];
454     const size_t name_buf_size = strlen(vmField.typeName) + strlen(vmField.fieldName) + 2 + 1 /* "::" */;
455     char* name_buf = NEW_RESOURCE_ARRAY_IN_THREAD(THREAD, char, name_buf_size);
456     os::snprintf_checked(name_buf, name_buf_size, "%s::%s", vmField.typeName, vmField.fieldName);
457     CSTRING_TO_JSTRING(name, name_buf);
458     CSTRING_TO_JSTRING(type, vmField.typeString);
459     JVMCIObject box;
460     if (vmField.isStatic && vmField.typeString != nullptr) {
461       if (strcmp(vmField.typeString, "bool") == 0) {
462         BOXED_BOOLEAN(box, *(jbyte*) vmField.address);
463         assert(box.is_non_null(), "must have a box");
464       } else if (strcmp(vmField.typeString, "int") == 0 ||
465                  strcmp(vmField.typeString, "jint") == 0 ||
466                  strcmp(vmField.typeString, "uint") == 0 ||
467                  strcmp(vmField.typeString, "uint32_t") == 0) {
468         BOXED_LONG(box, *(jint*) vmField.address);
469         assert(box.is_non_null(), "must have a box");
470       } else if (strcmp(vmField.typeString, "uint64_t") == 0) {
471         BOXED_LONG(box, *(uint64_t*) vmField.address);
472         assert(box.is_non_null(), "must have a box");
473       } else if (strcmp(vmField.typeString, "address") == 0 ||
474                  strcmp(vmField.typeString, "intptr_t") == 0 ||
475                  strcmp(vmField.typeString, "uintptr_t") == 0 ||
476                  strcmp(vmField.typeString, "OopHandle") == 0 ||
477                  strcmp(vmField.typeString, "VM_Version::VM_Features") == 0 ||
478                  strcmp(vmField.typeString, "size_t") == 0 ||
479                  // All foo* types are addresses.
480                  vmField.typeString[strlen(vmField.typeString) - 1] == '*') {
481         BOXED_LONG(box, *((address*) vmField.address));
482         assert(box.is_non_null(), "must have a box");
483       } else {
484         JVMCI_ERROR_NULL("VM field %s has unsupported type %s", name_buf, vmField.typeString);
485       }
486     }
487     JVMCIObject vmFieldObj = JVMCIENV->new_VMField(name, type, vmField.offset, (jlong) vmField.address, box, JVMCI_CHECK_NULL);
488     JVMCIENV->put_object_at(vmFields, i, vmFieldObj);
489   }
490 
491   int ints_len = JVMCIVMStructs::localHotSpotVMIntConstants_count();
492   int longs_len = JVMCIVMStructs::localHotSpotVMLongConstants_count();
493   len = ints_len + longs_len;
494   JVMCIObjectArray vmConstants = JVMCIENV->new_Object_array(len * 2, JVMCI_CHECK_NULL);
495   int insert = 0;
496   for (int i = 0; i < ints_len ; i++) {
497     VMIntConstantEntry c = JVMCIVMStructs::localHotSpotVMIntConstants[i];
498     CSTRING_TO_JSTRING(name, c.name);
499     JVMCIObject value;
500     BOXED_LONG(value, c.value);
501     JVMCIENV->put_object_at(vmConstants, insert++, name);
502     JVMCIENV->put_object_at(vmConstants, insert++, value);
503   }
504   for (int i = 0; i < longs_len ; i++) {
505     VMLongConstantEntry c = JVMCIVMStructs::localHotSpotVMLongConstants[i];
506     CSTRING_TO_JSTRING(name, c.name);
507     JVMCIObject value;
508     BOXED_LONG(value, c.value);
509     JVMCIENV->put_object_at(vmConstants, insert++, name);
510     JVMCIENV->put_object_at(vmConstants, insert++, value);
511   }
512   assert(insert == len * 2, "must be");
513 
514   len = JVMCIVMStructs::localHotSpotVMAddresses_count();
515   JVMCIObjectArray vmAddresses = JVMCIENV->new_Object_array(len * 2, JVMCI_CHECK_NULL);
516   for (int i = 0; i < len ; i++) {
517     VMAddressEntry a = JVMCIVMStructs::localHotSpotVMAddresses[i];
518     CSTRING_TO_JSTRING(name, a.name);
519     JVMCIObject value;
520     BOXED_LONG(value, a.value);
521     JVMCIENV->put_object_at(vmAddresses, i * 2, name);
522     JVMCIENV->put_object_at(vmAddresses, i * 2 + 1, value);
523   }
524 
525 #define COUNT_FLAG(ignore) +1
526 #ifdef ASSERT
527 #define CHECK_FLAG(type, name) { \
528   const JVMFlag* flag = JVMFlag::find_declared_flag(#name); \
529   assert(flag != nullptr, "No such flag named " #name); \
530   assert(flag->is_##type(), "JVMFlag " #name " is not of type " #type); \
531 }
532 #else
533 #define CHECK_FLAG(type, name)
534 #endif
535 
536 #define ADD_FLAG(type, name, convert) {                                                \
537   CHECK_FLAG(type, name)                                                               \
538   CSTRING_TO_JSTRING(fname, #name);                                                    \
539   CSTRING_TO_JSTRING(ftype, #type);                                                    \
540   convert(value, name);                                                                \
541   JVMCIObject vmFlagObj = JVMCIENV->new_VMFlag(fname, ftype, value, JVMCI_CHECK_NULL); \
542   JVMCIENV->put_object_at(vmFlags, i++, vmFlagObj);                                    \
543 }
544 #define ADD_BOOL_FLAG(name)   ADD_FLAG(bool, name, BOXED_BOOLEAN)
545 #define ADD_INT_FLAG(name)    ADD_FLAG(int, name, BOXED_LONG)
546 #define ADD_SIZE_T_FLAG(name) ADD_FLAG(size_t, name, BOXED_LONG)
547 #define ADD_INTX_FLAG(name)   ADD_FLAG(intx, name, BOXED_LONG)
548 #define ADD_UINTX_FLAG(name)  ADD_FLAG(uintx, name, BOXED_LONG)
549 
550   len = 0 + PREDEFINED_CONFIG_FLAGS(COUNT_FLAG, COUNT_FLAG, COUNT_FLAG, COUNT_FLAG, COUNT_FLAG);
551   JVMCIObjectArray vmFlags = JVMCIENV->new_VMFlag_array(len, JVMCI_CHECK_NULL);
552   int i = 0;
553   JVMCIObject value;
554   PREDEFINED_CONFIG_FLAGS(ADD_BOOL_FLAG, ADD_INT_FLAG, ADD_SIZE_T_FLAG, ADD_INTX_FLAG, ADD_UINTX_FLAG)
555 
556   JVMCIObjectArray vmIntrinsics = CompilerToVM::initialize_intrinsics(JVMCI_CHECK_NULL);
557 
558   JVMCIObjectArray data = JVMCIENV->new_Object_array(5, JVMCI_CHECK_NULL);
559   JVMCIENV->put_object_at(data, 0, vmFields);
560   JVMCIENV->put_object_at(data, 1, vmConstants);
561   JVMCIENV->put_object_at(data, 2, vmAddresses);
562   JVMCIENV->put_object_at(data, 3, vmFlags);
563   JVMCIENV->put_object_at(data, 4, vmIntrinsics);
564 
565   return JVMCIENV->get_jobjectArray(data);
566 }