1 /*
2 * Copyright (c) 1997, 2016, 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
25 #include "precompiled.hpp"
26 #include "classfile/classFileStream.hpp"
27 #include "classfile/classLoader.hpp"
28 #include "classfile/classLoaderData.inline.hpp"
29 #include "classfile/javaAssertions.hpp"
30 #include "classfile/javaClasses.inline.hpp"
31 #include "classfile/moduleEntry.hpp"
32 #include "classfile/modules.hpp"
33 #include "classfile/packageEntry.hpp"
34 #include "classfile/stringTable.hpp"
35 #include "classfile/systemDictionary.hpp"
36 #include "classfile/vmSymbols.hpp"
37 #include "gc/shared/barrierSet.inline.hpp"
38 #include "gc/shared/collectedHeap.inline.hpp"
39 #include "interpreter/bytecode.hpp"
40 #include "memory/oopFactory.hpp"
41 #include "memory/resourceArea.hpp"
42 #include "memory/universe.inline.hpp"
43 #include "oops/fieldStreams.hpp"
44 #include "oops/instanceKlass.hpp"
45 #include "oops/method.hpp"
46 #include "oops/objArrayKlass.hpp"
47 #include "oops/objArrayOop.inline.hpp"
48 #include "oops/oop.inline.hpp"
49 #include "prims/jvm.h"
50 #include "prims/jvm_misc.hpp"
51 #include "prims/jvmtiExport.hpp"
52 #include "prims/jvmtiThreadState.hpp"
53 #include "prims/nativeLookup.hpp"
54 #include "prims/privilegedStack.hpp"
55 #include "prims/stackwalk.hpp"
56 #include "runtime/arguments.hpp"
57 #include "runtime/atomic.inline.hpp"
58 #include "runtime/handles.inline.hpp"
59 #include "runtime/init.hpp"
60 #include "runtime/interfaceSupport.hpp"
61 #include "runtime/java.hpp"
62 #include "runtime/javaCalls.hpp"
63 #include "runtime/jfieldIDWorkaround.hpp"
64 #include "runtime/orderAccess.inline.hpp"
65 #include "runtime/os.inline.hpp"
66 #include "runtime/perfData.hpp"
67 #include "runtime/reflection.hpp"
68 #include "runtime/thread.inline.hpp"
69 #include "runtime/vframe.hpp"
70 #include "runtime/vm_operations.hpp"
71 #include "runtime/vm_version.hpp"
72 #include "services/attachListener.hpp"
73 #include "services/management.hpp"
74 #include "services/threadService.hpp"
75 #include "trace/tracing.hpp"
76 #include "utilities/copy.hpp"
77 #include "utilities/defaultStream.hpp"
78 #include "utilities/dtrace.hpp"
79 #include "utilities/events.hpp"
80 #include "utilities/histogram.hpp"
81 #include "utilities/macros.hpp"
82 #include "utilities/utf8.hpp"
83 #if INCLUDE_CDS
84 #include "classfile/sharedClassUtil.hpp"
85 #include "classfile/systemDictionaryShared.hpp"
86 #endif
87 #ifdef TARGET_OS_FAMILY_linux
88 # include "jvm_linux.h"
89 #endif
90 #ifdef TARGET_OS_FAMILY_solaris
91 # include "jvm_solaris.h"
92 #endif
93 #ifdef TARGET_OS_FAMILY_windows
94 # include "jvm_windows.h"
95 #endif
96 #ifdef TARGET_OS_FAMILY_aix
97 # include "jvm_aix.h"
98 #endif
99 #ifdef TARGET_OS_FAMILY_bsd
100 # include "jvm_bsd.h"
101 #endif
102
103 #include <errno.h>
104
105 /*
106 NOTE about use of any ctor or function call that can trigger a safepoint/GC:
107 such ctors and calls MUST NOT come between an oop declaration/init and its
108 usage because if objects are move this may cause various memory stomps, bus
109 errors and segfaults. Here is a cookbook for causing so called "naked oop
110 failures":
111
112 JVM_ENTRY(jobjectArray, JVM_GetClassDeclaredFields<etc> {
113 JVMWrapper("JVM_GetClassDeclaredFields");
114
115 // Object address to be held directly in mirror & not visible to GC
116 oop mirror = JNIHandles::resolve_non_null(ofClass);
117
118 // If this ctor can hit a safepoint, moving objects around, then
119 ComplexConstructor foo;
120
121 // Boom! mirror may point to JUNK instead of the intended object
122 (some dereference of mirror)
123
124 // Here's another call that may block for GC, making mirror stale
125 MutexLocker ml(some_lock);
126
127 // And here's an initializer that can result in a stale oop
128 // all in one step.
129 oop o = call_that_can_throw_exception(TRAPS);
130
131
132 The solution is to keep the oop declaration BELOW the ctor or function
133 call that might cause a GC, do another resolve to reassign the oop, or
134 consider use of a Handle instead of an oop so there is immunity from object
135 motion. But note that the "QUICK" entries below do not have a handlemark
136 and thus can only support use of handles passed in.
137 */
138
139 static void trace_class_resolution_impl(Klass* to_class, TRAPS) {
140 ResourceMark rm;
141 int line_number = -1;
142 const char * source_file = NULL;
143 const char * trace = "explicit";
144 InstanceKlass* caller = NULL;
145 JavaThread* jthread = JavaThread::current();
146 if (jthread->has_last_Java_frame()) {
147 vframeStream vfst(jthread);
148
149 // scan up the stack skipping ClassLoader, AccessController and PrivilegedAction frames
150 TempNewSymbol access_controller = SymbolTable::new_symbol("java/security/AccessController", CHECK);
151 Klass* access_controller_klass = SystemDictionary::resolve_or_fail(access_controller, false, CHECK);
152 TempNewSymbol privileged_action = SymbolTable::new_symbol("java/security/PrivilegedAction", CHECK);
153 Klass* privileged_action_klass = SystemDictionary::resolve_or_fail(privileged_action, false, CHECK);
154
155 Method* last_caller = NULL;
156
157 while (!vfst.at_end()) {
158 Method* m = vfst.method();
159 if (!vfst.method()->method_holder()->is_subclass_of(SystemDictionary::ClassLoader_klass())&&
160 !vfst.method()->method_holder()->is_subclass_of(access_controller_klass) &&
161 !vfst.method()->method_holder()->is_subclass_of(privileged_action_klass)) {
162 break;
163 }
164 last_caller = m;
165 vfst.next();
166 }
167 // if this is called from Class.forName0 and that is called from Class.forName,
168 // then print the caller of Class.forName. If this is Class.loadClass, then print
169 // that caller, otherwise keep quiet since this should be picked up elsewhere.
170 bool found_it = false;
171 if (!vfst.at_end() &&
172 vfst.method()->method_holder()->name() == vmSymbols::java_lang_Class() &&
173 vfst.method()->name() == vmSymbols::forName0_name()) {
174 vfst.next();
175 if (!vfst.at_end() &&
176 vfst.method()->method_holder()->name() == vmSymbols::java_lang_Class() &&
177 vfst.method()->name() == vmSymbols::forName_name()) {
178 vfst.next();
179 found_it = true;
180 }
181 } else if (last_caller != NULL &&
182 last_caller->method_holder()->name() ==
183 vmSymbols::java_lang_ClassLoader() &&
184 (last_caller->name() == vmSymbols::loadClassInternal_name() ||
185 last_caller->name() == vmSymbols::loadClass_name())) {
186 found_it = true;
187 } else if (!vfst.at_end()) {
188 if (vfst.method()->is_native()) {
189 // JNI call
190 found_it = true;
191 }
192 }
193 if (found_it && !vfst.at_end()) {
194 // found the caller
195 caller = vfst.method()->method_holder();
196 line_number = vfst.method()->line_number_from_bci(vfst.bci());
197 if (line_number == -1) {
198 // show method name if it's a native method
199 trace = vfst.method()->name_and_sig_as_C_string();
200 }
201 Symbol* s = caller->source_file_name();
202 if (s != NULL) {
203 source_file = s->as_C_string();
204 }
205 }
206 }
207 if (caller != NULL) {
208 if (to_class != caller) {
209 const char * from = caller->external_name();
210 const char * to = to_class->external_name();
211 // print in a single call to reduce interleaving between threads
212 if (source_file != NULL) {
213 log_debug(classresolve)("%s %s %s:%d (%s)", from, to, source_file, line_number, trace);
214 } else {
215 log_debug(classresolve)("%s %s (%s)", from, to, trace);
216 }
217 }
218 }
219 }
220
221 void trace_class_resolution(Klass* to_class) {
222 EXCEPTION_MARK;
223 trace_class_resolution_impl(to_class, THREAD);
224 if (HAS_PENDING_EXCEPTION) {
225 CLEAR_PENDING_EXCEPTION;
226 }
227 }
228
229 // Wrapper to trace JVM functions
230
231 #ifdef ASSERT
232 Histogram* JVMHistogram;
233 volatile jint JVMHistogram_lock = 0;
234
235 class JVMHistogramElement : public HistogramElement {
236 public:
237 JVMHistogramElement(const char* name);
238 };
239
240 JVMHistogramElement::JVMHistogramElement(const char* elementName) {
241 _name = elementName;
242 uintx count = 0;
243
244 while (Atomic::cmpxchg(1, &JVMHistogram_lock, 0) != 0) {
245 while (OrderAccess::load_acquire(&JVMHistogram_lock) != 0) {
246 count +=1;
247 if ( (WarnOnStalledSpinLock > 0)
248 && (count % WarnOnStalledSpinLock == 0)) {
249 warning("JVMHistogram_lock seems to be stalled");
250 }
251 }
252 }
253
254 if(JVMHistogram == NULL)
255 JVMHistogram = new Histogram("JVM Call Counts",100);
256
257 JVMHistogram->add_element(this);
258 Atomic::dec(&JVMHistogram_lock);
259 }
260
261 #define JVMCountWrapper(arg) \
262 static JVMHistogramElement* e = new JVMHistogramElement(arg); \
263 if (e != NULL) e->increment_count(); // Due to bug in VC++, we need a NULL check here eventhough it should never happen!
264
265 #define JVMWrapper(arg) JVMCountWrapper(arg);
266 #else
267 #define JVMWrapper(arg)
268 #endif
269
270
271 // Interface version /////////////////////////////////////////////////////////////////////
272
273
274 JVM_LEAF(jint, JVM_GetInterfaceVersion())
275 return JVM_INTERFACE_VERSION;
276 JVM_END
277
278
279 // java.lang.System //////////////////////////////////////////////////////////////////////
280
281
282 JVM_LEAF(jlong, JVM_CurrentTimeMillis(JNIEnv *env, jclass ignored))
283 JVMWrapper("JVM_CurrentTimeMillis");
284 return os::javaTimeMillis();
285 JVM_END
286
287 JVM_LEAF(jlong, JVM_NanoTime(JNIEnv *env, jclass ignored))
288 JVMWrapper("JVM_NanoTime");
289 return os::javaTimeNanos();
290 JVM_END
291
292 // The function below is actually exposed by jdk.internal.misc.VM and not
293 // java.lang.System, but we choose to keep it here so that it stays next
294 // to JVM_CurrentTimeMillis and JVM_NanoTime
295
296 const jlong MAX_DIFF_SECS = CONST64(0x0100000000); // 2^32
297 const jlong MIN_DIFF_SECS = -MAX_DIFF_SECS; // -2^32
298
299 JVM_LEAF(jlong, JVM_GetNanoTimeAdjustment(JNIEnv *env, jclass ignored, jlong offset_secs))
300 JVMWrapper("JVM_GetNanoTimeAdjustment");
301 jlong seconds;
302 jlong nanos;
303
304 os::javaTimeSystemUTC(seconds, nanos);
305
306 // We're going to verify that the result can fit in a long.
307 // For that we need the difference in seconds between 'seconds'
308 // and 'offset_secs' to be such that:
309 // |seconds - offset_secs| < (2^63/10^9)
310 // We're going to approximate 10^9 ~< 2^30 (1000^3 ~< 1024^3)
311 // which makes |seconds - offset_secs| < 2^33
312 // and we will prefer +/- 2^32 as the maximum acceptable diff
313 // as 2^32 has a more natural feel than 2^33...
314 //
315 // So if |seconds - offset_secs| >= 2^32 - we return a special
316 // sentinel value (-1) which the caller should take as an
317 // exception value indicating that the offset given to us is
318 // too far from range of the current time - leading to too big
319 // a nano adjustment. The caller is expected to recover by
320 // computing a more accurate offset and calling this method
321 // again. (For the record 2^32 secs is ~136 years, so that
322 // should rarely happen)
323 //
324 jlong diff = seconds - offset_secs;
325 if (diff >= MAX_DIFF_SECS || diff <= MIN_DIFF_SECS) {
326 return -1; // sentinel value: the offset is too far off the target
327 }
328
329 // return the adjustment. If you compute a time by adding
330 // this number of nanoseconds along with the number of seconds
331 // in the offset you should get the current UTC time.
332 return (diff * (jlong)1000000000) + nanos;
333 JVM_END
334
335 JVM_ENTRY(void, JVM_ArrayCopy(JNIEnv *env, jclass ignored, jobject src, jint src_pos,
336 jobject dst, jint dst_pos, jint length))
337 JVMWrapper("JVM_ArrayCopy");
338 // Check if we have null pointers
339 if (src == NULL || dst == NULL) {
340 THROW(vmSymbols::java_lang_NullPointerException());
341 }
342 arrayOop s = arrayOop(JNIHandles::resolve_non_null(src));
343 arrayOop d = arrayOop(JNIHandles::resolve_non_null(dst));
344 assert(s->is_oop(), "JVM_ArrayCopy: src not an oop");
345 assert(d->is_oop(), "JVM_ArrayCopy: dst not an oop");
346 // Do copy
347 s->klass()->copy_array(s, src_pos, d, dst_pos, length, thread);
348 JVM_END
349
350
351 static void set_property(Handle props, const char* key, const char* value, TRAPS) {
352 JavaValue r(T_OBJECT);
353 // public synchronized Object put(Object key, Object value);
354 HandleMark hm(THREAD);
355 Handle key_str = java_lang_String::create_from_platform_dependent_str(key, CHECK);
356 Handle value_str = java_lang_String::create_from_platform_dependent_str((value != NULL ? value : ""), CHECK);
357 JavaCalls::call_virtual(&r,
358 props,
359 KlassHandle(THREAD, SystemDictionary::Properties_klass()),
360 vmSymbols::put_name(),
361 vmSymbols::object_object_object_signature(),
362 key_str,
363 value_str,
364 THREAD);
365 }
366
367
368 #define PUTPROP(props, name, value) set_property((props), (name), (value), CHECK_(properties));
369
370
371 JVM_ENTRY(jobject, JVM_InitProperties(JNIEnv *env, jobject properties))
372 JVMWrapper("JVM_InitProperties");
373 ResourceMark rm;
374
375 Handle props(THREAD, JNIHandles::resolve_non_null(properties));
376
377 // System property list includes both user set via -D option and
378 // jvm system specific properties.
379 for (SystemProperty* p = Arguments::system_properties(); p != NULL; p = p->next()) {
380 PUTPROP(props, p->key(), p->value());
381 }
382
383 // Convert the -XX:MaxDirectMemorySize= command line flag
384 // to the sun.nio.MaxDirectMemorySize property.
385 // Do this after setting user properties to prevent people
386 // from setting the value with a -D option, as requested.
387 {
388 if (FLAG_IS_DEFAULT(MaxDirectMemorySize)) {
389 PUTPROP(props, "sun.nio.MaxDirectMemorySize", "-1");
390 } else {
391 char as_chars[256];
392 jio_snprintf(as_chars, sizeof(as_chars), SIZE_FORMAT, MaxDirectMemorySize);
393 PUTPROP(props, "sun.nio.MaxDirectMemorySize", as_chars);
394 }
395 }
396
397 // JVM monitoring and management support
398 // Add the sun.management.compiler property for the compiler's name
399 {
400 #undef CSIZE
401 #if defined(_LP64) || defined(_WIN64)
402 #define CSIZE "64-Bit "
403 #else
404 #define CSIZE
405 #endif // 64bit
406
407 #ifdef TIERED
408 const char* compiler_name = "HotSpot " CSIZE "Tiered Compilers";
409 #else
410 #if defined(COMPILER1)
411 const char* compiler_name = "HotSpot " CSIZE "Client Compiler";
412 #elif defined(COMPILER2)
413 const char* compiler_name = "HotSpot " CSIZE "Server Compiler";
414 #elif INCLUDE_JVMCI
415 #error "INCLUDE_JVMCI should imply TIERED"
416 #else
417 const char* compiler_name = "";
418 #endif // compilers
419 #endif // TIERED
420
421 if (*compiler_name != '\0' &&
422 (Arguments::mode() != Arguments::_int)) {
423 PUTPROP(props, "sun.management.compiler", compiler_name);
424 }
425 }
426
427 return properties;
428 JVM_END
429
430
431 /*
432 * Return the temporary directory that the VM uses for the attach
433 * and perf data files.
434 *
435 * It is important that this directory is well-known and the
436 * same for all VM instances. It cannot be affected by configuration
437 * variables such as java.io.tmpdir.
438 */
439 JVM_ENTRY(jstring, JVM_GetTemporaryDirectory(JNIEnv *env))
440 JVMWrapper("JVM_GetTemporaryDirectory");
441 HandleMark hm(THREAD);
442 const char* temp_dir = os::get_temp_directory();
443 Handle h = java_lang_String::create_from_platform_dependent_str(temp_dir, CHECK_NULL);
444 return (jstring) JNIHandles::make_local(env, h());
445 JVM_END
446
447
448 // java.lang.Runtime /////////////////////////////////////////////////////////////////////////
449
450 extern volatile jint vm_created;
451
452 JVM_ENTRY_NO_ENV(void, JVM_Halt(jint code))
453 before_exit(thread);
454 vm_exit(code);
455 JVM_END
456
457
458 JVM_ENTRY_NO_ENV(void, JVM_GC(void))
459 JVMWrapper("JVM_GC");
460 if (!DisableExplicitGC) {
461 Universe::heap()->collect(GCCause::_java_lang_system_gc);
462 }
463 JVM_END
464
465
466 JVM_LEAF(jlong, JVM_MaxObjectInspectionAge(void))
467 JVMWrapper("JVM_MaxObjectInspectionAge");
468 return Universe::heap()->millis_since_last_gc();
469 JVM_END
470
471
472 static inline jlong convert_size_t_to_jlong(size_t val) {
473 // In the 64-bit vm, a size_t can overflow a jlong (which is signed).
474 NOT_LP64 (return (jlong)val;)
475 LP64_ONLY(return (jlong)MIN2(val, (size_t)max_jlong);)
476 }
477
478 JVM_ENTRY_NO_ENV(jlong, JVM_TotalMemory(void))
479 JVMWrapper("JVM_TotalMemory");
480 size_t n = Universe::heap()->capacity();
481 return convert_size_t_to_jlong(n);
482 JVM_END
483
484
485 JVM_ENTRY_NO_ENV(jlong, JVM_FreeMemory(void))
486 JVMWrapper("JVM_FreeMemory");
487 CollectedHeap* ch = Universe::heap();
488 size_t n;
489 {
490 MutexLocker x(Heap_lock);
491 n = ch->capacity() - ch->used();
492 }
493 return convert_size_t_to_jlong(n);
494 JVM_END
495
496
497 JVM_ENTRY_NO_ENV(jlong, JVM_MaxMemory(void))
498 JVMWrapper("JVM_MaxMemory");
499 size_t n = Universe::heap()->max_capacity();
500 return convert_size_t_to_jlong(n);
501 JVM_END
502
503
504 JVM_ENTRY_NO_ENV(jint, JVM_ActiveProcessorCount(void))
505 JVMWrapper("JVM_ActiveProcessorCount");
506 return os::active_processor_count();
507 JVM_END
508
509
510
511 // java.lang.Throwable //////////////////////////////////////////////////////
512
513
514 JVM_ENTRY(void, JVM_FillInStackTrace(JNIEnv *env, jobject receiver))
515 JVMWrapper("JVM_FillInStackTrace");
516 Handle exception(thread, JNIHandles::resolve_non_null(receiver));
517 java_lang_Throwable::fill_in_stack_trace(exception);
518 JVM_END
519
520
521 JVM_ENTRY(void, JVM_GetStackTraceElements(JNIEnv *env, jobject throwable, jobjectArray stackTrace))
522 JVMWrapper("JVM_GetStackTraceElements");
523 Handle exception(THREAD, JNIHandles::resolve(throwable));
524 objArrayOop st = objArrayOop(JNIHandles::resolve(stackTrace));
525 objArrayHandle stack_trace(THREAD, st);
526 // Fill in the allocated stack trace
527 java_lang_Throwable::get_stack_trace_elements(exception, stack_trace, CHECK);
528 JVM_END
529
530
531 // java.lang.StackWalker //////////////////////////////////////////////////////
532
533
534 JVM_ENTRY(jobject, JVM_CallStackWalk(JNIEnv *env, jobject stackStream, jlong mode,
535 jint skip_frames, jint frame_count, jint start_index,
536 jobjectArray frames))
537 JVMWrapper("JVM_CallStackWalk");
538 JavaThread* jt = (JavaThread*) THREAD;
539 if (!jt->is_Java_thread() || !jt->has_last_Java_frame()) {
540 THROW_MSG_(vmSymbols::java_lang_InternalError(), "doStackWalk: no stack trace", NULL);
541 }
542
543 Handle stackStream_h(THREAD, JNIHandles::resolve_non_null(stackStream));
544
545 // frames array is a Class<?>[] array when only getting caller reference,
546 // and a StackFrameInfo[] array (or derivative) otherwise. It should never
547 // be null.
548 objArrayOop fa = objArrayOop(JNIHandles::resolve_non_null(frames));
549 objArrayHandle frames_array_h(THREAD, fa);
550
551 int limit = start_index + frame_count;
552 if (frames_array_h->length() < limit) {
553 THROW_MSG_(vmSymbols::java_lang_IllegalArgumentException(), "not enough space in buffers", NULL);
554 }
555
556 Handle result = StackWalk::walk(stackStream_h, mode, skip_frames, frame_count,
557 start_index, frames_array_h, CHECK_NULL);
558 return JNIHandles::make_local(env, result());
559 JVM_END
560
561
562 JVM_ENTRY(jint, JVM_MoreStackWalk(JNIEnv *env, jobject stackStream, jlong mode, jlong anchor,
563 jint frame_count, jint start_index,
564 jobjectArray frames))
565 JVMWrapper("JVM_MoreStackWalk");
566 JavaThread* jt = (JavaThread*) THREAD;
567
568 // frames array is a Class<?>[] array when only getting caller reference,
569 // and a StackFrameInfo[] array (or derivative) otherwise. It should never
570 // be null.
571 objArrayOop fa = objArrayOop(JNIHandles::resolve_non_null(frames));
572 objArrayHandle frames_array_h(THREAD, fa);
573
574 int limit = start_index+frame_count;
575 if (frames_array_h->length() < limit) {
576 THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(), "not enough space in buffers");
577 }
578
579 Handle stackStream_h(THREAD, JNIHandles::resolve_non_null(stackStream));
580 return StackWalk::moreFrames(stackStream_h, mode, anchor, frame_count,
581 start_index, frames_array_h, THREAD);
582 JVM_END
583
584 JVM_ENTRY(void, JVM_ToStackTraceElement(JNIEnv *env, jobject frame, jobject stack))
585 JVMWrapper("JVM_ToStackTraceElement");
586 Handle stack_frame_info(THREAD, JNIHandles::resolve_non_null(frame));
587 Handle stack_trace_element(THREAD, JNIHandles::resolve_non_null(stack));
588 java_lang_StackFrameInfo::to_stack_trace_element(stack_frame_info, stack_trace_element, THREAD);
589 JVM_END
590
591 // java.lang.Object ///////////////////////////////////////////////
592
593
594 JVM_ENTRY(jint, JVM_IHashCode(JNIEnv* env, jobject handle))
595 JVMWrapper("JVM_IHashCode");
596 // as implemented in the classic virtual machine; return 0 if object is NULL
597 return handle == NULL ? 0 : ObjectSynchronizer::FastHashCode (THREAD, JNIHandles::resolve_non_null(handle)) ;
598 JVM_END
599
600
601 JVM_ENTRY(void, JVM_MonitorWait(JNIEnv* env, jobject handle, jlong ms))
602 JVMWrapper("JVM_MonitorWait");
603 Handle obj(THREAD, JNIHandles::resolve_non_null(handle));
604 JavaThreadInObjectWaitState jtiows(thread, ms != 0);
605 if (JvmtiExport::should_post_monitor_wait()) {
606 JvmtiExport::post_monitor_wait((JavaThread *)THREAD, (oop)obj(), ms);
607
608 // The current thread already owns the monitor and it has not yet
609 // been added to the wait queue so the current thread cannot be
610 // made the successor. This means that the JVMTI_EVENT_MONITOR_WAIT
611 // event handler cannot accidentally consume an unpark() meant for
612 // the ParkEvent associated with this ObjectMonitor.
613 }
614 ObjectSynchronizer::wait(obj, ms, CHECK);
615 JVM_END
616
617
618 JVM_ENTRY(void, JVM_MonitorNotify(JNIEnv* env, jobject handle))
619 JVMWrapper("JVM_MonitorNotify");
620 Handle obj(THREAD, JNIHandles::resolve_non_null(handle));
621 ObjectSynchronizer::notify(obj, CHECK);
622 JVM_END
623
624
625 JVM_ENTRY(void, JVM_MonitorNotifyAll(JNIEnv* env, jobject handle))
626 JVMWrapper("JVM_MonitorNotifyAll");
627 Handle obj(THREAD, JNIHandles::resolve_non_null(handle));
628 ObjectSynchronizer::notifyall(obj, CHECK);
629 JVM_END
630
631
632 JVM_ENTRY(jobject, JVM_Clone(JNIEnv* env, jobject handle))
633 JVMWrapper("JVM_Clone");
634 Handle obj(THREAD, JNIHandles::resolve_non_null(handle));
635 const KlassHandle klass (THREAD, obj->klass());
636 JvmtiVMObjectAllocEventCollector oam;
637
638 #ifdef ASSERT
639 // Just checking that the cloneable flag is set correct
640 if (obj->is_array()) {
641 guarantee(klass->is_cloneable(), "all arrays are cloneable");
642 } else {
643 guarantee(obj->is_instance(), "should be instanceOop");
644 bool cloneable = klass->is_subtype_of(SystemDictionary::Cloneable_klass());
645 guarantee(cloneable == klass->is_cloneable(), "incorrect cloneable flag");
646 }
647 #endif
648
649 // Check if class of obj supports the Cloneable interface.
650 // All arrays are considered to be cloneable (See JLS 20.1.5)
651 if (!klass->is_cloneable()) {
652 ResourceMark rm(THREAD);
653 THROW_MSG_0(vmSymbols::java_lang_CloneNotSupportedException(), klass->external_name());
654 }
655
656 // Make shallow object copy
657 const int size = obj->size();
658 oop new_obj_oop = NULL;
659 if (obj->is_array()) {
660 const int length = ((arrayOop)obj())->length();
661 new_obj_oop = CollectedHeap::array_allocate(klass, size, length, CHECK_NULL);
662 } else {
663 new_obj_oop = CollectedHeap::obj_allocate(klass, size, CHECK_NULL);
664 }
665
666 // 4839641 (4840070): We must do an oop-atomic copy, because if another thread
667 // is modifying a reference field in the clonee, a non-oop-atomic copy might
668 // be suspended in the middle of copying the pointer and end up with parts
669 // of two different pointers in the field. Subsequent dereferences will crash.
670 // 4846409: an oop-copy of objects with long or double fields or arrays of same
671 // won't copy the longs/doubles atomically in 32-bit vm's, so we copy jlongs instead
672 // of oops. We know objects are aligned on a minimum of an jlong boundary.
673 // The same is true of StubRoutines::object_copy and the various oop_copy
674 // variants, and of the code generated by the inline_native_clone intrinsic.
675 assert(MinObjAlignmentInBytes >= BytesPerLong, "objects misaligned");
676 Copy::conjoint_jlongs_atomic((jlong*)obj(), (jlong*)new_obj_oop,
677 (size_t)align_object_size(size) / HeapWordsPerLong);
678 // Clear the header
679 new_obj_oop->init_mark();
680
681 // Store check (mark entire object and let gc sort it out)
682 BarrierSet* bs = Universe::heap()->barrier_set();
683 assert(bs->has_write_region_opt(), "Barrier set does not have write_region");
684 bs->write_region(MemRegion((HeapWord*)new_obj_oop, size));
685
686 Handle new_obj(THREAD, new_obj_oop);
687 // Special handling for MemberNames. Since they contain Method* metadata, they
688 // must be registered so that RedefineClasses can fix metadata contained in them.
689 if (java_lang_invoke_MemberName::is_instance(new_obj()) &&
690 java_lang_invoke_MemberName::is_method(new_obj())) {
691 Method* method = (Method*)java_lang_invoke_MemberName::vmtarget(new_obj());
692 // MemberName may be unresolved, so doesn't need registration until resolved.
693 if (method != NULL) {
694 methodHandle m(THREAD, method);
695 // This can safepoint and redefine method, so need both new_obj and method
696 // in a handle, for two different reasons. new_obj can move, method can be
697 // deleted if nothing is using it on the stack.
698 m->method_holder()->add_member_name(new_obj());
699 }
700 }
701
702 // Caution: this involves a java upcall, so the clone should be
703 // "gc-robust" by this stage.
704 if (klass->has_finalizer()) {
705 assert(obj->is_instance(), "should be instanceOop");
706 new_obj_oop = InstanceKlass::register_finalizer(instanceOop(new_obj()), CHECK_NULL);
707 new_obj = Handle(THREAD, new_obj_oop);
708 }
709
710 return JNIHandles::make_local(env, new_obj());
711 JVM_END
712
713 // java.io.File ///////////////////////////////////////////////////////////////
714
715 JVM_LEAF(char*, JVM_NativePath(char* path))
716 JVMWrapper("JVM_NativePath");
717 return os::native_path(path);
718 JVM_END
719
720
721 // Misc. class handling ///////////////////////////////////////////////////////////
722
723
724 JVM_ENTRY(jclass, JVM_GetCallerClass(JNIEnv* env, int depth))
725 JVMWrapper("JVM_GetCallerClass");
726
727 // Pre-JDK 8 and early builds of JDK 8 don't have a CallerSensitive annotation; or
728 // sun.reflect.Reflection.getCallerClass with a depth parameter is provided
729 // temporarily for existing code to use until a replacement API is defined.
730 if (SystemDictionary::reflect_CallerSensitive_klass() == NULL || depth != JVM_CALLER_DEPTH) {
731 Klass* k = thread->security_get_caller_class(depth);
732 return (k == NULL) ? NULL : (jclass) JNIHandles::make_local(env, k->java_mirror());
733 }
734
735 // Getting the class of the caller frame.
736 //
737 // The call stack at this point looks something like this:
738 //
739 // [0] [ @CallerSensitive public sun.reflect.Reflection.getCallerClass ]
740 // [1] [ @CallerSensitive API.method ]
741 // [.] [ (skipped intermediate frames) ]
742 // [n] [ caller ]
743 vframeStream vfst(thread);
744 // Cf. LibraryCallKit::inline_native_Reflection_getCallerClass
745 for (int n = 0; !vfst.at_end(); vfst.security_next(), n++) {
746 Method* m = vfst.method();
747 assert(m != NULL, "sanity");
748 switch (n) {
749 case 0:
750 // This must only be called from Reflection.getCallerClass
751 if (m->intrinsic_id() != vmIntrinsics::_getCallerClass) {
752 THROW_MSG_NULL(vmSymbols::java_lang_InternalError(), "JVM_GetCallerClass must only be called from Reflection.getCallerClass");
753 }
754 // fall-through
755 case 1:
756 // Frame 0 and 1 must be caller sensitive.
757 if (!m->caller_sensitive()) {
758 THROW_MSG_NULL(vmSymbols::java_lang_InternalError(), err_msg("CallerSensitive annotation expected at frame %d", n));
759 }
760 break;
761 default:
762 if (!m->is_ignored_by_security_stack_walk()) {
763 // We have reached the desired frame; return the holder class.
764 return (jclass) JNIHandles::make_local(env, m->method_holder()->java_mirror());
765 }
766 break;
767 }
768 }
769 return NULL;
770 JVM_END
771
772
773 JVM_ENTRY(jclass, JVM_FindPrimitiveClass(JNIEnv* env, const char* utf))
774 JVMWrapper("JVM_FindPrimitiveClass");
775 oop mirror = NULL;
776 BasicType t = name2type(utf);
777 if (t != T_ILLEGAL && t != T_OBJECT && t != T_ARRAY) {
778 mirror = Universe::java_mirror(t);
779 }
780 if (mirror == NULL) {
781 THROW_MSG_0(vmSymbols::java_lang_ClassNotFoundException(), (char*) utf);
782 } else {
783 return (jclass) JNIHandles::make_local(env, mirror);
784 }
785 JVM_END
786
787
788 // Returns a class loaded by the bootstrap class loader; or null
789 // if not found. ClassNotFoundException is not thrown.
790 // FindClassFromBootLoader is exported to the launcher for windows.
791 JVM_ENTRY(jclass, JVM_FindClassFromBootLoader(JNIEnv* env,
792 const char* name))
793 JVMWrapper("JVM_FindClassFromBootLoader");
794
795 // Java libraries should ensure that name is never null...
796 if (name == NULL || (int)strlen(name) > Symbol::max_length()) {
797 // It's impossible to create this class; the name cannot fit
798 // into the constant pool.
799 return NULL;
800 }
801
802 TempNewSymbol h_name = SymbolTable::new_symbol(name, CHECK_NULL);
803 Klass* k = SystemDictionary::resolve_or_null(h_name, CHECK_NULL);
804 if (k == NULL) {
805 return NULL;
806 }
807
808 if (log_is_enabled(Debug, classresolve)) {
809 trace_class_resolution(k);
810 }
811 return (jclass) JNIHandles::make_local(env, k->java_mirror());
812 JVM_END
813
814 // Find a class with this name in this loader, using the caller's protection domain.
815 JVM_ENTRY(jclass, JVM_FindClassFromCaller(JNIEnv* env, const char* name,
816 jboolean init, jobject loader,
817 jclass caller))
818 JVMWrapper("JVM_FindClassFromCaller throws ClassNotFoundException");
819 // Java libraries should ensure that name is never null...
820 if (name == NULL || (int)strlen(name) > Symbol::max_length()) {
821 // It's impossible to create this class; the name cannot fit
822 // into the constant pool.
823 THROW_MSG_0(vmSymbols::java_lang_ClassNotFoundException(), name);
824 }
825
826 TempNewSymbol h_name = SymbolTable::new_symbol(name, CHECK_NULL);
827
828 oop loader_oop = JNIHandles::resolve(loader);
829 oop from_class = JNIHandles::resolve(caller);
830 oop protection_domain = NULL;
831 // If loader is null, shouldn't call ClassLoader.checkPackageAccess; otherwise get
832 // NPE. Put it in another way, the bootstrap class loader has all permission and
833 // thus no checkPackageAccess equivalence in the VM class loader.
834 // The caller is also passed as NULL by the java code if there is no security
835 // manager to avoid the performance cost of getting the calling class.
836 if (from_class != NULL && loader_oop != NULL) {
837 protection_domain = java_lang_Class::as_Klass(from_class)->protection_domain();
838 }
839
840 Handle h_loader(THREAD, loader_oop);
841 Handle h_prot(THREAD, protection_domain);
842 jclass result = find_class_from_class_loader(env, h_name, init, h_loader,
843 h_prot, false, THREAD);
844
845 if (log_is_enabled(Debug, classresolve) && result != NULL) {
846 trace_class_resolution(java_lang_Class::as_Klass(JNIHandles::resolve_non_null(result)));
847 }
848 return result;
849 JVM_END
850
851 JVM_ENTRY(jclass, JVM_FindClassFromClass(JNIEnv *env, const char *name,
852 jboolean init, jclass from))
853 JVMWrapper("JVM_FindClassFromClass");
854 if (name == NULL || (int)strlen(name) > Symbol::max_length()) {
855 // It's impossible to create this class; the name cannot fit
856 // into the constant pool.
857 THROW_MSG_0(vmSymbols::java_lang_NoClassDefFoundError(), name);
858 }
859 TempNewSymbol h_name = SymbolTable::new_symbol(name, CHECK_NULL);
860 oop from_class_oop = JNIHandles::resolve(from);
861 Klass* from_class = (from_class_oop == NULL)
862 ? (Klass*)NULL
863 : java_lang_Class::as_Klass(from_class_oop);
864 oop class_loader = NULL;
865 oop protection_domain = NULL;
866 if (from_class != NULL) {
867 class_loader = from_class->class_loader();
868 protection_domain = from_class->protection_domain();
869 }
870 Handle h_loader(THREAD, class_loader);
871 Handle h_prot (THREAD, protection_domain);
872 jclass result = find_class_from_class_loader(env, h_name, init, h_loader,
873 h_prot, true, thread);
874
875 if (log_is_enabled(Debug, classresolve) && result != NULL) {
876 // this function is generally only used for class loading during verification.
877 ResourceMark rm;
878 oop from_mirror = JNIHandles::resolve_non_null(from);
879 Klass* from_class = java_lang_Class::as_Klass(from_mirror);
880 const char * from_name = from_class->external_name();
881
882 oop mirror = JNIHandles::resolve_non_null(result);
883 Klass* to_class = java_lang_Class::as_Klass(mirror);
884 const char * to = to_class->external_name();
885 log_debug(classresolve)("%s %s (verification)", from_name, to);
886 }
887
888 return result;
889 JVM_END
890
891 static void is_lock_held_by_thread(Handle loader, PerfCounter* counter, TRAPS) {
892 if (loader.is_null()) {
893 return;
894 }
895
896 // check whether the current caller thread holds the lock or not.
897 // If not, increment the corresponding counter
898 if (ObjectSynchronizer::query_lock_ownership((JavaThread*)THREAD, loader) !=
899 ObjectSynchronizer::owner_self) {
900 counter->inc();
901 }
902 }
903
904 // common code for JVM_DefineClass() and JVM_DefineClassWithSource()
905 static jclass jvm_define_class_common(JNIEnv *env, const char *name,
906 jobject loader, const jbyte *buf,
907 jsize len, jobject pd, const char *source,
908 TRAPS) {
909 if (source == NULL) source = "__JVM_DefineClass__";
910
911 assert(THREAD->is_Java_thread(), "must be a JavaThread");
912 JavaThread* jt = (JavaThread*) THREAD;
913
914 PerfClassTraceTime vmtimer(ClassLoader::perf_define_appclass_time(),
915 ClassLoader::perf_define_appclass_selftime(),
916 ClassLoader::perf_define_appclasses(),
917 jt->get_thread_stat()->perf_recursion_counts_addr(),
918 jt->get_thread_stat()->perf_timers_addr(),
919 PerfClassTraceTime::DEFINE_CLASS);
920
921 if (UsePerfData) {
922 ClassLoader::perf_app_classfile_bytes_read()->inc(len);
923 }
924
925 // Since exceptions can be thrown, class initialization can take place
926 // if name is NULL no check for class name in .class stream has to be made.
927 TempNewSymbol class_name = NULL;
928 if (name != NULL) {
929 const int str_len = (int)strlen(name);
930 if (str_len > Symbol::max_length()) {
931 // It's impossible to create this class; the name cannot fit
932 // into the constant pool.
933 THROW_MSG_0(vmSymbols::java_lang_NoClassDefFoundError(), name);
934 }
935 class_name = SymbolTable::new_symbol(name, str_len, CHECK_NULL);
936 }
937
938 ResourceMark rm(THREAD);
939 ClassFileStream st((u1*)buf, len, source, ClassFileStream::verify);
940 Handle class_loader (THREAD, JNIHandles::resolve(loader));
941 if (UsePerfData) {
942 is_lock_held_by_thread(class_loader,
943 ClassLoader::sync_JVMDefineClassLockFreeCounter(),
944 THREAD);
945 }
946 Handle protection_domain (THREAD, JNIHandles::resolve(pd));
947 Klass* k = SystemDictionary::resolve_from_stream(class_name,
948 class_loader,
949 protection_domain,
950 &st,
951 CHECK_NULL);
952
953 if (log_is_enabled(Debug, classresolve) && k != NULL) {
954 trace_class_resolution(k);
955 }
956
957 return (jclass) JNIHandles::make_local(env, k->java_mirror());
958 }
959
960
961 JVM_ENTRY(jclass, JVM_DefineClass(JNIEnv *env, const char *name, jobject loader, const jbyte *buf, jsize len, jobject pd))
962 JVMWrapper("JVM_DefineClass");
963
964 return jvm_define_class_common(env, name, loader, buf, len, pd, NULL, THREAD);
965 JVM_END
966
967
968 JVM_ENTRY(jclass, JVM_DefineClassWithSource(JNIEnv *env, const char *name, jobject loader, const jbyte *buf, jsize len, jobject pd, const char *source))
969 JVMWrapper("JVM_DefineClassWithSource");
970
971 return jvm_define_class_common(env, name, loader, buf, len, pd, source, THREAD);
972 JVM_END
973
974 JVM_ENTRY(jclass, JVM_FindLoadedClass(JNIEnv *env, jobject loader, jstring name))
975 JVMWrapper("JVM_FindLoadedClass");
976 ResourceMark rm(THREAD);
977
978 Handle h_name (THREAD, JNIHandles::resolve_non_null(name));
979 Handle string = java_lang_String::internalize_classname(h_name, CHECK_NULL);
980
981 const char* str = java_lang_String::as_utf8_string(string());
982 // Sanity check, don't expect null
983 if (str == NULL) return NULL;
984
985 const int str_len = (int)strlen(str);
986 if (str_len > Symbol::max_length()) {
987 // It's impossible to create this class; the name cannot fit
988 // into the constant pool.
989 return NULL;
990 }
991 TempNewSymbol klass_name = SymbolTable::new_symbol(str, str_len, CHECK_NULL);
992
993 // Security Note:
994 // The Java level wrapper will perform the necessary security check allowing
995 // us to pass the NULL as the initiating class loader.
996 Handle h_loader(THREAD, JNIHandles::resolve(loader));
997 if (UsePerfData) {
998 is_lock_held_by_thread(h_loader,
999 ClassLoader::sync_JVMFindLoadedClassLockFreeCounter(),
1000 THREAD);
1001 }
1002
1003 Klass* k = SystemDictionary::find_instance_or_array_klass(klass_name,
1004 h_loader,
1005 Handle(),
1006 CHECK_NULL);
1007 #if INCLUDE_CDS
1008 if (k == NULL) {
1009 // If the class is not already loaded, try to see if it's in the shared
1010 // archive for the current classloader (h_loader).
1011 instanceKlassHandle ik = SystemDictionaryShared::find_or_load_shared_class(
1012 klass_name, h_loader, CHECK_NULL);
1013 k = ik();
1014 }
1015 #endif
1016 return (k == NULL) ? NULL :
1017 (jclass) JNIHandles::make_local(env, k->java_mirror());
1018 JVM_END
1019
1020 // Module support //////////////////////////////////////////////////////////////////////////////
1021
1022 JVM_ENTRY(void, JVM_DefineModule(JNIEnv *env, jobject module, jstring version, jstring location,
1023 jobjectArray packages))
1024 JVMWrapper("JVM_DefineModule");
1025 Modules::define_module(module, version, location, packages, CHECK);
1026 JVM_END
1027
1028 JVM_ENTRY(void, JVM_SetBootLoaderUnnamedModule(JNIEnv *env, jobject module))
1029 JVMWrapper("JVM_SetBootLoaderUnnamedModule");
1030 Modules::set_bootloader_unnamed_module(module, CHECK);
1031 JVM_END
1032
1033 JVM_ENTRY(void, JVM_AddModuleExports(JNIEnv *env, jobject from_module, jstring package, jobject to_module))
1034 JVMWrapper("JVM_AddModuleExports");
1035 Modules::add_module_exports_qualified(from_module, package, to_module, CHECK);
1036 JVM_END
1037
1038 JVM_ENTRY(void, JVM_AddModuleExportsToAllUnnamed(JNIEnv *env, jobject from_module, jstring package))
1039 JVMWrapper("JVM_AddModuleExportsToAllUnnamed");
1040 Modules::add_module_exports_to_all_unnamed(from_module, package, CHECK);
1041 JVM_END
1042
1043 JVM_ENTRY(void, JVM_AddModuleExportsToAll(JNIEnv *env, jobject from_module, jstring package))
1044 JVMWrapper("JVM_AddModuleExportsToAll");
1045 Modules::add_module_exports(from_module, package, NULL, CHECK);
1046 JVM_END
1047
1048 JVM_ENTRY (void, JVM_AddReadsModule(JNIEnv *env, jobject from_module, jobject source_module))
1049 JVMWrapper("JVM_AddReadsModule");
1050 Modules::add_reads_module(from_module, source_module, CHECK);
1051 JVM_END
1052
1053 JVM_ENTRY(jboolean, JVM_CanReadModule(JNIEnv *env, jobject asking_module, jobject source_module))
1054 JVMWrapper("JVM_CanReadModule");
1055 return Modules::can_read_module(asking_module, source_module, THREAD);
1056 JVM_END
1057
1058 JVM_ENTRY(jboolean, JVM_IsExportedToModule(JNIEnv *env, jobject from_module, jstring package, jobject to_module))
1059 JVMWrapper("JVM_IsExportedToModule");
1060 return Modules::is_exported_to_module(from_module, package, to_module, THREAD);
1061 JVM_END
1062
1063 JVM_ENTRY (void, JVM_AddModulePackage(JNIEnv *env, jobject module, jstring package))
1064 JVMWrapper("JVM_AddModulePackage");
1065 Modules::add_module_package(module, package, CHECK);
1066 JVM_END
1067
1068 JVM_ENTRY (jobject, JVM_GetModuleByPackageName(JNIEnv *env, jobject loader, jstring package))
1069 JVMWrapper("JVM_GetModuleByPackageName");
1070 return Modules::get_module_by_package_name(loader, package, THREAD);
1071 JVM_END
1072
1073 // Reflection support //////////////////////////////////////////////////////////////////////////////
1074
1075 JVM_ENTRY(jstring, JVM_GetClassName(JNIEnv *env, jclass cls))
1076 assert (cls != NULL, "illegal class");
1077 JVMWrapper("JVM_GetClassName");
1078 JvmtiVMObjectAllocEventCollector oam;
1079 ResourceMark rm(THREAD);
1080 const char* name;
1081 if (java_lang_Class::is_primitive(JNIHandles::resolve(cls))) {
1082 name = type2name(java_lang_Class::primitive_type(JNIHandles::resolve(cls)));
1083 } else {
1084 // Consider caching interned string in Klass
1085 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve(cls));
1086 assert(k->is_klass(), "just checking");
1087 name = k->external_name();
1088 }
1089 oop result = StringTable::intern((char*) name, CHECK_NULL);
1090 return (jstring) JNIHandles::make_local(env, result);
1091 JVM_END
1092
1093
1094 JVM_ENTRY(jobjectArray, JVM_GetClassInterfaces(JNIEnv *env, jclass cls))
1095 JVMWrapper("JVM_GetClassInterfaces");
1096 JvmtiVMObjectAllocEventCollector oam;
1097 oop mirror = JNIHandles::resolve_non_null(cls);
1098
1099 // Special handling for primitive objects
1100 if (java_lang_Class::is_primitive(mirror)) {
1101 // Primitive objects does not have any interfaces
1102 objArrayOop r = oopFactory::new_objArray(SystemDictionary::Class_klass(), 0, CHECK_NULL);
1103 return (jobjectArray) JNIHandles::make_local(env, r);
1104 }
1105
1106 KlassHandle klass(thread, java_lang_Class::as_Klass(mirror));
1107 // Figure size of result array
1108 int size;
1109 if (klass->is_instance_klass()) {
1110 size = InstanceKlass::cast(klass())->local_interfaces()->length();
1111 } else {
1112 assert(klass->is_objArray_klass() || klass->is_typeArray_klass(), "Illegal mirror klass");
1113 size = 2;
1114 }
1115
1116 // Allocate result array
1117 objArrayOop r = oopFactory::new_objArray(SystemDictionary::Class_klass(), size, CHECK_NULL);
1118 objArrayHandle result (THREAD, r);
1119 // Fill in result
1120 if (klass->is_instance_klass()) {
1121 // Regular instance klass, fill in all local interfaces
1122 for (int index = 0; index < size; index++) {
1123 Klass* k = InstanceKlass::cast(klass())->local_interfaces()->at(index);
1124 result->obj_at_put(index, k->java_mirror());
1125 }
1126 } else {
1127 // All arrays implement java.lang.Cloneable and java.io.Serializable
1128 result->obj_at_put(0, SystemDictionary::Cloneable_klass()->java_mirror());
1129 result->obj_at_put(1, SystemDictionary::Serializable_klass()->java_mirror());
1130 }
1131 return (jobjectArray) JNIHandles::make_local(env, result());
1132 JVM_END
1133
1134
1135 JVM_QUICK_ENTRY(jboolean, JVM_IsInterface(JNIEnv *env, jclass cls))
1136 JVMWrapper("JVM_IsInterface");
1137 oop mirror = JNIHandles::resolve_non_null(cls);
1138 if (java_lang_Class::is_primitive(mirror)) {
1139 return JNI_FALSE;
1140 }
1141 Klass* k = java_lang_Class::as_Klass(mirror);
1142 jboolean result = k->is_interface();
1143 assert(!result || k->is_instance_klass(),
1144 "all interfaces are instance types");
1145 // The compiler intrinsic for isInterface tests the
1146 // Klass::_access_flags bits in the same way.
1147 return result;
1148 JVM_END
1149
1150
1151 JVM_ENTRY(jobjectArray, JVM_GetClassSigners(JNIEnv *env, jclass cls))
1152 JVMWrapper("JVM_GetClassSigners");
1153 JvmtiVMObjectAllocEventCollector oam;
1154 if (java_lang_Class::is_primitive(JNIHandles::resolve_non_null(cls))) {
1155 // There are no signers for primitive types
1156 return NULL;
1157 }
1158
1159 objArrayOop signers = java_lang_Class::signers(JNIHandles::resolve_non_null(cls));
1160
1161 // If there are no signers set in the class, or if the class
1162 // is an array, return NULL.
1163 if (signers == NULL) return NULL;
1164
1165 // copy of the signers array
1166 Klass* element = ObjArrayKlass::cast(signers->klass())->element_klass();
1167 objArrayOop signers_copy = oopFactory::new_objArray(element, signers->length(), CHECK_NULL);
1168 for (int index = 0; index < signers->length(); index++) {
1169 signers_copy->obj_at_put(index, signers->obj_at(index));
1170 }
1171
1172 // return the copy
1173 return (jobjectArray) JNIHandles::make_local(env, signers_copy);
1174 JVM_END
1175
1176
1177 JVM_ENTRY(void, JVM_SetClassSigners(JNIEnv *env, jclass cls, jobjectArray signers))
1178 JVMWrapper("JVM_SetClassSigners");
1179 if (!java_lang_Class::is_primitive(JNIHandles::resolve_non_null(cls))) {
1180 // This call is ignored for primitive types and arrays.
1181 // Signers are only set once, ClassLoader.java, and thus shouldn't
1182 // be called with an array. Only the bootstrap loader creates arrays.
1183 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
1184 if (k->is_instance_klass()) {
1185 java_lang_Class::set_signers(k->java_mirror(), objArrayOop(JNIHandles::resolve(signers)));
1186 }
1187 }
1188 JVM_END
1189
1190
1191 JVM_ENTRY(jobject, JVM_GetProtectionDomain(JNIEnv *env, jclass cls))
1192 JVMWrapper("JVM_GetProtectionDomain");
1193 if (JNIHandles::resolve(cls) == NULL) {
1194 THROW_(vmSymbols::java_lang_NullPointerException(), NULL);
1195 }
1196
1197 if (java_lang_Class::is_primitive(JNIHandles::resolve(cls))) {
1198 // Primitive types does not have a protection domain.
1199 return NULL;
1200 }
1201
1202 oop pd = java_lang_Class::protection_domain(JNIHandles::resolve(cls));
1203 return (jobject) JNIHandles::make_local(env, pd);
1204 JVM_END
1205
1206
1207 static bool is_authorized(Handle context, instanceKlassHandle klass, TRAPS) {
1208 // If there is a security manager and protection domain, check the access
1209 // in the protection domain, otherwise it is authorized.
1210 if (java_lang_System::has_security_manager()) {
1211
1212 // For bootstrapping, if pd implies method isn't in the JDK, allow
1213 // this context to revert to older behavior.
1214 // In this case the isAuthorized field in AccessControlContext is also not
1215 // present.
1216 if (Universe::protection_domain_implies_method() == NULL) {
1217 return true;
1218 }
1219
1220 // Whitelist certain access control contexts
1221 if (java_security_AccessControlContext::is_authorized(context)) {
1222 return true;
1223 }
1224
1225 oop prot = klass->protection_domain();
1226 if (prot != NULL) {
1227 // Call pd.implies(new SecurityPermission("createAccessControlContext"))
1228 // in the new wrapper.
1229 methodHandle m(THREAD, Universe::protection_domain_implies_method());
1230 Handle h_prot(THREAD, prot);
1231 JavaValue result(T_BOOLEAN);
1232 JavaCallArguments args(h_prot);
1233 JavaCalls::call(&result, m, &args, CHECK_false);
1234 return (result.get_jboolean() != 0);
1235 }
1236 }
1237 return true;
1238 }
1239
1240 // Create an AccessControlContext with a protection domain with null codesource
1241 // and null permissions - which gives no permissions.
1242 oop create_dummy_access_control_context(TRAPS) {
1243 InstanceKlass* pd_klass = SystemDictionary::ProtectionDomain_klass();
1244 Handle obj = pd_klass->allocate_instance_handle(CHECK_NULL);
1245 // Call constructor ProtectionDomain(null, null);
1246 JavaValue result(T_VOID);
1247 JavaCalls::call_special(&result, obj, KlassHandle(THREAD, pd_klass),
1248 vmSymbols::object_initializer_name(),
1249 vmSymbols::codesource_permissioncollection_signature(),
1250 Handle(), Handle(), CHECK_NULL);
1251
1252 // new ProtectionDomain[] {pd};
1253 objArrayOop context = oopFactory::new_objArray(pd_klass, 1, CHECK_NULL);
1254 context->obj_at_put(0, obj());
1255
1256 // new AccessControlContext(new ProtectionDomain[] {pd})
1257 objArrayHandle h_context(THREAD, context);
1258 oop acc = java_security_AccessControlContext::create(h_context, false, Handle(), CHECK_NULL);
1259 return acc;
1260 }
1261
1262 JVM_ENTRY(jobject, JVM_DoPrivileged(JNIEnv *env, jclass cls, jobject action, jobject context, jboolean wrapException))
1263 JVMWrapper("JVM_DoPrivileged");
1264
1265 if (action == NULL) {
1266 THROW_MSG_0(vmSymbols::java_lang_NullPointerException(), "Null action");
1267 }
1268
1269 // Compute the frame initiating the do privileged operation and setup the privileged stack
1270 vframeStream vfst(thread);
1271 vfst.security_get_caller_frame(1);
1272
1273 if (vfst.at_end()) {
1274 THROW_MSG_0(vmSymbols::java_lang_InternalError(), "no caller?");
1275 }
1276
1277 Method* method = vfst.method();
1278 instanceKlassHandle klass (THREAD, method->method_holder());
1279
1280 // Check that action object understands "Object run()"
1281 Handle h_context;
1282 if (context != NULL) {
1283 h_context = Handle(THREAD, JNIHandles::resolve(context));
1284 bool authorized = is_authorized(h_context, klass, CHECK_NULL);
1285 if (!authorized) {
1286 // Create an unprivileged access control object and call it's run function
1287 // instead.
1288 oop noprivs = create_dummy_access_control_context(CHECK_NULL);
1289 h_context = Handle(THREAD, noprivs);
1290 }
1291 }
1292
1293 // Check that action object understands "Object run()"
1294 Handle object (THREAD, JNIHandles::resolve(action));
1295
1296 // get run() method
1297 Method* m_oop = object->klass()->uncached_lookup_method(
1298 vmSymbols::run_method_name(),
1299 vmSymbols::void_object_signature(),
1300 Klass::find_overpass);
1301 methodHandle m (THREAD, m_oop);
1302 if (m.is_null() || !m->is_method() || !m()->is_public() || m()->is_static()) {
1303 THROW_MSG_0(vmSymbols::java_lang_InternalError(), "No run method");
1304 }
1305
1306 // Stack allocated list of privileged stack elements
1307 PrivilegedElement pi;
1308 if (!vfst.at_end()) {
1309 pi.initialize(&vfst, h_context(), thread->privileged_stack_top(), CHECK_NULL);
1310 thread->set_privileged_stack_top(&pi);
1311 }
1312
1313
1314 // invoke the Object run() in the action object. We cannot use call_interface here, since the static type
1315 // is not really known - it is either java.security.PrivilegedAction or java.security.PrivilegedExceptionAction
1316 Handle pending_exception;
1317 JavaValue result(T_OBJECT);
1318 JavaCallArguments args(object);
1319 JavaCalls::call(&result, m, &args, THREAD);
1320
1321 // done with action, remove ourselves from the list
1322 if (!vfst.at_end()) {
1323 assert(thread->privileged_stack_top() != NULL && thread->privileged_stack_top() == &pi, "wrong top element");
1324 thread->set_privileged_stack_top(thread->privileged_stack_top()->next());
1325 }
1326
1327 if (HAS_PENDING_EXCEPTION) {
1328 pending_exception = Handle(THREAD, PENDING_EXCEPTION);
1329 CLEAR_PENDING_EXCEPTION;
1330 // JVMTI has already reported the pending exception
1331 // JVMTI internal flag reset is needed in order to report PrivilegedActionException
1332 if (THREAD->is_Java_thread()) {
1333 JvmtiExport::clear_detected_exception((JavaThread*) THREAD);
1334 }
1335 if ( pending_exception->is_a(SystemDictionary::Exception_klass()) &&
1336 !pending_exception->is_a(SystemDictionary::RuntimeException_klass())) {
1337 // Throw a java.security.PrivilegedActionException(Exception e) exception
1338 JavaCallArguments args(pending_exception);
1339 THROW_ARG_0(vmSymbols::java_security_PrivilegedActionException(),
1340 vmSymbols::exception_void_signature(),
1341 &args);
1342 }
1343 }
1344
1345 if (pending_exception.not_null()) THROW_OOP_0(pending_exception());
1346 return JNIHandles::make_local(env, (oop) result.get_jobject());
1347 JVM_END
1348
1349
1350 // Returns the inherited_access_control_context field of the running thread.
1351 JVM_ENTRY(jobject, JVM_GetInheritedAccessControlContext(JNIEnv *env, jclass cls))
1352 JVMWrapper("JVM_GetInheritedAccessControlContext");
1353 oop result = java_lang_Thread::inherited_access_control_context(thread->threadObj());
1354 return JNIHandles::make_local(env, result);
1355 JVM_END
1356
1357 class RegisterArrayForGC {
1358 private:
1359 JavaThread *_thread;
1360 public:
1361 RegisterArrayForGC(JavaThread *thread, GrowableArray<oop>* array) {
1362 _thread = thread;
1363 _thread->register_array_for_gc(array);
1364 }
1365
1366 ~RegisterArrayForGC() {
1367 _thread->register_array_for_gc(NULL);
1368 }
1369 };
1370
1371
1372 JVM_ENTRY(jobject, JVM_GetStackAccessControlContext(JNIEnv *env, jclass cls))
1373 JVMWrapper("JVM_GetStackAccessControlContext");
1374 if (!UsePrivilegedStack) return NULL;
1375
1376 ResourceMark rm(THREAD);
1377 GrowableArray<oop>* local_array = new GrowableArray<oop>(12);
1378 JvmtiVMObjectAllocEventCollector oam;
1379
1380 // count the protection domains on the execution stack. We collapse
1381 // duplicate consecutive protection domains into a single one, as
1382 // well as stopping when we hit a privileged frame.
1383
1384 // Use vframeStream to iterate through Java frames
1385 vframeStream vfst(thread);
1386
1387 oop previous_protection_domain = NULL;
1388 Handle privileged_context(thread, NULL);
1389 bool is_privileged = false;
1390 oop protection_domain = NULL;
1391
1392 for(; !vfst.at_end(); vfst.next()) {
1393 // get method of frame
1394 Method* method = vfst.method();
1395 intptr_t* frame_id = vfst.frame_id();
1396
1397 // check the privileged frames to see if we have a match
1398 if (thread->privileged_stack_top() && thread->privileged_stack_top()->frame_id() == frame_id) {
1399 // this frame is privileged
1400 is_privileged = true;
1401 privileged_context = Handle(thread, thread->privileged_stack_top()->privileged_context());
1402 protection_domain = thread->privileged_stack_top()->protection_domain();
1403 } else {
1404 protection_domain = method->method_holder()->protection_domain();
1405 }
1406
1407 if ((previous_protection_domain != protection_domain) && (protection_domain != NULL)) {
1408 local_array->push(protection_domain);
1409 previous_protection_domain = protection_domain;
1410 }
1411
1412 if (is_privileged) break;
1413 }
1414
1415
1416 // either all the domains on the stack were system domains, or
1417 // we had a privileged system domain
1418 if (local_array->is_empty()) {
1419 if (is_privileged && privileged_context.is_null()) return NULL;
1420
1421 oop result = java_security_AccessControlContext::create(objArrayHandle(), is_privileged, privileged_context, CHECK_NULL);
1422 return JNIHandles::make_local(env, result);
1423 }
1424
1425 // the resource area must be registered in case of a gc
1426 RegisterArrayForGC ragc(thread, local_array);
1427 objArrayOop context = oopFactory::new_objArray(SystemDictionary::ProtectionDomain_klass(),
1428 local_array->length(), CHECK_NULL);
1429 objArrayHandle h_context(thread, context);
1430 for (int index = 0; index < local_array->length(); index++) {
1431 h_context->obj_at_put(index, local_array->at(index));
1432 }
1433
1434 oop result = java_security_AccessControlContext::create(h_context, is_privileged, privileged_context, CHECK_NULL);
1435
1436 return JNIHandles::make_local(env, result);
1437 JVM_END
1438
1439
1440 JVM_QUICK_ENTRY(jboolean, JVM_IsArrayClass(JNIEnv *env, jclass cls))
1441 JVMWrapper("JVM_IsArrayClass");
1442 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
1443 return (k != NULL) && k->is_array_klass() ? true : false;
1444 JVM_END
1445
1446
1447 JVM_QUICK_ENTRY(jboolean, JVM_IsPrimitiveClass(JNIEnv *env, jclass cls))
1448 JVMWrapper("JVM_IsPrimitiveClass");
1449 oop mirror = JNIHandles::resolve_non_null(cls);
1450 return (jboolean) java_lang_Class::is_primitive(mirror);
1451 JVM_END
1452
1453
1454 JVM_ENTRY(jint, JVM_GetClassModifiers(JNIEnv *env, jclass cls))
1455 JVMWrapper("JVM_GetClassModifiers");
1456 if (java_lang_Class::is_primitive(JNIHandles::resolve_non_null(cls))) {
1457 // Primitive type
1458 return JVM_ACC_ABSTRACT | JVM_ACC_FINAL | JVM_ACC_PUBLIC;
1459 }
1460
1461 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
1462 debug_only(int computed_modifiers = k->compute_modifier_flags(CHECK_0));
1463 assert(k->modifier_flags() == computed_modifiers, "modifiers cache is OK");
1464 return k->modifier_flags();
1465 JVM_END
1466
1467
1468 // Inner class reflection ///////////////////////////////////////////////////////////////////////////////
1469
1470 JVM_ENTRY(jobjectArray, JVM_GetDeclaredClasses(JNIEnv *env, jclass ofClass))
1471 JvmtiVMObjectAllocEventCollector oam;
1472 // ofClass is a reference to a java_lang_Class object. The mirror object
1473 // of an InstanceKlass
1474
1475 if (java_lang_Class::is_primitive(JNIHandles::resolve_non_null(ofClass)) ||
1476 ! java_lang_Class::as_Klass(JNIHandles::resolve_non_null(ofClass))->is_instance_klass()) {
1477 oop result = oopFactory::new_objArray(SystemDictionary::Class_klass(), 0, CHECK_NULL);
1478 return (jobjectArray)JNIHandles::make_local(env, result);
1479 }
1480
1481 instanceKlassHandle k(thread, java_lang_Class::as_Klass(JNIHandles::resolve_non_null(ofClass)));
1482 InnerClassesIterator iter(k);
1483
1484 if (iter.length() == 0) {
1485 // Neither an inner nor outer class
1486 oop result = oopFactory::new_objArray(SystemDictionary::Class_klass(), 0, CHECK_NULL);
1487 return (jobjectArray)JNIHandles::make_local(env, result);
1488 }
1489
1490 // find inner class info
1491 constantPoolHandle cp(thread, k->constants());
1492 int length = iter.length();
1493
1494 // Allocate temp. result array
1495 objArrayOop r = oopFactory::new_objArray(SystemDictionary::Class_klass(), length/4, CHECK_NULL);
1496 objArrayHandle result (THREAD, r);
1497 int members = 0;
1498
1499 for (; !iter.done(); iter.next()) {
1500 int ioff = iter.inner_class_info_index();
1501 int ooff = iter.outer_class_info_index();
1502
1503 if (ioff != 0 && ooff != 0) {
1504 // Check to see if the name matches the class we're looking for
1505 // before attempting to find the class.
1506 if (cp->klass_name_at_matches(k, ooff)) {
1507 Klass* outer_klass = cp->klass_at(ooff, CHECK_NULL);
1508 if (outer_klass == k()) {
1509 Klass* ik = cp->klass_at(ioff, CHECK_NULL);
1510 instanceKlassHandle inner_klass (THREAD, ik);
1511
1512 // Throws an exception if outer klass has not declared k as
1513 // an inner klass
1514 Reflection::check_for_inner_class(k, inner_klass, true, CHECK_NULL);
1515
1516 result->obj_at_put(members, inner_klass->java_mirror());
1517 members++;
1518 }
1519 }
1520 }
1521 }
1522
1523 if (members != length) {
1524 // Return array of right length
1525 objArrayOop res = oopFactory::new_objArray(SystemDictionary::Class_klass(), members, CHECK_NULL);
1526 for(int i = 0; i < members; i++) {
1527 res->obj_at_put(i, result->obj_at(i));
1528 }
1529 return (jobjectArray)JNIHandles::make_local(env, res);
1530 }
1531
1532 return (jobjectArray)JNIHandles::make_local(env, result());
1533 JVM_END
1534
1535
1536 JVM_ENTRY(jclass, JVM_GetDeclaringClass(JNIEnv *env, jclass ofClass))
1537 {
1538 // ofClass is a reference to a java_lang_Class object.
1539 if (java_lang_Class::is_primitive(JNIHandles::resolve_non_null(ofClass)) ||
1540 ! java_lang_Class::as_Klass(JNIHandles::resolve_non_null(ofClass))->is_instance_klass()) {
1541 return NULL;
1542 }
1543
1544 bool inner_is_member = false;
1545 Klass* outer_klass
1546 = InstanceKlass::cast(java_lang_Class::as_Klass(JNIHandles::resolve_non_null(ofClass))
1547 )->compute_enclosing_class(&inner_is_member, CHECK_NULL);
1548 if (outer_klass == NULL) return NULL; // already a top-level class
1549 if (!inner_is_member) return NULL; // an anonymous class (inside a method)
1550 return (jclass) JNIHandles::make_local(env, outer_klass->java_mirror());
1551 }
1552 JVM_END
1553
1554 JVM_ENTRY(jstring, JVM_GetSimpleBinaryName(JNIEnv *env, jclass cls))
1555 {
1556 oop mirror = JNIHandles::resolve_non_null(cls);
1557 if (java_lang_Class::is_primitive(mirror) ||
1558 !java_lang_Class::as_Klass(mirror)->is_instance_klass()) {
1559 return NULL;
1560 }
1561 instanceKlassHandle k(THREAD, InstanceKlass::cast(java_lang_Class::as_Klass(mirror)));
1562 int ooff = 0, noff = 0;
1563 if (InstanceKlass::find_inner_classes_attr(k, &ooff, &noff, THREAD)) {
1564 if (noff != 0) {
1565 constantPoolHandle i_cp(thread, k->constants());
1566 Symbol* name = i_cp->symbol_at(noff);
1567 Handle str = java_lang_String::create_from_symbol(name, CHECK_NULL);
1568 return (jstring) JNIHandles::make_local(env, str());
1569 }
1570 }
1571 return NULL;
1572 }
1573 JVM_END
1574
1575 JVM_ENTRY(jstring, JVM_GetClassSignature(JNIEnv *env, jclass cls))
1576 assert (cls != NULL, "illegal class");
1577 JVMWrapper("JVM_GetClassSignature");
1578 JvmtiVMObjectAllocEventCollector oam;
1579 ResourceMark rm(THREAD);
1580 // Return null for arrays and primatives
1581 if (!java_lang_Class::is_primitive(JNIHandles::resolve(cls))) {
1582 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve(cls));
1583 if (k->is_instance_klass()) {
1584 Symbol* sym = InstanceKlass::cast(k)->generic_signature();
1585 if (sym == NULL) return NULL;
1586 Handle str = java_lang_String::create_from_symbol(sym, CHECK_NULL);
1587 return (jstring) JNIHandles::make_local(env, str());
1588 }
1589 }
1590 return NULL;
1591 JVM_END
1592
1593
1594 JVM_ENTRY(jbyteArray, JVM_GetClassAnnotations(JNIEnv *env, jclass cls))
1595 assert (cls != NULL, "illegal class");
1596 JVMWrapper("JVM_GetClassAnnotations");
1597
1598 // Return null for arrays and primitives
1599 if (!java_lang_Class::is_primitive(JNIHandles::resolve(cls))) {
1600 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve(cls));
1601 if (k->is_instance_klass()) {
1602 typeArrayOop a = Annotations::make_java_array(InstanceKlass::cast(k)->class_annotations(), CHECK_NULL);
1603 return (jbyteArray) JNIHandles::make_local(env, a);
1604 }
1605 }
1606 return NULL;
1607 JVM_END
1608
1609
1610 static bool jvm_get_field_common(jobject field, fieldDescriptor& fd, TRAPS) {
1611 // some of this code was adapted from from jni_FromReflectedField
1612
1613 oop reflected = JNIHandles::resolve_non_null(field);
1614 oop mirror = java_lang_reflect_Field::clazz(reflected);
1615 Klass* k = java_lang_Class::as_Klass(mirror);
1616 int slot = java_lang_reflect_Field::slot(reflected);
1617 int modifiers = java_lang_reflect_Field::modifiers(reflected);
1618
1619 KlassHandle kh(THREAD, k);
1620 intptr_t offset = InstanceKlass::cast(kh())->field_offset(slot);
1621
1622 if (modifiers & JVM_ACC_STATIC) {
1623 // for static fields we only look in the current class
1624 if (!InstanceKlass::cast(kh())->find_local_field_from_offset(offset, true, &fd)) {
1625 assert(false, "cannot find static field");
1626 return false;
1627 }
1628 } else {
1629 // for instance fields we start with the current class and work
1630 // our way up through the superclass chain
1631 if (!InstanceKlass::cast(kh())->find_field_from_offset(offset, false, &fd)) {
1632 assert(false, "cannot find instance field");
1633 return false;
1634 }
1635 }
1636 return true;
1637 }
1638
1639 static Method* jvm_get_method_common(jobject method) {
1640 // some of this code was adapted from from jni_FromReflectedMethod
1641
1642 oop reflected = JNIHandles::resolve_non_null(method);
1643 oop mirror = NULL;
1644 int slot = 0;
1645
1646 if (reflected->klass() == SystemDictionary::reflect_Constructor_klass()) {
1647 mirror = java_lang_reflect_Constructor::clazz(reflected);
1648 slot = java_lang_reflect_Constructor::slot(reflected);
1649 } else {
1650 assert(reflected->klass() == SystemDictionary::reflect_Method_klass(),
1651 "wrong type");
1652 mirror = java_lang_reflect_Method::clazz(reflected);
1653 slot = java_lang_reflect_Method::slot(reflected);
1654 }
1655 Klass* k = java_lang_Class::as_Klass(mirror);
1656
1657 Method* m = InstanceKlass::cast(k)->method_with_idnum(slot);
1658 assert(m != NULL, "cannot find method");
1659 return m; // caller has to deal with NULL in product mode
1660 }
1661
1662 /* Type use annotations support (JDK 1.8) */
1663
1664 JVM_ENTRY(jbyteArray, JVM_GetClassTypeAnnotations(JNIEnv *env, jclass cls))
1665 assert (cls != NULL, "illegal class");
1666 JVMWrapper("JVM_GetClassTypeAnnotations");
1667 ResourceMark rm(THREAD);
1668 // Return null for arrays and primitives
1669 if (!java_lang_Class::is_primitive(JNIHandles::resolve(cls))) {
1670 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve(cls));
1671 if (k->is_instance_klass()) {
1672 AnnotationArray* type_annotations = InstanceKlass::cast(k)->class_type_annotations();
1673 if (type_annotations != NULL) {
1674 typeArrayOop a = Annotations::make_java_array(type_annotations, CHECK_NULL);
1675 return (jbyteArray) JNIHandles::make_local(env, a);
1676 }
1677 }
1678 }
1679 return NULL;
1680 JVM_END
1681
1682 JVM_ENTRY(jbyteArray, JVM_GetMethodTypeAnnotations(JNIEnv *env, jobject method))
1683 assert (method != NULL, "illegal method");
1684 JVMWrapper("JVM_GetMethodTypeAnnotations");
1685
1686 // method is a handle to a java.lang.reflect.Method object
1687 Method* m = jvm_get_method_common(method);
1688 if (m == NULL) {
1689 return NULL;
1690 }
1691
1692 AnnotationArray* type_annotations = m->type_annotations();
1693 if (type_annotations != NULL) {
1694 typeArrayOop a = Annotations::make_java_array(type_annotations, CHECK_NULL);
1695 return (jbyteArray) JNIHandles::make_local(env, a);
1696 }
1697
1698 return NULL;
1699 JVM_END
1700
1701 JVM_ENTRY(jbyteArray, JVM_GetFieldTypeAnnotations(JNIEnv *env, jobject field))
1702 assert (field != NULL, "illegal field");
1703 JVMWrapper("JVM_GetFieldTypeAnnotations");
1704
1705 fieldDescriptor fd;
1706 bool gotFd = jvm_get_field_common(field, fd, CHECK_NULL);
1707 if (!gotFd) {
1708 return NULL;
1709 }
1710
1711 return (jbyteArray) JNIHandles::make_local(env, Annotations::make_java_array(fd.type_annotations(), THREAD));
1712 JVM_END
1713
1714 static void bounds_check(constantPoolHandle cp, jint index, TRAPS) {
1715 if (!cp->is_within_bounds(index)) {
1716 THROW_MSG(vmSymbols::java_lang_IllegalArgumentException(), "Constant pool index out of bounds");
1717 }
1718 }
1719
1720 JVM_ENTRY(jobjectArray, JVM_GetMethodParameters(JNIEnv *env, jobject method))
1721 {
1722 JVMWrapper("JVM_GetMethodParameters");
1723 // method is a handle to a java.lang.reflect.Method object
1724 Method* method_ptr = jvm_get_method_common(method);
1725 methodHandle mh (THREAD, method_ptr);
1726 Handle reflected_method (THREAD, JNIHandles::resolve_non_null(method));
1727 const int num_params = mh->method_parameters_length();
1728
1729 if (num_params < 0) {
1730 // A -1 return value from method_parameters_length means there is no
1731 // parameter data. Return null to indicate this to the reflection
1732 // API.
1733 assert(num_params == -1, "num_params should be -1 if it is less than zero");
1734 return (jobjectArray)NULL;
1735 } else {
1736 // Otherwise, we return something up to reflection, even if it is
1737 // a zero-length array. Why? Because in some cases this can
1738 // trigger a MalformedParametersException.
1739
1740 // make sure all the symbols are properly formatted
1741 for (int i = 0; i < num_params; i++) {
1742 MethodParametersElement* params = mh->method_parameters_start();
1743 int index = params[i].name_cp_index;
1744 bounds_check(mh->constants(), index, CHECK_NULL);
1745
1746 if (0 != index && !mh->constants()->tag_at(index).is_utf8()) {
1747 THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(),
1748 "Wrong type at constant pool index");
1749 }
1750
1751 }
1752
1753 objArrayOop result_oop = oopFactory::new_objArray(SystemDictionary::reflect_Parameter_klass(), num_params, CHECK_NULL);
1754 objArrayHandle result (THREAD, result_oop);
1755
1756 for (int i = 0; i < num_params; i++) {
1757 MethodParametersElement* params = mh->method_parameters_start();
1758 // For a 0 index, give a NULL symbol
1759 Symbol* sym = 0 != params[i].name_cp_index ?
1760 mh->constants()->symbol_at(params[i].name_cp_index) : NULL;
1761 int flags = params[i].flags;
1762 oop param = Reflection::new_parameter(reflected_method, i, sym,
1763 flags, CHECK_NULL);
1764 result->obj_at_put(i, param);
1765 }
1766 return (jobjectArray)JNIHandles::make_local(env, result());
1767 }
1768 }
1769 JVM_END
1770
1771 // New (JDK 1.4) reflection implementation /////////////////////////////////////
1772
1773 JVM_ENTRY(jobjectArray, JVM_GetClassDeclaredFields(JNIEnv *env, jclass ofClass, jboolean publicOnly))
1774 {
1775 JVMWrapper("JVM_GetClassDeclaredFields");
1776 JvmtiVMObjectAllocEventCollector oam;
1777
1778 // Exclude primitive types and array types
1779 if (java_lang_Class::is_primitive(JNIHandles::resolve_non_null(ofClass)) ||
1780 java_lang_Class::as_Klass(JNIHandles::resolve_non_null(ofClass))->is_array_klass()) {
1781 // Return empty array
1782 oop res = oopFactory::new_objArray(SystemDictionary::reflect_Field_klass(), 0, CHECK_NULL);
1783 return (jobjectArray) JNIHandles::make_local(env, res);
1784 }
1785
1786 instanceKlassHandle k(THREAD, java_lang_Class::as_Klass(JNIHandles::resolve_non_null(ofClass)));
1787 constantPoolHandle cp(THREAD, k->constants());
1788
1789 // Ensure class is linked
1790 k->link_class(CHECK_NULL);
1791
1792 // Allocate result
1793 int num_fields;
1794
1795 if (publicOnly) {
1796 num_fields = 0;
1797 for (JavaFieldStream fs(k()); !fs.done(); fs.next()) {
1798 if (fs.access_flags().is_public()) ++num_fields;
1799 }
1800 } else {
1801 num_fields = k->java_fields_count();
1802 }
1803
1804 objArrayOop r = oopFactory::new_objArray(SystemDictionary::reflect_Field_klass(), num_fields, CHECK_NULL);
1805 objArrayHandle result (THREAD, r);
1806
1807 int out_idx = 0;
1808 fieldDescriptor fd;
1809 for (JavaFieldStream fs(k); !fs.done(); fs.next()) {
1810 if (!publicOnly || fs.access_flags().is_public()) {
1811 fd.reinitialize(k(), fs.index());
1812 oop field = Reflection::new_field(&fd, CHECK_NULL);
1813 result->obj_at_put(out_idx, field);
1814 ++out_idx;
1815 }
1816 }
1817 assert(out_idx == num_fields, "just checking");
1818 return (jobjectArray) JNIHandles::make_local(env, result());
1819 }
1820 JVM_END
1821
1822 static bool select_method(methodHandle method, bool want_constructor) {
1823 if (want_constructor) {
1824 return (method->is_initializer() && !method->is_static());
1825 } else {
1826 return (!method->is_initializer() && !method->is_overpass());
1827 }
1828 }
1829
1830 static jobjectArray get_class_declared_methods_helper(
1831 JNIEnv *env,
1832 jclass ofClass, jboolean publicOnly,
1833 bool want_constructor,
1834 Klass* klass, TRAPS) {
1835
1836 JvmtiVMObjectAllocEventCollector oam;
1837
1838 // Exclude primitive types and array types
1839 if (java_lang_Class::is_primitive(JNIHandles::resolve_non_null(ofClass))
1840 || java_lang_Class::as_Klass(JNIHandles::resolve_non_null(ofClass))->is_array_klass()) {
1841 // Return empty array
1842 oop res = oopFactory::new_objArray(klass, 0, CHECK_NULL);
1843 return (jobjectArray) JNIHandles::make_local(env, res);
1844 }
1845
1846 instanceKlassHandle k(THREAD, java_lang_Class::as_Klass(JNIHandles::resolve_non_null(ofClass)));
1847
1848 // Ensure class is linked
1849 k->link_class(CHECK_NULL);
1850
1851 Array<Method*>* methods = k->methods();
1852 int methods_length = methods->length();
1853
1854 // Save original method_idnum in case of redefinition, which can change
1855 // the idnum of obsolete methods. The new method will have the same idnum
1856 // but if we refresh the methods array, the counts will be wrong.
1857 ResourceMark rm(THREAD);
1858 GrowableArray<int>* idnums = new GrowableArray<int>(methods_length);
1859 int num_methods = 0;
1860
1861 for (int i = 0; i < methods_length; i++) {
1862 methodHandle method(THREAD, methods->at(i));
1863 if (select_method(method, want_constructor)) {
1864 if (!publicOnly || method->is_public()) {
1865 idnums->push(method->method_idnum());
1866 ++num_methods;
1867 }
1868 }
1869 }
1870
1871 // Allocate result
1872 objArrayOop r = oopFactory::new_objArray(klass, num_methods, CHECK_NULL);
1873 objArrayHandle result (THREAD, r);
1874
1875 // Now just put the methods that we selected above, but go by their idnum
1876 // in case of redefinition. The methods can be redefined at any safepoint,
1877 // so above when allocating the oop array and below when creating reflect
1878 // objects.
1879 for (int i = 0; i < num_methods; i++) {
1880 methodHandle method(THREAD, k->method_with_idnum(idnums->at(i)));
1881 if (method.is_null()) {
1882 // Method may have been deleted and seems this API can handle null
1883 // Otherwise should probably put a method that throws NSME
1884 result->obj_at_put(i, NULL);
1885 } else {
1886 oop m;
1887 if (want_constructor) {
1888 m = Reflection::new_constructor(method, CHECK_NULL);
1889 } else {
1890 m = Reflection::new_method(method, false, CHECK_NULL);
1891 }
1892 result->obj_at_put(i, m);
1893 }
1894 }
1895
1896 return (jobjectArray) JNIHandles::make_local(env, result());
1897 }
1898
1899 JVM_ENTRY(jobjectArray, JVM_GetClassDeclaredMethods(JNIEnv *env, jclass ofClass, jboolean publicOnly))
1900 {
1901 JVMWrapper("JVM_GetClassDeclaredMethods");
1902 return get_class_declared_methods_helper(env, ofClass, publicOnly,
1903 /*want_constructor*/ false,
1904 SystemDictionary::reflect_Method_klass(), THREAD);
1905 }
1906 JVM_END
1907
1908 JVM_ENTRY(jobjectArray, JVM_GetClassDeclaredConstructors(JNIEnv *env, jclass ofClass, jboolean publicOnly))
1909 {
1910 JVMWrapper("JVM_GetClassDeclaredConstructors");
1911 return get_class_declared_methods_helper(env, ofClass, publicOnly,
1912 /*want_constructor*/ true,
1913 SystemDictionary::reflect_Constructor_klass(), THREAD);
1914 }
1915 JVM_END
1916
1917 JVM_ENTRY(jint, JVM_GetClassAccessFlags(JNIEnv *env, jclass cls))
1918 {
1919 JVMWrapper("JVM_GetClassAccessFlags");
1920 if (java_lang_Class::is_primitive(JNIHandles::resolve_non_null(cls))) {
1921 // Primitive type
1922 return JVM_ACC_ABSTRACT | JVM_ACC_FINAL | JVM_ACC_PUBLIC;
1923 }
1924
1925 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
1926 return k->access_flags().as_int() & JVM_ACC_WRITTEN_FLAGS;
1927 }
1928 JVM_END
1929
1930
1931 // Constant pool access //////////////////////////////////////////////////////////
1932
1933 JVM_ENTRY(jobject, JVM_GetClassConstantPool(JNIEnv *env, jclass cls))
1934 {
1935 JVMWrapper("JVM_GetClassConstantPool");
1936 JvmtiVMObjectAllocEventCollector oam;
1937
1938 // Return null for primitives and arrays
1939 if (!java_lang_Class::is_primitive(JNIHandles::resolve_non_null(cls))) {
1940 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
1941 if (k->is_instance_klass()) {
1942 instanceKlassHandle k_h(THREAD, k);
1943 Handle jcp = reflect_ConstantPool::create(CHECK_NULL);
1944 reflect_ConstantPool::set_cp(jcp(), k_h->constants());
1945 return JNIHandles::make_local(jcp());
1946 }
1947 }
1948 return NULL;
1949 }
1950 JVM_END
1951
1952
1953 JVM_ENTRY(jint, JVM_ConstantPoolGetSize(JNIEnv *env, jobject obj, jobject unused))
1954 {
1955 JVMWrapper("JVM_ConstantPoolGetSize");
1956 constantPoolHandle cp = constantPoolHandle(THREAD, reflect_ConstantPool::get_cp(JNIHandles::resolve_non_null(obj)));
1957 return cp->length();
1958 }
1959 JVM_END
1960
1961
1962 JVM_ENTRY(jclass, JVM_ConstantPoolGetClassAt(JNIEnv *env, jobject obj, jobject unused, jint index))
1963 {
1964 JVMWrapper("JVM_ConstantPoolGetClassAt");
1965 constantPoolHandle cp = constantPoolHandle(THREAD, reflect_ConstantPool::get_cp(JNIHandles::resolve_non_null(obj)));
1966 bounds_check(cp, index, CHECK_NULL);
1967 constantTag tag = cp->tag_at(index);
1968 if (!tag.is_klass() && !tag.is_unresolved_klass()) {
1969 THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(), "Wrong type at constant pool index");
1970 }
1971 Klass* k = cp->klass_at(index, CHECK_NULL);
1972 return (jclass) JNIHandles::make_local(k->java_mirror());
1973 }
1974 JVM_END
1975
1976 JVM_ENTRY(jclass, JVM_ConstantPoolGetClassAtIfLoaded(JNIEnv *env, jobject obj, jobject unused, jint index))
1977 {
1978 JVMWrapper("JVM_ConstantPoolGetClassAtIfLoaded");
1979 constantPoolHandle cp = constantPoolHandle(THREAD, reflect_ConstantPool::get_cp(JNIHandles::resolve_non_null(obj)));
1980 bounds_check(cp, index, CHECK_NULL);
1981 constantTag tag = cp->tag_at(index);
1982 if (!tag.is_klass() && !tag.is_unresolved_klass()) {
1983 THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(), "Wrong type at constant pool index");
1984 }
1985 Klass* k = ConstantPool::klass_at_if_loaded(cp, index);
1986 if (k == NULL) return NULL;
1987 return (jclass) JNIHandles::make_local(k->java_mirror());
1988 }
1989 JVM_END
1990
1991 static jobject get_method_at_helper(constantPoolHandle cp, jint index, bool force_resolution, TRAPS) {
1992 constantTag tag = cp->tag_at(index);
1993 if (!tag.is_method() && !tag.is_interface_method()) {
1994 THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(), "Wrong type at constant pool index");
1995 }
1996 int klass_ref = cp->uncached_klass_ref_index_at(index);
1997 Klass* k_o;
1998 if (force_resolution) {
1999 k_o = cp->klass_at(klass_ref, CHECK_NULL);
2000 } else {
2001 k_o = ConstantPool::klass_at_if_loaded(cp, klass_ref);
2002 if (k_o == NULL) return NULL;
2003 }
2004 instanceKlassHandle k(THREAD, k_o);
2005 Symbol* name = cp->uncached_name_ref_at(index);
2006 Symbol* sig = cp->uncached_signature_ref_at(index);
2007 methodHandle m (THREAD, k->find_method(name, sig));
2008 if (m.is_null()) {
2009 THROW_MSG_0(vmSymbols::java_lang_RuntimeException(), "Unable to look up method in target class");
2010 }
2011 oop method;
2012 if (!m->is_initializer() || m->is_static()) {
2013 method = Reflection::new_method(m, true, CHECK_NULL);
2014 } else {
2015 method = Reflection::new_constructor(m, CHECK_NULL);
2016 }
2017 return JNIHandles::make_local(method);
2018 }
2019
2020 JVM_ENTRY(jobject, JVM_ConstantPoolGetMethodAt(JNIEnv *env, jobject obj, jobject unused, jint index))
2021 {
2022 JVMWrapper("JVM_ConstantPoolGetMethodAt");
2023 JvmtiVMObjectAllocEventCollector oam;
2024 constantPoolHandle cp = constantPoolHandle(THREAD, reflect_ConstantPool::get_cp(JNIHandles::resolve_non_null(obj)));
2025 bounds_check(cp, index, CHECK_NULL);
2026 jobject res = get_method_at_helper(cp, index, true, CHECK_NULL);
2027 return res;
2028 }
2029 JVM_END
2030
2031 JVM_ENTRY(jobject, JVM_ConstantPoolGetMethodAtIfLoaded(JNIEnv *env, jobject obj, jobject unused, jint index))
2032 {
2033 JVMWrapper("JVM_ConstantPoolGetMethodAtIfLoaded");
2034 JvmtiVMObjectAllocEventCollector oam;
2035 constantPoolHandle cp = constantPoolHandle(THREAD, reflect_ConstantPool::get_cp(JNIHandles::resolve_non_null(obj)));
2036 bounds_check(cp, index, CHECK_NULL);
2037 jobject res = get_method_at_helper(cp, index, false, CHECK_NULL);
2038 return res;
2039 }
2040 JVM_END
2041
2042 static jobject get_field_at_helper(constantPoolHandle cp, jint index, bool force_resolution, TRAPS) {
2043 constantTag tag = cp->tag_at(index);
2044 if (!tag.is_field()) {
2045 THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(), "Wrong type at constant pool index");
2046 }
2047 int klass_ref = cp->uncached_klass_ref_index_at(index);
2048 Klass* k_o;
2049 if (force_resolution) {
2050 k_o = cp->klass_at(klass_ref, CHECK_NULL);
2051 } else {
2052 k_o = ConstantPool::klass_at_if_loaded(cp, klass_ref);
2053 if (k_o == NULL) return NULL;
2054 }
2055 instanceKlassHandle k(THREAD, k_o);
2056 Symbol* name = cp->uncached_name_ref_at(index);
2057 Symbol* sig = cp->uncached_signature_ref_at(index);
2058 fieldDescriptor fd;
2059 Klass* target_klass = k->find_field(name, sig, &fd);
2060 if (target_klass == NULL) {
2061 THROW_MSG_0(vmSymbols::java_lang_RuntimeException(), "Unable to look up field in target class");
2062 }
2063 oop field = Reflection::new_field(&fd, CHECK_NULL);
2064 return JNIHandles::make_local(field);
2065 }
2066
2067 JVM_ENTRY(jobject, JVM_ConstantPoolGetFieldAt(JNIEnv *env, jobject obj, jobject unusedl, jint index))
2068 {
2069 JVMWrapper("JVM_ConstantPoolGetFieldAt");
2070 JvmtiVMObjectAllocEventCollector oam;
2071 constantPoolHandle cp = constantPoolHandle(THREAD, reflect_ConstantPool::get_cp(JNIHandles::resolve_non_null(obj)));
2072 bounds_check(cp, index, CHECK_NULL);
2073 jobject res = get_field_at_helper(cp, index, true, CHECK_NULL);
2074 return res;
2075 }
2076 JVM_END
2077
2078 JVM_ENTRY(jobject, JVM_ConstantPoolGetFieldAtIfLoaded(JNIEnv *env, jobject obj, jobject unused, jint index))
2079 {
2080 JVMWrapper("JVM_ConstantPoolGetFieldAtIfLoaded");
2081 JvmtiVMObjectAllocEventCollector oam;
2082 constantPoolHandle cp = constantPoolHandle(THREAD, reflect_ConstantPool::get_cp(JNIHandles::resolve_non_null(obj)));
2083 bounds_check(cp, index, CHECK_NULL);
2084 jobject res = get_field_at_helper(cp, index, false, CHECK_NULL);
2085 return res;
2086 }
2087 JVM_END
2088
2089 JVM_ENTRY(jobjectArray, JVM_ConstantPoolGetMemberRefInfoAt(JNIEnv *env, jobject obj, jobject unused, jint index))
2090 {
2091 JVMWrapper("JVM_ConstantPoolGetMemberRefInfoAt");
2092 JvmtiVMObjectAllocEventCollector oam;
2093 constantPoolHandle cp = constantPoolHandle(THREAD, reflect_ConstantPool::get_cp(JNIHandles::resolve_non_null(obj)));
2094 bounds_check(cp, index, CHECK_NULL);
2095 constantTag tag = cp->tag_at(index);
2096 if (!tag.is_field_or_method()) {
2097 THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(), "Wrong type at constant pool index");
2098 }
2099 int klass_ref = cp->uncached_klass_ref_index_at(index);
2100 Symbol* klass_name = cp->klass_name_at(klass_ref);
2101 Symbol* member_name = cp->uncached_name_ref_at(index);
2102 Symbol* member_sig = cp->uncached_signature_ref_at(index);
2103 objArrayOop dest_o = oopFactory::new_objArray(SystemDictionary::String_klass(), 3, CHECK_NULL);
2104 objArrayHandle dest(THREAD, dest_o);
2105 Handle str = java_lang_String::create_from_symbol(klass_name, CHECK_NULL);
2106 dest->obj_at_put(0, str());
2107 str = java_lang_String::create_from_symbol(member_name, CHECK_NULL);
2108 dest->obj_at_put(1, str());
2109 str = java_lang_String::create_from_symbol(member_sig, CHECK_NULL);
2110 dest->obj_at_put(2, str());
2111 return (jobjectArray) JNIHandles::make_local(dest());
2112 }
2113 JVM_END
2114
2115 JVM_ENTRY(jint, JVM_ConstantPoolGetClassRefIndexAt(JNIEnv *env, jobject obj, jobject unused, jint index))
2116 {
2117 JVMWrapper("JVM_ConstantPoolGetClassRefIndexAt");
2118 JvmtiVMObjectAllocEventCollector oam;
2119 constantPoolHandle cp(THREAD, reflect_ConstantPool::get_cp(JNIHandles::resolve_non_null(obj)));
2120 bounds_check(cp, index, CHECK_0);
2121 constantTag tag = cp->tag_at(index);
2122 if (!tag.is_field_or_method()) {
2123 THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(), "Wrong type at constant pool index");
2124 }
2125 return (jint) cp->uncached_klass_ref_index_at(index);
2126 }
2127 JVM_END
2128
2129 JVM_ENTRY(jint, JVM_ConstantPoolGetNameAndTypeRefIndexAt(JNIEnv *env, jobject obj, jobject unused, jint index))
2130 {
2131 JVMWrapper("JVM_ConstantPoolGetNameAndTypeRefIndexAt");
2132 JvmtiVMObjectAllocEventCollector oam;
2133 constantPoolHandle cp(THREAD, reflect_ConstantPool::get_cp(JNIHandles::resolve_non_null(obj)));
2134 bounds_check(cp, index, CHECK_0);
2135 constantTag tag = cp->tag_at(index);
2136 if (!tag.is_invoke_dynamic() && !tag.is_field_or_method()) {
2137 THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(), "Wrong type at constant pool index");
2138 }
2139 return (jint) cp->uncached_name_and_type_ref_index_at(index);
2140 }
2141 JVM_END
2142
2143 JVM_ENTRY(jobjectArray, JVM_ConstantPoolGetNameAndTypeRefInfoAt(JNIEnv *env, jobject obj, jobject unused, jint index))
2144 {
2145 JVMWrapper("JVM_ConstantPoolGetNameAndTypeRefInfoAt");
2146 JvmtiVMObjectAllocEventCollector oam;
2147 constantPoolHandle cp(THREAD, reflect_ConstantPool::get_cp(JNIHandles::resolve_non_null(obj)));
2148 bounds_check(cp, index, CHECK_NULL);
2149 constantTag tag = cp->tag_at(index);
2150 if (!tag.is_name_and_type()) {
2151 THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(), "Wrong type at constant pool index");
2152 }
2153 Symbol* member_name = cp->symbol_at(cp->name_ref_index_at(index));
2154 Symbol* member_sig = cp->symbol_at(cp->signature_ref_index_at(index));
2155 objArrayOop dest_o = oopFactory::new_objArray(SystemDictionary::String_klass(), 2, CHECK_NULL);
2156 objArrayHandle dest(THREAD, dest_o);
2157 Handle str = java_lang_String::create_from_symbol(member_name, CHECK_NULL);
2158 dest->obj_at_put(0, str());
2159 str = java_lang_String::create_from_symbol(member_sig, CHECK_NULL);
2160 dest->obj_at_put(1, str());
2161 return (jobjectArray) JNIHandles::make_local(dest());
2162 }
2163 JVM_END
2164
2165 JVM_ENTRY(jint, JVM_ConstantPoolGetIntAt(JNIEnv *env, jobject obj, jobject unused, jint index))
2166 {
2167 JVMWrapper("JVM_ConstantPoolGetIntAt");
2168 constantPoolHandle cp = constantPoolHandle(THREAD, reflect_ConstantPool::get_cp(JNIHandles::resolve_non_null(obj)));
2169 bounds_check(cp, index, CHECK_0);
2170 constantTag tag = cp->tag_at(index);
2171 if (!tag.is_int()) {
2172 THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(), "Wrong type at constant pool index");
2173 }
2174 return cp->int_at(index);
2175 }
2176 JVM_END
2177
2178 JVM_ENTRY(jlong, JVM_ConstantPoolGetLongAt(JNIEnv *env, jobject obj, jobject unused, jint index))
2179 {
2180 JVMWrapper("JVM_ConstantPoolGetLongAt");
2181 constantPoolHandle cp = constantPoolHandle(THREAD, reflect_ConstantPool::get_cp(JNIHandles::resolve_non_null(obj)));
2182 bounds_check(cp, index, CHECK_(0L));
2183 constantTag tag = cp->tag_at(index);
2184 if (!tag.is_long()) {
2185 THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(), "Wrong type at constant pool index");
2186 }
2187 return cp->long_at(index);
2188 }
2189 JVM_END
2190
2191 JVM_ENTRY(jfloat, JVM_ConstantPoolGetFloatAt(JNIEnv *env, jobject obj, jobject unused, jint index))
2192 {
2193 JVMWrapper("JVM_ConstantPoolGetFloatAt");
2194 constantPoolHandle cp = constantPoolHandle(THREAD, reflect_ConstantPool::get_cp(JNIHandles::resolve_non_null(obj)));
2195 bounds_check(cp, index, CHECK_(0.0f));
2196 constantTag tag = cp->tag_at(index);
2197 if (!tag.is_float()) {
2198 THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(), "Wrong type at constant pool index");
2199 }
2200 return cp->float_at(index);
2201 }
2202 JVM_END
2203
2204 JVM_ENTRY(jdouble, JVM_ConstantPoolGetDoubleAt(JNIEnv *env, jobject obj, jobject unused, jint index))
2205 {
2206 JVMWrapper("JVM_ConstantPoolGetDoubleAt");
2207 constantPoolHandle cp = constantPoolHandle(THREAD, reflect_ConstantPool::get_cp(JNIHandles::resolve_non_null(obj)));
2208 bounds_check(cp, index, CHECK_(0.0));
2209 constantTag tag = cp->tag_at(index);
2210 if (!tag.is_double()) {
2211 THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(), "Wrong type at constant pool index");
2212 }
2213 return cp->double_at(index);
2214 }
2215 JVM_END
2216
2217 JVM_ENTRY(jstring, JVM_ConstantPoolGetStringAt(JNIEnv *env, jobject obj, jobject unused, jint index))
2218 {
2219 JVMWrapper("JVM_ConstantPoolGetStringAt");
2220 constantPoolHandle cp = constantPoolHandle(THREAD, reflect_ConstantPool::get_cp(JNIHandles::resolve_non_null(obj)));
2221 bounds_check(cp, index, CHECK_NULL);
2222 constantTag tag = cp->tag_at(index);
2223 if (!tag.is_string()) {
2224 THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(), "Wrong type at constant pool index");
2225 }
2226 oop str = cp->string_at(index, CHECK_NULL);
2227 return (jstring) JNIHandles::make_local(str);
2228 }
2229 JVM_END
2230
2231 JVM_ENTRY(jstring, JVM_ConstantPoolGetUTF8At(JNIEnv *env, jobject obj, jobject unused, jint index))
2232 {
2233 JVMWrapper("JVM_ConstantPoolGetUTF8At");
2234 JvmtiVMObjectAllocEventCollector oam;
2235 constantPoolHandle cp = constantPoolHandle(THREAD, reflect_ConstantPool::get_cp(JNIHandles::resolve_non_null(obj)));
2236 bounds_check(cp, index, CHECK_NULL);
2237 constantTag tag = cp->tag_at(index);
2238 if (!tag.is_symbol()) {
2239 THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(), "Wrong type at constant pool index");
2240 }
2241 Symbol* sym = cp->symbol_at(index);
2242 Handle str = java_lang_String::create_from_symbol(sym, CHECK_NULL);
2243 return (jstring) JNIHandles::make_local(str());
2244 }
2245 JVM_END
2246
2247 JVM_ENTRY(jbyte, JVM_ConstantPoolGetTagAt(JNIEnv *env, jobject obj, jobject unused, jint index))
2248 {
2249 JVMWrapper("JVM_ConstantPoolGetTagAt");
2250 constantPoolHandle cp = constantPoolHandle(THREAD, reflect_ConstantPool::get_cp(JNIHandles::resolve_non_null(obj)));
2251 bounds_check(cp, index, CHECK_0);
2252 constantTag tag = cp->tag_at(index);
2253 jbyte result = tag.value();
2254 // If returned tag values are not from the JVM spec, e.g. tags from 100 to 105,
2255 // they are changed to the corresponding tags from the JVM spec, so that java code in
2256 // sun.reflect.ConstantPool will return only tags from the JVM spec, not internal ones.
2257 if (tag.is_klass_or_reference()) {
2258 result = JVM_CONSTANT_Class;
2259 } else if (tag.is_string_index()) {
2260 result = JVM_CONSTANT_String;
2261 } else if (tag.is_method_type_in_error()) {
2262 result = JVM_CONSTANT_MethodType;
2263 } else if (tag.is_method_handle_in_error()) {
2264 result = JVM_CONSTANT_MethodHandle;
2265 }
2266 return result;
2267 }
2268 JVM_END
2269
2270 // Assertion support. //////////////////////////////////////////////////////////
2271
2272 JVM_ENTRY(jboolean, JVM_DesiredAssertionStatus(JNIEnv *env, jclass unused, jclass cls))
2273 JVMWrapper("JVM_DesiredAssertionStatus");
2274 assert(cls != NULL, "bad class");
2275
2276 oop r = JNIHandles::resolve(cls);
2277 assert(! java_lang_Class::is_primitive(r), "primitive classes not allowed");
2278 if (java_lang_Class::is_primitive(r)) return false;
2279
2280 Klass* k = java_lang_Class::as_Klass(r);
2281 assert(k->is_instance_klass(), "must be an instance klass");
2282 if (!k->is_instance_klass()) return false;
2283
2284 ResourceMark rm(THREAD);
2285 const char* name = k->name()->as_C_string();
2286 bool system_class = k->class_loader() == NULL;
2287 return JavaAssertions::enabled(name, system_class);
2288
2289 JVM_END
2290
2291
2292 // Return a new AssertionStatusDirectives object with the fields filled in with
2293 // command-line assertion arguments (i.e., -ea, -da).
2294 JVM_ENTRY(jobject, JVM_AssertionStatusDirectives(JNIEnv *env, jclass unused))
2295 JVMWrapper("JVM_AssertionStatusDirectives");
2296 JvmtiVMObjectAllocEventCollector oam;
2297 oop asd = JavaAssertions::createAssertionStatusDirectives(CHECK_NULL);
2298 return JNIHandles::make_local(env, asd);
2299 JVM_END
2300
2301 // Verification ////////////////////////////////////////////////////////////////////////////////
2302
2303 // Reflection for the verifier /////////////////////////////////////////////////////////////////
2304
2305 // RedefineClasses support: bug 6214132 caused verification to fail.
2306 // All functions from this section should call the jvmtiThreadSate function:
2307 // Klass* class_to_verify_considering_redefinition(Klass* klass).
2308 // The function returns a Klass* of the _scratch_class if the verifier
2309 // was invoked in the middle of the class redefinition.
2310 // Otherwise it returns its argument value which is the _the_class Klass*.
2311 // Please, refer to the description in the jvmtiThreadSate.hpp.
2312
2313 JVM_ENTRY(const char*, JVM_GetClassNameUTF(JNIEnv *env, jclass cls))
2314 JVMWrapper("JVM_GetClassNameUTF");
2315 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2316 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2317 return k->name()->as_utf8();
2318 JVM_END
2319
2320
2321 JVM_QUICK_ENTRY(void, JVM_GetClassCPTypes(JNIEnv *env, jclass cls, unsigned char *types))
2322 JVMWrapper("JVM_GetClassCPTypes");
2323 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2324 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2325 // types will have length zero if this is not an InstanceKlass
2326 // (length is determined by call to JVM_GetClassCPEntriesCount)
2327 if (k->is_instance_klass()) {
2328 ConstantPool* cp = InstanceKlass::cast(k)->constants();
2329 for (int index = cp->length() - 1; index >= 0; index--) {
2330 constantTag tag = cp->tag_at(index);
2331 types[index] = (tag.is_unresolved_klass()) ? JVM_CONSTANT_Class : tag.value();
2332 }
2333 }
2334 JVM_END
2335
2336
2337 JVM_QUICK_ENTRY(jint, JVM_GetClassCPEntriesCount(JNIEnv *env, jclass cls))
2338 JVMWrapper("JVM_GetClassCPEntriesCount");
2339 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2340 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2341 return (!k->is_instance_klass()) ? 0 : InstanceKlass::cast(k)->constants()->length();
2342 JVM_END
2343
2344
2345 JVM_QUICK_ENTRY(jint, JVM_GetClassFieldsCount(JNIEnv *env, jclass cls))
2346 JVMWrapper("JVM_GetClassFieldsCount");
2347 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2348 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2349 return (!k->is_instance_klass()) ? 0 : InstanceKlass::cast(k)->java_fields_count();
2350 JVM_END
2351
2352
2353 JVM_QUICK_ENTRY(jint, JVM_GetClassMethodsCount(JNIEnv *env, jclass cls))
2354 JVMWrapper("JVM_GetClassMethodsCount");
2355 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2356 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2357 return (!k->is_instance_klass()) ? 0 : InstanceKlass::cast(k)->methods()->length();
2358 JVM_END
2359
2360
2361 // The following methods, used for the verifier, are never called with
2362 // array klasses, so a direct cast to InstanceKlass is safe.
2363 // Typically, these methods are called in a loop with bounds determined
2364 // by the results of JVM_GetClass{Fields,Methods}Count, which return
2365 // zero for arrays.
2366 JVM_QUICK_ENTRY(void, JVM_GetMethodIxExceptionIndexes(JNIEnv *env, jclass cls, jint method_index, unsigned short *exceptions))
2367 JVMWrapper("JVM_GetMethodIxExceptionIndexes");
2368 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2369 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2370 Method* method = InstanceKlass::cast(k)->methods()->at(method_index);
2371 int length = method->checked_exceptions_length();
2372 if (length > 0) {
2373 CheckedExceptionElement* table= method->checked_exceptions_start();
2374 for (int i = 0; i < length; i++) {
2375 exceptions[i] = table[i].class_cp_index;
2376 }
2377 }
2378 JVM_END
2379
2380
2381 JVM_QUICK_ENTRY(jint, JVM_GetMethodIxExceptionsCount(JNIEnv *env, jclass cls, jint method_index))
2382 JVMWrapper("JVM_GetMethodIxExceptionsCount");
2383 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2384 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2385 Method* method = InstanceKlass::cast(k)->methods()->at(method_index);
2386 return method->checked_exceptions_length();
2387 JVM_END
2388
2389
2390 JVM_QUICK_ENTRY(void, JVM_GetMethodIxByteCode(JNIEnv *env, jclass cls, jint method_index, unsigned char *code))
2391 JVMWrapper("JVM_GetMethodIxByteCode");
2392 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2393 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2394 Method* method = InstanceKlass::cast(k)->methods()->at(method_index);
2395 memcpy(code, method->code_base(), method->code_size());
2396 JVM_END
2397
2398
2399 JVM_QUICK_ENTRY(jint, JVM_GetMethodIxByteCodeLength(JNIEnv *env, jclass cls, jint method_index))
2400 JVMWrapper("JVM_GetMethodIxByteCodeLength");
2401 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2402 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2403 Method* method = InstanceKlass::cast(k)->methods()->at(method_index);
2404 return method->code_size();
2405 JVM_END
2406
2407
2408 JVM_QUICK_ENTRY(void, JVM_GetMethodIxExceptionTableEntry(JNIEnv *env, jclass cls, jint method_index, jint entry_index, JVM_ExceptionTableEntryType *entry))
2409 JVMWrapper("JVM_GetMethodIxExceptionTableEntry");
2410 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2411 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2412 Method* method = InstanceKlass::cast(k)->methods()->at(method_index);
2413 ExceptionTable extable(method);
2414 entry->start_pc = extable.start_pc(entry_index);
2415 entry->end_pc = extable.end_pc(entry_index);
2416 entry->handler_pc = extable.handler_pc(entry_index);
2417 entry->catchType = extable.catch_type_index(entry_index);
2418 JVM_END
2419
2420
2421 JVM_QUICK_ENTRY(jint, JVM_GetMethodIxExceptionTableLength(JNIEnv *env, jclass cls, int method_index))
2422 JVMWrapper("JVM_GetMethodIxExceptionTableLength");
2423 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2424 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2425 Method* method = InstanceKlass::cast(k)->methods()->at(method_index);
2426 return method->exception_table_length();
2427 JVM_END
2428
2429
2430 JVM_QUICK_ENTRY(jint, JVM_GetMethodIxModifiers(JNIEnv *env, jclass cls, int method_index))
2431 JVMWrapper("JVM_GetMethodIxModifiers");
2432 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2433 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2434 Method* method = InstanceKlass::cast(k)->methods()->at(method_index);
2435 return method->access_flags().as_int() & JVM_RECOGNIZED_METHOD_MODIFIERS;
2436 JVM_END
2437
2438
2439 JVM_QUICK_ENTRY(jint, JVM_GetFieldIxModifiers(JNIEnv *env, jclass cls, int field_index))
2440 JVMWrapper("JVM_GetFieldIxModifiers");
2441 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2442 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2443 return InstanceKlass::cast(k)->field_access_flags(field_index) & JVM_RECOGNIZED_FIELD_MODIFIERS;
2444 JVM_END
2445
2446
2447 JVM_QUICK_ENTRY(jint, JVM_GetMethodIxLocalsCount(JNIEnv *env, jclass cls, int method_index))
2448 JVMWrapper("JVM_GetMethodIxLocalsCount");
2449 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2450 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2451 Method* method = InstanceKlass::cast(k)->methods()->at(method_index);
2452 return method->max_locals();
2453 JVM_END
2454
2455
2456 JVM_QUICK_ENTRY(jint, JVM_GetMethodIxArgsSize(JNIEnv *env, jclass cls, int method_index))
2457 JVMWrapper("JVM_GetMethodIxArgsSize");
2458 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2459 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2460 Method* method = InstanceKlass::cast(k)->methods()->at(method_index);
2461 return method->size_of_parameters();
2462 JVM_END
2463
2464
2465 JVM_QUICK_ENTRY(jint, JVM_GetMethodIxMaxStack(JNIEnv *env, jclass cls, int method_index))
2466 JVMWrapper("JVM_GetMethodIxMaxStack");
2467 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2468 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2469 Method* method = InstanceKlass::cast(k)->methods()->at(method_index);
2470 return method->verifier_max_stack();
2471 JVM_END
2472
2473
2474 JVM_QUICK_ENTRY(jboolean, JVM_IsConstructorIx(JNIEnv *env, jclass cls, int method_index))
2475 JVMWrapper("JVM_IsConstructorIx");
2476 ResourceMark rm(THREAD);
2477 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2478 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2479 Method* method = InstanceKlass::cast(k)->methods()->at(method_index);
2480 return method->name() == vmSymbols::object_initializer_name();
2481 JVM_END
2482
2483
2484 JVM_QUICK_ENTRY(jboolean, JVM_IsVMGeneratedMethodIx(JNIEnv *env, jclass cls, int method_index))
2485 JVMWrapper("JVM_IsVMGeneratedMethodIx");
2486 ResourceMark rm(THREAD);
2487 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2488 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2489 Method* method = InstanceKlass::cast(k)->methods()->at(method_index);
2490 return method->is_overpass();
2491 JVM_END
2492
2493 JVM_ENTRY(const char*, JVM_GetMethodIxNameUTF(JNIEnv *env, jclass cls, jint method_index))
2494 JVMWrapper("JVM_GetMethodIxIxUTF");
2495 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2496 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2497 Method* method = InstanceKlass::cast(k)->methods()->at(method_index);
2498 return method->name()->as_utf8();
2499 JVM_END
2500
2501
2502 JVM_ENTRY(const char*, JVM_GetMethodIxSignatureUTF(JNIEnv *env, jclass cls, jint method_index))
2503 JVMWrapper("JVM_GetMethodIxSignatureUTF");
2504 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2505 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2506 Method* method = InstanceKlass::cast(k)->methods()->at(method_index);
2507 return method->signature()->as_utf8();
2508 JVM_END
2509
2510 /**
2511 * All of these JVM_GetCP-xxx methods are used by the old verifier to
2512 * read entries in the constant pool. Since the old verifier always
2513 * works on a copy of the code, it will not see any rewriting that
2514 * may possibly occur in the middle of verification. So it is important
2515 * that nothing it calls tries to use the cpCache instead of the raw
2516 * constant pool, so we must use cp->uncached_x methods when appropriate.
2517 */
2518 JVM_ENTRY(const char*, JVM_GetCPFieldNameUTF(JNIEnv *env, jclass cls, jint cp_index))
2519 JVMWrapper("JVM_GetCPFieldNameUTF");
2520 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2521 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2522 ConstantPool* cp = InstanceKlass::cast(k)->constants();
2523 switch (cp->tag_at(cp_index).value()) {
2524 case JVM_CONSTANT_Fieldref:
2525 return cp->uncached_name_ref_at(cp_index)->as_utf8();
2526 default:
2527 fatal("JVM_GetCPFieldNameUTF: illegal constant");
2528 }
2529 ShouldNotReachHere();
2530 return NULL;
2531 JVM_END
2532
2533
2534 JVM_ENTRY(const char*, JVM_GetCPMethodNameUTF(JNIEnv *env, jclass cls, jint cp_index))
2535 JVMWrapper("JVM_GetCPMethodNameUTF");
2536 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2537 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2538 ConstantPool* cp = InstanceKlass::cast(k)->constants();
2539 switch (cp->tag_at(cp_index).value()) {
2540 case JVM_CONSTANT_InterfaceMethodref:
2541 case JVM_CONSTANT_Methodref:
2542 case JVM_CONSTANT_NameAndType: // for invokedynamic
2543 return cp->uncached_name_ref_at(cp_index)->as_utf8();
2544 default:
2545 fatal("JVM_GetCPMethodNameUTF: illegal constant");
2546 }
2547 ShouldNotReachHere();
2548 return NULL;
2549 JVM_END
2550
2551
2552 JVM_ENTRY(const char*, JVM_GetCPMethodSignatureUTF(JNIEnv *env, jclass cls, jint cp_index))
2553 JVMWrapper("JVM_GetCPMethodSignatureUTF");
2554 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2555 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2556 ConstantPool* cp = InstanceKlass::cast(k)->constants();
2557 switch (cp->tag_at(cp_index).value()) {
2558 case JVM_CONSTANT_InterfaceMethodref:
2559 case JVM_CONSTANT_Methodref:
2560 case JVM_CONSTANT_NameAndType: // for invokedynamic
2561 return cp->uncached_signature_ref_at(cp_index)->as_utf8();
2562 default:
2563 fatal("JVM_GetCPMethodSignatureUTF: illegal constant");
2564 }
2565 ShouldNotReachHere();
2566 return NULL;
2567 JVM_END
2568
2569
2570 JVM_ENTRY(const char*, JVM_GetCPFieldSignatureUTF(JNIEnv *env, jclass cls, jint cp_index))
2571 JVMWrapper("JVM_GetCPFieldSignatureUTF");
2572 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2573 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2574 ConstantPool* cp = InstanceKlass::cast(k)->constants();
2575 switch (cp->tag_at(cp_index).value()) {
2576 case JVM_CONSTANT_Fieldref:
2577 return cp->uncached_signature_ref_at(cp_index)->as_utf8();
2578 default:
2579 fatal("JVM_GetCPFieldSignatureUTF: illegal constant");
2580 }
2581 ShouldNotReachHere();
2582 return NULL;
2583 JVM_END
2584
2585
2586 JVM_ENTRY(const char*, JVM_GetCPClassNameUTF(JNIEnv *env, jclass cls, jint cp_index))
2587 JVMWrapper("JVM_GetCPClassNameUTF");
2588 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2589 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2590 ConstantPool* cp = InstanceKlass::cast(k)->constants();
2591 Symbol* classname = cp->klass_name_at(cp_index);
2592 return classname->as_utf8();
2593 JVM_END
2594
2595
2596 JVM_ENTRY(const char*, JVM_GetCPFieldClassNameUTF(JNIEnv *env, jclass cls, jint cp_index))
2597 JVMWrapper("JVM_GetCPFieldClassNameUTF");
2598 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2599 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2600 ConstantPool* cp = InstanceKlass::cast(k)->constants();
2601 switch (cp->tag_at(cp_index).value()) {
2602 case JVM_CONSTANT_Fieldref: {
2603 int class_index = cp->uncached_klass_ref_index_at(cp_index);
2604 Symbol* classname = cp->klass_name_at(class_index);
2605 return classname->as_utf8();
2606 }
2607 default:
2608 fatal("JVM_GetCPFieldClassNameUTF: illegal constant");
2609 }
2610 ShouldNotReachHere();
2611 return NULL;
2612 JVM_END
2613
2614
2615 JVM_ENTRY(const char*, JVM_GetCPMethodClassNameUTF(JNIEnv *env, jclass cls, jint cp_index))
2616 JVMWrapper("JVM_GetCPMethodClassNameUTF");
2617 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2618 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2619 ConstantPool* cp = InstanceKlass::cast(k)->constants();
2620 switch (cp->tag_at(cp_index).value()) {
2621 case JVM_CONSTANT_Methodref:
2622 case JVM_CONSTANT_InterfaceMethodref: {
2623 int class_index = cp->uncached_klass_ref_index_at(cp_index);
2624 Symbol* classname = cp->klass_name_at(class_index);
2625 return classname->as_utf8();
2626 }
2627 default:
2628 fatal("JVM_GetCPMethodClassNameUTF: illegal constant");
2629 }
2630 ShouldNotReachHere();
2631 return NULL;
2632 JVM_END
2633
2634
2635 JVM_ENTRY(jint, JVM_GetCPFieldModifiers(JNIEnv *env, jclass cls, int cp_index, jclass called_cls))
2636 JVMWrapper("JVM_GetCPFieldModifiers");
2637 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2638 Klass* k_called = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(called_cls));
2639 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2640 k_called = JvmtiThreadState::class_to_verify_considering_redefinition(k_called, thread);
2641 ConstantPool* cp = InstanceKlass::cast(k)->constants();
2642 ConstantPool* cp_called = InstanceKlass::cast(k_called)->constants();
2643 switch (cp->tag_at(cp_index).value()) {
2644 case JVM_CONSTANT_Fieldref: {
2645 Symbol* name = cp->uncached_name_ref_at(cp_index);
2646 Symbol* signature = cp->uncached_signature_ref_at(cp_index);
2647 for (JavaFieldStream fs(k_called); !fs.done(); fs.next()) {
2648 if (fs.name() == name && fs.signature() == signature) {
2649 return fs.access_flags().as_short() & JVM_RECOGNIZED_FIELD_MODIFIERS;
2650 }
2651 }
2652 return -1;
2653 }
2654 default:
2655 fatal("JVM_GetCPFieldModifiers: illegal constant");
2656 }
2657 ShouldNotReachHere();
2658 return 0;
2659 JVM_END
2660
2661
2662 JVM_QUICK_ENTRY(jint, JVM_GetCPMethodModifiers(JNIEnv *env, jclass cls, int cp_index, jclass called_cls))
2663 JVMWrapper("JVM_GetCPMethodModifiers");
2664 Klass* k = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(cls));
2665 Klass* k_called = java_lang_Class::as_Klass(JNIHandles::resolve_non_null(called_cls));
2666 k = JvmtiThreadState::class_to_verify_considering_redefinition(k, thread);
2667 k_called = JvmtiThreadState::class_to_verify_considering_redefinition(k_called, thread);
2668 ConstantPool* cp = InstanceKlass::cast(k)->constants();
2669 switch (cp->tag_at(cp_index).value()) {
2670 case JVM_CONSTANT_Methodref:
2671 case JVM_CONSTANT_InterfaceMethodref: {
2672 Symbol* name = cp->uncached_name_ref_at(cp_index);
2673 Symbol* signature = cp->uncached_signature_ref_at(cp_index);
2674 Array<Method*>* methods = InstanceKlass::cast(k_called)->methods();
2675 int methods_count = methods->length();
2676 for (int i = 0; i < methods_count; i++) {
2677 Method* method = methods->at(i);
2678 if (method->name() == name && method->signature() == signature) {
2679 return method->access_flags().as_int() & JVM_RECOGNIZED_METHOD_MODIFIERS;
2680 }
2681 }
2682 return -1;
2683 }
2684 default:
2685 fatal("JVM_GetCPMethodModifiers: illegal constant");
2686 }
2687 ShouldNotReachHere();
2688 return 0;
2689 JVM_END
2690
2691
2692 // Misc //////////////////////////////////////////////////////////////////////////////////////////////
2693
2694 JVM_LEAF(void, JVM_ReleaseUTF(const char *utf))
2695 // So long as UTF8::convert_to_utf8 returns resource strings, we don't have to do anything
2696 JVM_END
2697
2698
2699 JVM_ENTRY(jboolean, JVM_IsSameClassPackage(JNIEnv *env, jclass class1, jclass class2))
2700 JVMWrapper("JVM_IsSameClassPackage");
2701 oop class1_mirror = JNIHandles::resolve_non_null(class1);
2702 oop class2_mirror = JNIHandles::resolve_non_null(class2);
2703 Klass* klass1 = java_lang_Class::as_Klass(class1_mirror);
2704 Klass* klass2 = java_lang_Class::as_Klass(class2_mirror);
2705 return (jboolean) Reflection::is_same_class_package(klass1, klass2);
2706 JVM_END
2707
2708 // Printing support //////////////////////////////////////////////////
2709 extern "C" {
2710
2711 ATTRIBUTE_PRINTF(3, 0)
2712 int jio_vsnprintf(char *str, size_t count, const char *fmt, va_list args) {
2713 // see bug 4399518, 4417214
2714 if ((intptr_t)count <= 0) return -1;
2715
2716 int result = vsnprintf(str, count, fmt, args);
2717 // Note: on truncation vsnprintf(3) on Unix returns numbers of
2718 // characters which would have been written had the buffer been large
2719 // enough; on Windows, it returns -1. We handle both cases here and
2720 // always return -1, and perform null termination.
2721 if ((result > 0 && (size_t)result >= count) || result == -1) {
2722 str[count - 1] = '\0';
2723 result = -1;
2724 }
2725
2726 return result;
2727 }
2728
2729 ATTRIBUTE_PRINTF(3, 0)
2730 int jio_snprintf(char *str, size_t count, const char *fmt, ...) {
2731 va_list args;
2732 int len;
2733 va_start(args, fmt);
2734 len = jio_vsnprintf(str, count, fmt, args);
2735 va_end(args);
2736 return len;
2737 }
2738
2739 ATTRIBUTE_PRINTF(2,3)
2740 int jio_fprintf(FILE* f, const char *fmt, ...) {
2741 int len;
2742 va_list args;
2743 va_start(args, fmt);
2744 len = jio_vfprintf(f, fmt, args);
2745 va_end(args);
2746 return len;
2747 }
2748
2749 ATTRIBUTE_PRINTF(2, 0)
2750 int jio_vfprintf(FILE* f, const char *fmt, va_list args) {
2751 if (Arguments::vfprintf_hook() != NULL) {
2752 return Arguments::vfprintf_hook()(f, fmt, args);
2753 } else {
2754 return vfprintf(f, fmt, args);
2755 }
2756 }
2757
2758 ATTRIBUTE_PRINTF(1, 2)
2759 JNIEXPORT int jio_printf(const char *fmt, ...) {
2760 int len;
2761 va_list args;
2762 va_start(args, fmt);
2763 len = jio_vfprintf(defaultStream::output_stream(), fmt, args);
2764 va_end(args);
2765 return len;
2766 }
2767
2768
2769 // HotSpot specific jio method
2770 void jio_print(const char* s) {
2771 // Try to make this function as atomic as possible.
2772 if (Arguments::vfprintf_hook() != NULL) {
2773 jio_fprintf(defaultStream::output_stream(), "%s", s);
2774 } else {
2775 // Make an unused local variable to avoid warning from gcc 4.x compiler.
2776 size_t count = ::write(defaultStream::output_fd(), s, (int)strlen(s));
2777 }
2778 }
2779
2780 } // Extern C
2781
2782 // java.lang.Thread //////////////////////////////////////////////////////////////////////////////
2783
2784 // In most of the JVM Thread support functions we need to be sure to lock the Threads_lock
2785 // to prevent the target thread from exiting after we have a pointer to the C++ Thread or
2786 // OSThread objects. The exception to this rule is when the target object is the thread
2787 // doing the operation, in which case we know that the thread won't exit until the
2788 // operation is done (all exits being voluntary). There are a few cases where it is
2789 // rather silly to do operations on yourself, like resuming yourself or asking whether
2790 // you are alive. While these can still happen, they are not subject to deadlocks if
2791 // the lock is held while the operation occurs (this is not the case for suspend, for
2792 // instance), and are very unlikely. Because IsAlive needs to be fast and its
2793 // implementation is local to this file, we always lock Threads_lock for that one.
2794
2795 static void thread_entry(JavaThread* thread, TRAPS) {
2796 HandleMark hm(THREAD);
2797 Handle obj(THREAD, thread->threadObj());
2798 JavaValue result(T_VOID);
2799 JavaCalls::call_virtual(&result,
2800 obj,
2801 KlassHandle(THREAD, SystemDictionary::Thread_klass()),
2802 vmSymbols::run_method_name(),
2803 vmSymbols::void_method_signature(),
2804 THREAD);
2805 }
2806
2807
2808 JVM_ENTRY(void, JVM_StartThread(JNIEnv* env, jobject jthread))
2809 JVMWrapper("JVM_StartThread");
2810 JavaThread *native_thread = NULL;
2811
2812 // We cannot hold the Threads_lock when we throw an exception,
2813 // due to rank ordering issues. Example: we might need to grab the
2814 // Heap_lock while we construct the exception.
2815 bool throw_illegal_thread_state = false;
2816
2817 // We must release the Threads_lock before we can post a jvmti event
2818 // in Thread::start.
2819 {
2820 // Ensure that the C++ Thread and OSThread structures aren't freed before
2821 // we operate.
2822 MutexLocker mu(Threads_lock);
2823
2824 // Since JDK 5 the java.lang.Thread threadStatus is used to prevent
2825 // re-starting an already started thread, so we should usually find
2826 // that the JavaThread is null. However for a JNI attached thread
2827 // there is a small window between the Thread object being created
2828 // (with its JavaThread set) and the update to its threadStatus, so we
2829 // have to check for this
2830 if (java_lang_Thread::thread(JNIHandles::resolve_non_null(jthread)) != NULL) {
2831 throw_illegal_thread_state = true;
2832 } else {
2833 // We could also check the stillborn flag to see if this thread was already stopped, but
2834 // for historical reasons we let the thread detect that itself when it starts running
2835
2836 jlong size =
2837 java_lang_Thread::stackSize(JNIHandles::resolve_non_null(jthread));
2838 // Allocate the C++ Thread structure and create the native thread. The
2839 // stack size retrieved from java is signed, but the constructor takes
2840 // size_t (an unsigned type), so avoid passing negative values which would
2841 // result in really large stacks.
2842 size_t sz = size > 0 ? (size_t) size : 0;
2843 native_thread = new JavaThread(&thread_entry, sz);
2844
2845 // At this point it may be possible that no osthread was created for the
2846 // JavaThread due to lack of memory. Check for this situation and throw
2847 // an exception if necessary. Eventually we may want to change this so
2848 // that we only grab the lock if the thread was created successfully -
2849 // then we can also do this check and throw the exception in the
2850 // JavaThread constructor.
2851 if (native_thread->osthread() != NULL) {
2852 // Note: the current thread is not being used within "prepare".
2853 native_thread->prepare(jthread);
2854 }
2855 }
2856 }
2857
2858 if (throw_illegal_thread_state) {
2859 THROW(vmSymbols::java_lang_IllegalThreadStateException());
2860 }
2861
2862 assert(native_thread != NULL, "Starting null thread?");
2863
2864 if (native_thread->osthread() == NULL) {
2865 // No one should hold a reference to the 'native_thread'.
2866 delete native_thread;
2867 if (JvmtiExport::should_post_resource_exhausted()) {
2868 JvmtiExport::post_resource_exhausted(
2869 JVMTI_RESOURCE_EXHAUSTED_OOM_ERROR | JVMTI_RESOURCE_EXHAUSTED_THREADS,
2870 os::native_thread_creation_failed_msg());
2871 }
2872 THROW_MSG(vmSymbols::java_lang_OutOfMemoryError(),
2873 os::native_thread_creation_failed_msg());
2874 }
2875
2876 Thread::start(native_thread);
2877
2878 JVM_END
2879
2880 // JVM_Stop is implemented using a VM_Operation, so threads are forced to safepoints
2881 // before the quasi-asynchronous exception is delivered. This is a little obtrusive,
2882 // but is thought to be reliable and simple. In the case, where the receiver is the
2883 // same thread as the sender, no safepoint is needed.
2884 JVM_ENTRY(void, JVM_StopThread(JNIEnv* env, jobject jthread, jobject throwable))
2885 JVMWrapper("JVM_StopThread");
2886
2887 oop java_throwable = JNIHandles::resolve(throwable);
2888 if (java_throwable == NULL) {
2889 THROW(vmSymbols::java_lang_NullPointerException());
2890 }
2891 oop java_thread = JNIHandles::resolve_non_null(jthread);
2892 JavaThread* receiver = java_lang_Thread::thread(java_thread);
2893 Events::log_exception(JavaThread::current(),
2894 "JVM_StopThread thread JavaThread " INTPTR_FORMAT " as oop " INTPTR_FORMAT " [exception " INTPTR_FORMAT "]",
2895 p2i(receiver), p2i((address)java_thread), p2i(throwable));
2896 // First check if thread is alive
2897 if (receiver != NULL) {
2898 // Check if exception is getting thrown at self (use oop equality, since the
2899 // target object might exit)
2900 if (java_thread == thread->threadObj()) {
2901 THROW_OOP(java_throwable);
2902 } else {
2903 // Enques a VM_Operation to stop all threads and then deliver the exception...
2904 Thread::send_async_exception(java_thread, JNIHandles::resolve(throwable));
2905 }
2906 }
2907 else {
2908 // Either:
2909 // - target thread has not been started before being stopped, or
2910 // - target thread already terminated
2911 // We could read the threadStatus to determine which case it is
2912 // but that is overkill as it doesn't matter. We must set the
2913 // stillborn flag for the first case, and if the thread has already
2914 // exited setting this flag has no affect
2915 java_lang_Thread::set_stillborn(java_thread);
2916 }
2917 JVM_END
2918
2919
2920 JVM_ENTRY(jboolean, JVM_IsThreadAlive(JNIEnv* env, jobject jthread))
2921 JVMWrapper("JVM_IsThreadAlive");
2922
2923 oop thread_oop = JNIHandles::resolve_non_null(jthread);
2924 return java_lang_Thread::is_alive(thread_oop);
2925 JVM_END
2926
2927
2928 JVM_ENTRY(void, JVM_SuspendThread(JNIEnv* env, jobject jthread))
2929 JVMWrapper("JVM_SuspendThread");
2930 oop java_thread = JNIHandles::resolve_non_null(jthread);
2931 JavaThread* receiver = java_lang_Thread::thread(java_thread);
2932
2933 if (receiver != NULL) {
2934 // thread has run and has not exited (still on threads list)
2935
2936 {
2937 MutexLockerEx ml(receiver->SR_lock(), Mutex::_no_safepoint_check_flag);
2938 if (receiver->is_external_suspend()) {
2939 // Don't allow nested external suspend requests. We can't return
2940 // an error from this interface so just ignore the problem.
2941 return;
2942 }
2943 if (receiver->is_exiting()) { // thread is in the process of exiting
2944 return;
2945 }
2946 receiver->set_external_suspend();
2947 }
2948
2949 // java_suspend() will catch threads in the process of exiting
2950 // and will ignore them.
2951 receiver->java_suspend();
2952
2953 // It would be nice to have the following assertion in all the
2954 // time, but it is possible for a racing resume request to have
2955 // resumed this thread right after we suspended it. Temporarily
2956 // enable this assertion if you are chasing a different kind of
2957 // bug.
2958 //
2959 // assert(java_lang_Thread::thread(receiver->threadObj()) == NULL ||
2960 // receiver->is_being_ext_suspended(), "thread is not suspended");
2961 }
2962 JVM_END
2963
2964
2965 JVM_ENTRY(void, JVM_ResumeThread(JNIEnv* env, jobject jthread))
2966 JVMWrapper("JVM_ResumeThread");
2967 // Ensure that the C++ Thread and OSThread structures aren't freed before we operate.
2968 // We need to *always* get the threads lock here, since this operation cannot be allowed during
2969 // a safepoint. The safepoint code relies on suspending a thread to examine its state. If other
2970 // threads randomly resumes threads, then a thread might not be suspended when the safepoint code
2971 // looks at it.
2972 MutexLocker ml(Threads_lock);
2973 JavaThread* thr = java_lang_Thread::thread(JNIHandles::resolve_non_null(jthread));
2974 if (thr != NULL) {
2975 // the thread has run and is not in the process of exiting
2976 thr->java_resume();
2977 }
2978 JVM_END
2979
2980
2981 JVM_ENTRY(void, JVM_SetThreadPriority(JNIEnv* env, jobject jthread, jint prio))
2982 JVMWrapper("JVM_SetThreadPriority");
2983 // Ensure that the C++ Thread and OSThread structures aren't freed before we operate
2984 MutexLocker ml(Threads_lock);
2985 oop java_thread = JNIHandles::resolve_non_null(jthread);
2986 java_lang_Thread::set_priority(java_thread, (ThreadPriority)prio);
2987 JavaThread* thr = java_lang_Thread::thread(java_thread);
2988 if (thr != NULL) { // Thread not yet started; priority pushed down when it is
2989 Thread::set_priority(thr, (ThreadPriority)prio);
2990 }
2991 JVM_END
2992
2993
2994 JVM_ENTRY(void, JVM_Yield(JNIEnv *env, jclass threadClass))
2995 JVMWrapper("JVM_Yield");
2996 if (os::dont_yield()) return;
2997 HOTSPOT_THREAD_YIELD();
2998
2999 // When ConvertYieldToSleep is off (default), this matches the classic VM use of yield.
3000 // Critical for similar threading behaviour
3001 if (ConvertYieldToSleep) {
3002 os::sleep(thread, MinSleepInterval, false);
3003 } else {
3004 os::naked_yield();
3005 }
3006 JVM_END
3007
3008
3009 JVM_ENTRY(void, JVM_Sleep(JNIEnv* env, jclass threadClass, jlong millis))
3010 JVMWrapper("JVM_Sleep");
3011
3012 if (millis < 0) {
3013 THROW_MSG(vmSymbols::java_lang_IllegalArgumentException(), "timeout value is negative");
3014 }
3015
3016 if (Thread::is_interrupted (THREAD, true) && !HAS_PENDING_EXCEPTION) {
3017 THROW_MSG(vmSymbols::java_lang_InterruptedException(), "sleep interrupted");
3018 }
3019
3020 // Save current thread state and restore it at the end of this block.
3021 // And set new thread state to SLEEPING.
3022 JavaThreadSleepState jtss(thread);
3023
3024 HOTSPOT_THREAD_SLEEP_BEGIN(millis);
3025
3026 EventThreadSleep event;
3027
3028 if (millis == 0) {
3029 // When ConvertSleepToYield is on, this matches the classic VM implementation of
3030 // JVM_Sleep. Critical for similar threading behaviour (Win32)
3031 // It appears that in certain GUI contexts, it may be beneficial to do a short sleep
3032 // for SOLARIS
3033 if (ConvertSleepToYield) {
3034 os::naked_yield();
3035 } else {
3036 ThreadState old_state = thread->osthread()->get_state();
3037 thread->osthread()->set_state(SLEEPING);
3038 os::sleep(thread, MinSleepInterval, false);
3039 thread->osthread()->set_state(old_state);
3040 }
3041 } else {
3042 ThreadState old_state = thread->osthread()->get_state();
3043 thread->osthread()->set_state(SLEEPING);
3044 if (os::sleep(thread, millis, true) == OS_INTRPT) {
3045 // An asynchronous exception (e.g., ThreadDeathException) could have been thrown on
3046 // us while we were sleeping. We do not overwrite those.
3047 if (!HAS_PENDING_EXCEPTION) {
3048 if (event.should_commit()) {
3049 event.set_time(millis);
3050 event.commit();
3051 }
3052 HOTSPOT_THREAD_SLEEP_END(1);
3053
3054 // TODO-FIXME: THROW_MSG returns which means we will not call set_state()
3055 // to properly restore the thread state. That's likely wrong.
3056 THROW_MSG(vmSymbols::java_lang_InterruptedException(), "sleep interrupted");
3057 }
3058 }
3059 thread->osthread()->set_state(old_state);
3060 }
3061 if (event.should_commit()) {
3062 event.set_time(millis);
3063 event.commit();
3064 }
3065 HOTSPOT_THREAD_SLEEP_END(0);
3066 JVM_END
3067
3068 JVM_ENTRY(jobject, JVM_CurrentThread(JNIEnv* env, jclass threadClass))
3069 JVMWrapper("JVM_CurrentThread");
3070 oop jthread = thread->threadObj();
3071 assert (thread != NULL, "no current thread!");
3072 return JNIHandles::make_local(env, jthread);
3073 JVM_END
3074
3075
3076 JVM_ENTRY(jint, JVM_CountStackFrames(JNIEnv* env, jobject jthread))
3077 JVMWrapper("JVM_CountStackFrames");
3078
3079 // Ensure that the C++ Thread and OSThread structures aren't freed before we operate
3080 oop java_thread = JNIHandles::resolve_non_null(jthread);
3081 bool throw_illegal_thread_state = false;
3082 int count = 0;
3083
3084 {
3085 MutexLockerEx ml(thread->threadObj() == java_thread ? NULL : Threads_lock);
3086 // We need to re-resolve the java_thread, since a GC might have happened during the
3087 // acquire of the lock
3088 JavaThread* thr = java_lang_Thread::thread(JNIHandles::resolve_non_null(jthread));
3089
3090 if (thr == NULL) {
3091 // do nothing
3092 } else if(! thr->is_external_suspend() || ! thr->frame_anchor()->walkable()) {
3093 // Check whether this java thread has been suspended already. If not, throws
3094 // IllegalThreadStateException. We defer to throw that exception until
3095 // Threads_lock is released since loading exception class has to leave VM.
3096 // The correct way to test a thread is actually suspended is
3097 // wait_for_ext_suspend_completion(), but we can't call that while holding
3098 // the Threads_lock. The above tests are sufficient for our purposes
3099 // provided the walkability of the stack is stable - which it isn't
3100 // 100% but close enough for most practical purposes.
3101 throw_illegal_thread_state = true;
3102 } else {
3103 // Count all java activation, i.e., number of vframes
3104 for(vframeStream vfst(thr); !vfst.at_end(); vfst.next()) {
3105 // Native frames are not counted
3106 if (!vfst.method()->is_native()) count++;
3107 }
3108 }
3109 }
3110
3111 if (throw_illegal_thread_state) {
3112 THROW_MSG_0(vmSymbols::java_lang_IllegalThreadStateException(),
3113 "this thread is not suspended");
3114 }
3115 return count;
3116 JVM_END
3117
3118 // Consider: A better way to implement JVM_Interrupt() is to acquire
3119 // Threads_lock to resolve the jthread into a Thread pointer, fetch
3120 // Thread->platformevent, Thread->native_thr, Thread->parker, etc.,
3121 // drop Threads_lock, and the perform the unpark() and thr_kill() operations
3122 // outside the critical section. Threads_lock is hot so we want to minimize
3123 // the hold-time. A cleaner interface would be to decompose interrupt into
3124 // two steps. The 1st phase, performed under Threads_lock, would return
3125 // a closure that'd be invoked after Threads_lock was dropped.
3126 // This tactic is safe as PlatformEvent and Parkers are type-stable (TSM) and
3127 // admit spurious wakeups.
3128
3129 JVM_ENTRY(void, JVM_Interrupt(JNIEnv* env, jobject jthread))
3130 JVMWrapper("JVM_Interrupt");
3131
3132 // Ensure that the C++ Thread and OSThread structures aren't freed before we operate
3133 oop java_thread = JNIHandles::resolve_non_null(jthread);
3134 MutexLockerEx ml(thread->threadObj() == java_thread ? NULL : Threads_lock);
3135 // We need to re-resolve the java_thread, since a GC might have happened during the
3136 // acquire of the lock
3137 JavaThread* thr = java_lang_Thread::thread(JNIHandles::resolve_non_null(jthread));
3138 if (thr != NULL) {
3139 Thread::interrupt(thr);
3140 }
3141 JVM_END
3142
3143
3144 JVM_QUICK_ENTRY(jboolean, JVM_IsInterrupted(JNIEnv* env, jobject jthread, jboolean clear_interrupted))
3145 JVMWrapper("JVM_IsInterrupted");
3146
3147 // Ensure that the C++ Thread and OSThread structures aren't freed before we operate
3148 oop java_thread = JNIHandles::resolve_non_null(jthread);
3149 MutexLockerEx ml(thread->threadObj() == java_thread ? NULL : Threads_lock);
3150 // We need to re-resolve the java_thread, since a GC might have happened during the
3151 // acquire of the lock
3152 JavaThread* thr = java_lang_Thread::thread(JNIHandles::resolve_non_null(jthread));
3153 if (thr == NULL) {
3154 return JNI_FALSE;
3155 } else {
3156 return (jboolean) Thread::is_interrupted(thr, clear_interrupted != 0);
3157 }
3158 JVM_END
3159
3160
3161 // Return true iff the current thread has locked the object passed in
3162
3163 JVM_ENTRY(jboolean, JVM_HoldsLock(JNIEnv* env, jclass threadClass, jobject obj))
3164 JVMWrapper("JVM_HoldsLock");
3165 assert(THREAD->is_Java_thread(), "sanity check");
3166 if (obj == NULL) {
3167 THROW_(vmSymbols::java_lang_NullPointerException(), JNI_FALSE);
3168 }
3169 Handle h_obj(THREAD, JNIHandles::resolve(obj));
3170 return ObjectSynchronizer::current_thread_holds_lock((JavaThread*)THREAD, h_obj);
3171 JVM_END
3172
3173
3174 JVM_ENTRY(void, JVM_DumpAllStacks(JNIEnv* env, jclass))
3175 JVMWrapper("JVM_DumpAllStacks");
3176 VM_PrintThreads op;
3177 VMThread::execute(&op);
3178 if (JvmtiExport::should_post_data_dump()) {
3179 JvmtiExport::post_data_dump();
3180 }
3181 JVM_END
3182
3183 JVM_ENTRY(void, JVM_SetNativeThreadName(JNIEnv* env, jobject jthread, jstring name, jboolean allowAttachedThread))
3184 JVMWrapper("JVM_SetNativeThreadName");
3185 ResourceMark rm(THREAD);
3186 oop java_thread = JNIHandles::resolve_non_null(jthread);
3187 JavaThread* thr = java_lang_Thread::thread(java_thread);
3188 // Thread naming only supported for the current thread, doesn't work for
3189 // target threads.
3190 if (Thread::current() == thr && (allowAttachedThread || !thr->has_attached_via_jni())) {
3191 // Sets the native thread name for a JavaThread. If specifically
3192 // requested JNI-attached threads can also have their native name set;
3193 // otherwise we do not modify JNI-attached threads as it may interfere
3194 // with the application that created them.
3195 const char *thread_name = java_lang_String::as_utf8_string(JNIHandles::resolve_non_null(name));
3196 os::set_native_thread_name(thread_name);
3197 }
3198 JVM_END
3199
3200 // java.lang.SecurityManager ///////////////////////////////////////////////////////////////////////
3201
3202 static bool is_trusted_frame(JavaThread* jthread, vframeStream* vfst) {
3203 assert(jthread->is_Java_thread(), "must be a Java thread");
3204 if (jthread->privileged_stack_top() == NULL) return false;
3205 if (jthread->privileged_stack_top()->frame_id() == vfst->frame_id()) {
3206 oop loader = jthread->privileged_stack_top()->class_loader();
3207 if (loader == NULL) return true;
3208 bool trusted = java_lang_ClassLoader::is_trusted_loader(loader);
3209 if (trusted) return true;
3210 }
3211 return false;
3212 }
3213
3214 JVM_ENTRY(jclass, JVM_CurrentLoadedClass(JNIEnv *env))
3215 JVMWrapper("JVM_CurrentLoadedClass");
3216 ResourceMark rm(THREAD);
3217
3218 for (vframeStream vfst(thread); !vfst.at_end(); vfst.next()) {
3219 // if a method in a class in a trusted loader is in a doPrivileged, return NULL
3220 bool trusted = is_trusted_frame(thread, &vfst);
3221 if (trusted) return NULL;
3222
3223 Method* m = vfst.method();
3224 if (!m->is_native()) {
3225 InstanceKlass* holder = m->method_holder();
3226 oop loader = holder->class_loader();
3227 if (loader != NULL && !java_lang_ClassLoader::is_trusted_loader(loader)) {
3228 return (jclass) JNIHandles::make_local(env, holder->java_mirror());
3229 }
3230 }
3231 }
3232 return NULL;
3233 JVM_END
3234
3235
3236 JVM_ENTRY(jobject, JVM_CurrentClassLoader(JNIEnv *env))
3237 JVMWrapper("JVM_CurrentClassLoader");
3238 ResourceMark rm(THREAD);
3239
3240 for (vframeStream vfst(thread); !vfst.at_end(); vfst.next()) {
3241
3242 // if a method in a class in a trusted loader is in a doPrivileged, return NULL
3243 bool trusted = is_trusted_frame(thread, &vfst);
3244 if (trusted) return NULL;
3245
3246 Method* m = vfst.method();
3247 if (!m->is_native()) {
3248 InstanceKlass* holder = m->method_holder();
3249 assert(holder->is_klass(), "just checking");
3250 oop loader = holder->class_loader();
3251 if (loader != NULL && !java_lang_ClassLoader::is_trusted_loader(loader)) {
3252 return JNIHandles::make_local(env, loader);
3253 }
3254 }
3255 }
3256 return NULL;
3257 JVM_END
3258
3259
3260 JVM_ENTRY(jobjectArray, JVM_GetClassContext(JNIEnv *env))
3261 JVMWrapper("JVM_GetClassContext");
3262 ResourceMark rm(THREAD);
3263 JvmtiVMObjectAllocEventCollector oam;
3264 vframeStream vfst(thread);
3265
3266 if (SystemDictionary::reflect_CallerSensitive_klass() != NULL) {
3267 // This must only be called from SecurityManager.getClassContext
3268 Method* m = vfst.method();
3269 if (!(m->method_holder() == SystemDictionary::SecurityManager_klass() &&
3270 m->name() == vmSymbols::getClassContext_name() &&
3271 m->signature() == vmSymbols::void_class_array_signature())) {
3272 THROW_MSG_NULL(vmSymbols::java_lang_InternalError(), "JVM_GetClassContext must only be called from SecurityManager.getClassContext");
3273 }
3274 }
3275
3276 // Collect method holders
3277 GrowableArray<KlassHandle>* klass_array = new GrowableArray<KlassHandle>();
3278 for (; !vfst.at_end(); vfst.security_next()) {
3279 Method* m = vfst.method();
3280 // Native frames are not returned
3281 if (!m->is_ignored_by_security_stack_walk() && !m->is_native()) {
3282 Klass* holder = m->method_holder();
3283 assert(holder->is_klass(), "just checking");
3284 klass_array->append(holder);
3285 }
3286 }
3287
3288 // Create result array of type [Ljava/lang/Class;
3289 objArrayOop result = oopFactory::new_objArray(SystemDictionary::Class_klass(), klass_array->length(), CHECK_NULL);
3290 // Fill in mirrors corresponding to method holders
3291 for (int i = 0; i < klass_array->length(); i++) {
3292 result->obj_at_put(i, klass_array->at(i)->java_mirror());
3293 }
3294
3295 return (jobjectArray) JNIHandles::make_local(env, result);
3296 JVM_END
3297
3298
3299 JVM_ENTRY(jint, JVM_ClassDepth(JNIEnv *env, jstring name))
3300 JVMWrapper("JVM_ClassDepth");
3301 ResourceMark rm(THREAD);
3302 Handle h_name (THREAD, JNIHandles::resolve_non_null(name));
3303 Handle class_name_str = java_lang_String::internalize_classname(h_name, CHECK_0);
3304
3305 const char* str = java_lang_String::as_utf8_string(class_name_str());
3306 TempNewSymbol class_name_sym = SymbolTable::probe(str, (int)strlen(str));
3307 if (class_name_sym == NULL) {
3308 return -1;
3309 }
3310
3311 int depth = 0;
3312
3313 for(vframeStream vfst(thread); !vfst.at_end(); vfst.next()) {
3314 if (!vfst.method()->is_native()) {
3315 InstanceKlass* holder = vfst.method()->method_holder();
3316 assert(holder->is_klass(), "just checking");
3317 if (holder->name() == class_name_sym) {
3318 return depth;
3319 }
3320 depth++;
3321 }
3322 }
3323 return -1;
3324 JVM_END
3325
3326
3327 JVM_ENTRY(jint, JVM_ClassLoaderDepth(JNIEnv *env))
3328 JVMWrapper("JVM_ClassLoaderDepth");
3329 ResourceMark rm(THREAD);
3330 int depth = 0;
3331 for (vframeStream vfst(thread); !vfst.at_end(); vfst.next()) {
3332 // if a method in a class in a trusted loader is in a doPrivileged, return -1
3333 bool trusted = is_trusted_frame(thread, &vfst);
3334 if (trusted) return -1;
3335
3336 Method* m = vfst.method();
3337 if (!m->is_native()) {
3338 InstanceKlass* holder = m->method_holder();
3339 assert(holder->is_klass(), "just checking");
3340 oop loader = holder->class_loader();
3341 if (loader != NULL && !java_lang_ClassLoader::is_trusted_loader(loader)) {
3342 return depth;
3343 }
3344 depth++;
3345 }
3346 }
3347 return -1;
3348 JVM_END
3349
3350
3351 // java.lang.Package ////////////////////////////////////////////////////////////////
3352
3353
3354 JVM_ENTRY(jstring, JVM_GetSystemPackage(JNIEnv *env, jstring name))
3355 JVMWrapper("JVM_GetSystemPackage");
3356 ResourceMark rm(THREAD);
3357 JvmtiVMObjectAllocEventCollector oam;
3358 char* str = java_lang_String::as_utf8_string(JNIHandles::resolve_non_null(name));
3359 oop result = ClassLoader::get_system_package(str, CHECK_NULL);
3360 return (jstring) JNIHandles::make_local(result);
3361 JVM_END
3362
3363
3364 JVM_ENTRY(jobjectArray, JVM_GetSystemPackages(JNIEnv *env))
3365 JVMWrapper("JVM_GetSystemPackages");
3366 JvmtiVMObjectAllocEventCollector oam;
3367 objArrayOop result = ClassLoader::get_system_packages(CHECK_NULL);
3368 return (jobjectArray) JNIHandles::make_local(result);
3369 JVM_END
3370
3371
3372 // ObjectInputStream ///////////////////////////////////////////////////////////////
3373
3374 bool force_verify_field_access(Klass* current_class, Klass* field_class, AccessFlags access, bool classloader_only) {
3375 if (current_class == NULL) {
3376 return true;
3377 }
3378 if ((current_class == field_class) || access.is_public()) {
3379 return true;
3380 }
3381
3382 if (access.is_protected()) {
3383 // See if current_class is a subclass of field_class
3384 if (current_class->is_subclass_of(field_class)) {
3385 return true;
3386 }
3387 }
3388
3389 return (!access.is_private() && InstanceKlass::cast(current_class)->is_same_class_package(field_class));
3390 }
3391
3392 // Return the first non-null class loader up the execution stack, or null
3393 // if only code from the null class loader is on the stack.
3394
3395 JVM_ENTRY(jobject, JVM_LatestUserDefinedLoader(JNIEnv *env))
3396 for (vframeStream vfst(thread); !vfst.at_end(); vfst.next()) {
3397 vfst.skip_reflection_related_frames(); // Only needed for 1.4 reflection
3398 oop loader = vfst.method()->method_holder()->class_loader();
3399 if (loader != NULL) {
3400 return JNIHandles::make_local(env, loader);
3401 }
3402 }
3403 return NULL;
3404 JVM_END
3405
3406
3407 // Array ///////////////////////////////////////////////////////////////////////////////////////////
3408
3409
3410 // resolve array handle and check arguments
3411 static inline arrayOop check_array(JNIEnv *env, jobject arr, bool type_array_only, TRAPS) {
3412 if (arr == NULL) {
3413 THROW_0(vmSymbols::java_lang_NullPointerException());
3414 }
3415 oop a = JNIHandles::resolve_non_null(arr);
3416 if (!a->is_array()) {
3417 THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(), "Argument is not an array");
3418 } else if (type_array_only && !a->is_typeArray()) {
3419 THROW_MSG_0(vmSymbols::java_lang_IllegalArgumentException(), "Argument is not an array of primitive type");
3420 }
3421 return arrayOop(a);
3422 }
3423
3424
3425 JVM_ENTRY(jint, JVM_GetArrayLength(JNIEnv *env, jobject arr))
3426 JVMWrapper("JVM_GetArrayLength");
3427 arrayOop a = check_array(env, arr, false, CHECK_0);
3428 return a->length();
3429 JVM_END
3430
3431
3432 JVM_ENTRY(jobject, JVM_GetArrayElement(JNIEnv *env, jobject arr, jint index))
3433 JVMWrapper("JVM_Array_Get");
3434 JvmtiVMObjectAllocEventCollector oam;
3435 arrayOop a = check_array(env, arr, false, CHECK_NULL);
3436 jvalue value;
3437 BasicType type = Reflection::array_get(&value, a, index, CHECK_NULL);
3438 oop box = Reflection::box(&value, type, CHECK_NULL);
3439 return JNIHandles::make_local(env, box);
3440 JVM_END
3441
3442
3443 JVM_ENTRY(jvalue, JVM_GetPrimitiveArrayElement(JNIEnv *env, jobject arr, jint index, jint wCode))
3444 JVMWrapper("JVM_GetPrimitiveArrayElement");
3445 jvalue value;
3446 value.i = 0; // to initialize value before getting used in CHECK
3447 arrayOop a = check_array(env, arr, true, CHECK_(value));
3448 assert(a->is_typeArray(), "just checking");
3449 BasicType type = Reflection::array_get(&value, a, index, CHECK_(value));
3450 BasicType wide_type = (BasicType) wCode;
3451 if (type != wide_type) {
3452 Reflection::widen(&value, type, wide_type, CHECK_(value));
3453 }
3454 return value;
3455 JVM_END
3456
3457
3458 JVM_ENTRY(void, JVM_SetArrayElement(JNIEnv *env, jobject arr, jint index, jobject val))
3459 JVMWrapper("JVM_SetArrayElement");
3460 arrayOop a = check_array(env, arr, false, CHECK);
3461 oop box = JNIHandles::resolve(val);
3462 jvalue value;
3463 value.i = 0; // to initialize value before getting used in CHECK
3464 BasicType value_type;
3465 if (a->is_objArray()) {
3466 // Make sure we do no unbox e.g. java/lang/Integer instances when storing into an object array
3467 value_type = Reflection::unbox_for_regular_object(box, &value);
3468 } else {
3469 value_type = Reflection::unbox_for_primitive(box, &value, CHECK);
3470 }
3471 Reflection::array_set(&value, a, index, value_type, CHECK);
3472 JVM_END
3473
3474
3475 JVM_ENTRY(void, JVM_SetPrimitiveArrayElement(JNIEnv *env, jobject arr, jint index, jvalue v, unsigned char vCode))
3476 JVMWrapper("JVM_SetPrimitiveArrayElement");
3477 arrayOop a = check_array(env, arr, true, CHECK);
3478 assert(a->is_typeArray(), "just checking");
3479 BasicType value_type = (BasicType) vCode;
3480 Reflection::array_set(&v, a, index, value_type, CHECK);
3481 JVM_END
3482
3483
3484 JVM_ENTRY(jobject, JVM_NewArray(JNIEnv *env, jclass eltClass, jint length))
3485 JVMWrapper("JVM_NewArray");
3486 JvmtiVMObjectAllocEventCollector oam;
3487 oop element_mirror = JNIHandles::resolve(eltClass);
3488 oop result = Reflection::reflect_new_array(element_mirror, length, CHECK_NULL);
3489 return JNIHandles::make_local(env, result);
3490 JVM_END
3491
3492
3493 JVM_ENTRY(jobject, JVM_NewMultiArray(JNIEnv *env, jclass eltClass, jintArray dim))
3494 JVMWrapper("JVM_NewMultiArray");
3495 JvmtiVMObjectAllocEventCollector oam;
3496 arrayOop dim_array = check_array(env, dim, true, CHECK_NULL);
3497 oop element_mirror = JNIHandles::resolve(eltClass);
3498 assert(dim_array->is_typeArray(), "just checking");
3499 oop result = Reflection::reflect_new_multi_array(element_mirror, typeArrayOop(dim_array), CHECK_NULL);
3500 return JNIHandles::make_local(env, result);
3501 JVM_END
3502
3503
3504 // Library support ///////////////////////////////////////////////////////////////////////////
3505
3506 JVM_ENTRY_NO_ENV(void*, JVM_LoadLibrary(const char* name))
3507 //%note jvm_ct
3508 JVMWrapper("JVM_LoadLibrary");
3509 char ebuf[1024];
3510 void *load_result;
3511 {
3512 ThreadToNativeFromVM ttnfvm(thread);
3513 load_result = os::dll_load(name, ebuf, sizeof ebuf);
3514 }
3515 if (load_result == NULL) {
3516 char msg[1024];
3517 jio_snprintf(msg, sizeof msg, "%s: %s", name, ebuf);
3518 // Since 'ebuf' may contain a string encoded using
3519 // platform encoding scheme, we need to pass
3520 // Exceptions::unsafe_to_utf8 to the new_exception method
3521 // as the last argument. See bug 6367357.
3522 Handle h_exception =
3523 Exceptions::new_exception(thread,
3524 vmSymbols::java_lang_UnsatisfiedLinkError(),
3525 msg, Exceptions::unsafe_to_utf8);
3526
3527 THROW_HANDLE_0(h_exception);
3528 }
3529 return load_result;
3530 JVM_END
3531
3532
3533 JVM_LEAF(void, JVM_UnloadLibrary(void* handle))
3534 JVMWrapper("JVM_UnloadLibrary");
3535 os::dll_unload(handle);
3536 JVM_END
3537
3538
3539 JVM_LEAF(void*, JVM_FindLibraryEntry(void* handle, const char* name))
3540 JVMWrapper("JVM_FindLibraryEntry");
3541 return os::dll_lookup(handle, name);
3542 JVM_END
3543
3544
3545 // JNI version ///////////////////////////////////////////////////////////////////////////////
3546
3547 JVM_LEAF(jboolean, JVM_IsSupportedJNIVersion(jint version))
3548 JVMWrapper("JVM_IsSupportedJNIVersion");
3549 return Threads::is_supported_jni_version_including_1_1(version);
3550 JVM_END
3551
3552
3553 // String support ///////////////////////////////////////////////////////////////////////////
3554
3555 JVM_ENTRY(jstring, JVM_InternString(JNIEnv *env, jstring str))
3556 JVMWrapper("JVM_InternString");
3557 JvmtiVMObjectAllocEventCollector oam;
3558 if (str == NULL) return NULL;
3559 oop string = JNIHandles::resolve_non_null(str);
3560 oop result = StringTable::intern(string, CHECK_NULL);
3561 return (jstring) JNIHandles::make_local(env, result);
3562 JVM_END
3563
3564
3565 // Raw monitor support //////////////////////////////////////////////////////////////////////
3566
3567 // The lock routine below calls lock_without_safepoint_check in order to get a raw lock
3568 // without interfering with the safepoint mechanism. The routines are not JVM_LEAF because
3569 // they might be called by non-java threads. The JVM_LEAF installs a NoHandleMark check
3570 // that only works with java threads.
3571
3572
3573 JNIEXPORT void* JNICALL JVM_RawMonitorCreate(void) {
3574 VM_Exit::block_if_vm_exited();
3575 JVMWrapper("JVM_RawMonitorCreate");
3576 return new Mutex(Mutex::native, "JVM_RawMonitorCreate");
3577 }
3578
3579
3580 JNIEXPORT void JNICALL JVM_RawMonitorDestroy(void *mon) {
3581 VM_Exit::block_if_vm_exited();
3582 JVMWrapper("JVM_RawMonitorDestroy");
3583 delete ((Mutex*) mon);
3584 }
3585
3586
3587 JNIEXPORT jint JNICALL JVM_RawMonitorEnter(void *mon) {
3588 VM_Exit::block_if_vm_exited();
3589 JVMWrapper("JVM_RawMonitorEnter");
3590 ((Mutex*) mon)->jvm_raw_lock();
3591 return 0;
3592 }
3593
3594
3595 JNIEXPORT void JNICALL JVM_RawMonitorExit(void *mon) {
3596 VM_Exit::block_if_vm_exited();
3597 JVMWrapper("JVM_RawMonitorExit");
3598 ((Mutex*) mon)->jvm_raw_unlock();
3599 }
3600
3601
3602 // Shared JNI/JVM entry points //////////////////////////////////////////////////////////////
3603
3604 jclass find_class_from_class_loader(JNIEnv* env, Symbol* name, jboolean init,
3605 Handle loader, Handle protection_domain,
3606 jboolean throwError, TRAPS) {
3607 // Security Note:
3608 // The Java level wrapper will perform the necessary security check allowing
3609 // us to pass the NULL as the initiating class loader. The VM is responsible for
3610 // the checkPackageAccess relative to the initiating class loader via the
3611 // protection_domain. The protection_domain is passed as NULL by the java code
3612 // if there is no security manager in 3-arg Class.forName().
3613 Klass* klass = SystemDictionary::resolve_or_fail(name, loader, protection_domain, throwError != 0, CHECK_NULL);
3614
3615 KlassHandle klass_handle(THREAD, klass);
3616 // Check if we should initialize the class
3617 if (init && klass_handle->is_instance_klass()) {
3618 klass_handle->initialize(CHECK_NULL);
3619 }
3620 return (jclass) JNIHandles::make_local(env, klass_handle->java_mirror());
3621 }
3622
3623
3624 // Method ///////////////////////////////////////////////////////////////////////////////////////////
3625
3626 JVM_ENTRY(jobject, JVM_InvokeMethod(JNIEnv *env, jobject method, jobject obj, jobjectArray args0))
3627 JVMWrapper("JVM_InvokeMethod");
3628 Handle method_handle;
3629 if (thread->stack_available((address) &method_handle) >= JVMInvokeMethodSlack) {
3630 method_handle = Handle(THREAD, JNIHandles::resolve(method));
3631 Handle receiver(THREAD, JNIHandles::resolve(obj));
3632 objArrayHandle args(THREAD, objArrayOop(JNIHandles::resolve(args0)));
3633 oop result = Reflection::invoke_method(method_handle(), receiver, args, CHECK_NULL);
3634 jobject res = JNIHandles::make_local(env, result);
3635 if (JvmtiExport::should_post_vm_object_alloc()) {
3636 oop ret_type = java_lang_reflect_Method::return_type(method_handle());
3637 assert(ret_type != NULL, "sanity check: ret_type oop must not be NULL!");
3638 if (java_lang_Class::is_primitive(ret_type)) {
3639 // Only for primitive type vm allocates memory for java object.
3640 // See box() method.
3641 JvmtiExport::post_vm_object_alloc(JavaThread::current(), result);
3642 }
3643 }
3644 return res;
3645 } else {
3646 THROW_0(vmSymbols::java_lang_StackOverflowError());
3647 }
3648 JVM_END
3649
3650
3651 JVM_ENTRY(jobject, JVM_NewInstanceFromConstructor(JNIEnv *env, jobject c, jobjectArray args0))
3652 JVMWrapper("JVM_NewInstanceFromConstructor");
3653 oop constructor_mirror = JNIHandles::resolve(c);
3654 objArrayHandle args(THREAD, objArrayOop(JNIHandles::resolve(args0)));
3655 oop result = Reflection::invoke_constructor(constructor_mirror, args, CHECK_NULL);
3656 jobject res = JNIHandles::make_local(env, result);
3657 if (JvmtiExport::should_post_vm_object_alloc()) {
3658 JvmtiExport::post_vm_object_alloc(JavaThread::current(), result);
3659 }
3660 return res;
3661 JVM_END
3662
3663 // Atomic ///////////////////////////////////////////////////////////////////////////////////////////
3664
3665 JVM_LEAF(jboolean, JVM_SupportsCX8())
3666 JVMWrapper("JVM_SupportsCX8");
3667 return VM_Version::supports_cx8();
3668 JVM_END
3669
3670 // Returns an array of all live Thread objects (VM internal JavaThreads,
3671 // jvmti agent threads, and JNI attaching threads are skipped)
3672 // See CR 6404306 regarding JNI attaching threads
3673 JVM_ENTRY(jobjectArray, JVM_GetAllThreads(JNIEnv *env, jclass dummy))
3674 ResourceMark rm(THREAD);
3675 ThreadsListEnumerator tle(THREAD, false, false);
3676 JvmtiVMObjectAllocEventCollector oam;
3677
3678 int num_threads = tle.num_threads();
3679 objArrayOop r = oopFactory::new_objArray(SystemDictionary::Thread_klass(), num_threads, CHECK_NULL);
3680 objArrayHandle threads_ah(THREAD, r);
3681
3682 for (int i = 0; i < num_threads; i++) {
3683 Handle h = tle.get_threadObj(i);
3684 threads_ah->obj_at_put(i, h());
3685 }
3686
3687 return (jobjectArray) JNIHandles::make_local(env, threads_ah());
3688 JVM_END
3689
3690
3691 // Support for java.lang.Thread.getStackTrace() and getAllStackTraces() methods
3692 // Return StackTraceElement[][], each element is the stack trace of a thread in
3693 // the corresponding entry in the given threads array
3694 JVM_ENTRY(jobjectArray, JVM_DumpThreads(JNIEnv *env, jclass threadClass, jobjectArray threads))
3695 JVMWrapper("JVM_DumpThreads");
3696 JvmtiVMObjectAllocEventCollector oam;
3697
3698 // Check if threads is null
3699 if (threads == NULL) {
3700 THROW_(vmSymbols::java_lang_NullPointerException(), 0);
3701 }
3702
3703 objArrayOop a = objArrayOop(JNIHandles::resolve_non_null(threads));
3704 objArrayHandle ah(THREAD, a);
3705 int num_threads = ah->length();
3706 // check if threads is non-empty array
3707 if (num_threads == 0) {
3708 THROW_(vmSymbols::java_lang_IllegalArgumentException(), 0);
3709 }
3710
3711 // check if threads is not an array of objects of Thread class
3712 Klass* k = ObjArrayKlass::cast(ah->klass())->element_klass();
3713 if (k != SystemDictionary::Thread_klass()) {
3714 THROW_(vmSymbols::java_lang_IllegalArgumentException(), 0);
3715 }
3716
3717 ResourceMark rm(THREAD);
3718
3719 GrowableArray<instanceHandle>* thread_handle_array = new GrowableArray<instanceHandle>(num_threads);
3720 for (int i = 0; i < num_threads; i++) {
3721 oop thread_obj = ah->obj_at(i);
3722 instanceHandle h(THREAD, (instanceOop) thread_obj);
3723 thread_handle_array->append(h);
3724 }
3725
3726 Handle stacktraces = ThreadService::dump_stack_traces(thread_handle_array, num_threads, CHECK_NULL);
3727 return (jobjectArray)JNIHandles::make_local(env, stacktraces());
3728
3729 JVM_END
3730
3731 // JVM monitoring and management support
3732 JVM_ENTRY_NO_ENV(void*, JVM_GetManagement(jint version))
3733 return Management::get_jmm_interface(version);
3734 JVM_END
3735
3736 // com.sun.tools.attach.VirtualMachine agent properties support
3737 //
3738 // Initialize the agent properties with the properties maintained in the VM
3739 JVM_ENTRY(jobject, JVM_InitAgentProperties(JNIEnv *env, jobject properties))
3740 JVMWrapper("JVM_InitAgentProperties");
3741 ResourceMark rm;
3742
3743 Handle props(THREAD, JNIHandles::resolve_non_null(properties));
3744
3745 PUTPROP(props, "sun.java.command", Arguments::java_command());
3746 PUTPROP(props, "sun.jvm.flags", Arguments::jvm_flags());
3747 PUTPROP(props, "sun.jvm.args", Arguments::jvm_args());
3748 return properties;
3749 JVM_END
3750
3751 JVM_ENTRY(jobjectArray, JVM_GetEnclosingMethodInfo(JNIEnv *env, jclass ofClass))
3752 {
3753 JVMWrapper("JVM_GetEnclosingMethodInfo");
3754 JvmtiVMObjectAllocEventCollector oam;
3755
3756 if (ofClass == NULL) {
3757 return NULL;
3758 }
3759 Handle mirror(THREAD, JNIHandles::resolve_non_null(ofClass));
3760 // Special handling for primitive objects
3761 if (java_lang_Class::is_primitive(mirror())) {
3762 return NULL;
3763 }
3764 Klass* k = java_lang_Class::as_Klass(mirror());
3765 if (!k->is_instance_klass()) {
3766 return NULL;
3767 }
3768 instanceKlassHandle ik_h(THREAD, k);
3769 int encl_method_class_idx = ik_h->enclosing_method_class_index();
3770 if (encl_method_class_idx == 0) {
3771 return NULL;
3772 }
3773 objArrayOop dest_o = oopFactory::new_objArray(SystemDictionary::Object_klass(), 3, CHECK_NULL);
3774 objArrayHandle dest(THREAD, dest_o);
3775 Klass* enc_k = ik_h->constants()->klass_at(encl_method_class_idx, CHECK_NULL);
3776 dest->obj_at_put(0, enc_k->java_mirror());
3777 int encl_method_method_idx = ik_h->enclosing_method_method_index();
3778 if (encl_method_method_idx != 0) {
3779 Symbol* sym = ik_h->constants()->symbol_at(
3780 extract_low_short_from_int(
3781 ik_h->constants()->name_and_type_at(encl_method_method_idx)));
3782 Handle str = java_lang_String::create_from_symbol(sym, CHECK_NULL);
3783 dest->obj_at_put(1, str());
3784 sym = ik_h->constants()->symbol_at(
3785 extract_high_short_from_int(
3786 ik_h->constants()->name_and_type_at(encl_method_method_idx)));
3787 str = java_lang_String::create_from_symbol(sym, CHECK_NULL);
3788 dest->obj_at_put(2, str());
3789 }
3790 return (jobjectArray) JNIHandles::make_local(dest());
3791 }
3792 JVM_END
3793
3794 JVM_ENTRY(void, JVM_GetVersionInfo(JNIEnv* env, jvm_version_info* info, size_t info_size))
3795 {
3796 memset(info, 0, info_size);
3797
3798 info->jvm_version = Abstract_VM_Version::jvm_version();
3799 info->patch_version = Abstract_VM_Version::vm_patch_version();
3800
3801 // when we add a new capability in the jvm_version_info struct, we should also
3802 // consider to expose this new capability in the sun.rt.jvmCapabilities jvmstat
3803 // counter defined in runtimeService.cpp.
3804 info->is_attachable = AttachListener::is_attach_supported();
3805 }
3806 JVM_END
3807
3808 // Returns an array of java.lang.String objects containing the input arguments to the VM.
3809 JVM_ENTRY(jobjectArray, JVM_GetVmArguments(JNIEnv *env))
3810 ResourceMark rm(THREAD);
3811
3812 if (Arguments::num_jvm_args() == 0 && Arguments::num_jvm_flags() == 0) {
3813 return NULL;
3814 }
3815
3816 char** vm_flags = Arguments::jvm_flags_array();
3817 char** vm_args = Arguments::jvm_args_array();
3818 int num_flags = Arguments::num_jvm_flags();
3819 int num_args = Arguments::num_jvm_args();
3820
3821 instanceKlassHandle ik (THREAD, SystemDictionary::String_klass());
3822 objArrayOop r = oopFactory::new_objArray(ik(), num_args + num_flags, CHECK_NULL);
3823 objArrayHandle result_h(THREAD, r);
3824
3825 int index = 0;
3826 for (int j = 0; j < num_flags; j++, index++) {
3827 Handle h = java_lang_String::create_from_platform_dependent_str(vm_flags[j], CHECK_NULL);
3828 result_h->obj_at_put(index, h());
3829 }
3830 for (int i = 0; i < num_args; i++, index++) {
3831 Handle h = java_lang_String::create_from_platform_dependent_str(vm_args[i], CHECK_NULL);
3832 result_h->obj_at_put(index, h());
3833 }
3834 return (jobjectArray) JNIHandles::make_local(env, result_h());
3835 JVM_END
3836
3837 JVM_ENTRY_NO_ENV(jint, JVM_FindSignal(const char *name))
3838 return os::get_signal_number(name);
3839 JVM_END