1 /*
   2  * Copyright (c) 1997, 2010, 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/classLoader.hpp"
  27 #include "classfile/javaClasses.hpp"
  28 #include "classfile/symbolTable.hpp"
  29 #include "classfile/systemDictionary.hpp"
  30 #include "classfile/vmSymbols.hpp"
  31 #include "interpreter/linkResolver.hpp"
  32 #include "memory/allocation.inline.hpp"
  33 #include "memory/gcLocker.inline.hpp"
  34 #include "memory/oopFactory.hpp"
  35 #include "memory/universe.inline.hpp"
  36 #include "oops/instanceKlass.hpp"
  37 #include "oops/instanceOop.hpp"
  38 #include "oops/markOop.hpp"
  39 #include "oops/methodOop.hpp"
  40 #include "oops/objArrayKlass.hpp"
  41 #include "oops/objArrayOop.hpp"
  42 #include "oops/oop.inline.hpp"
  43 #include "oops/symbolOop.hpp"
  44 #include "oops/typeArrayKlass.hpp"
  45 #include "oops/typeArrayOop.hpp"
  46 #include "prims/jni.h"
  47 #include "prims/jniCheck.hpp"
  48 #include "prims/jniFastGetField.hpp"
  49 #include "prims/jvm.h"
  50 #include "prims/jvm_misc.hpp"
  51 #include "prims/jvmtiExport.hpp"
  52 #include "prims/jvmtiThreadState.hpp"
  53 #include "runtime/compilationPolicy.hpp"
  54 #include "runtime/fieldDescriptor.hpp"
  55 #include "runtime/fprofiler.hpp"
  56 #include "runtime/handles.inline.hpp"
  57 #include "runtime/interfaceSupport.hpp"
  58 #include "runtime/java.hpp"
  59 #include "runtime/javaCalls.hpp"
  60 #include "runtime/jfieldIDWorkaround.hpp"
  61 #include "runtime/reflection.hpp"
  62 #include "runtime/sharedRuntime.hpp"
  63 #include "runtime/signature.hpp"
  64 #include "runtime/vm_operations.hpp"
  65 #include "services/runtimeService.hpp"
  66 #include "utilities/defaultStream.hpp"
  67 #include "utilities/dtrace.hpp"
  68 #include "utilities/events.hpp"
  69 #include "utilities/histogram.hpp"
  70 #ifdef TARGET_ARCH_x86
  71 # include "jniTypes_x86.hpp"
  72 #endif
  73 #ifdef TARGET_ARCH_sparc
  74 # include "jniTypes_sparc.hpp"
  75 #endif
  76 #ifdef TARGET_ARCH_zero
  77 # include "jniTypes_zero.hpp"
  78 #endif
  79 #ifdef TARGET_OS_FAMILY_linux
  80 # include "os_linux.inline.hpp"
  81 # include "thread_linux.inline.hpp"
  82 #endif
  83 #ifdef TARGET_OS_FAMILY_solaris
  84 # include "os_solaris.inline.hpp"
  85 # include "thread_solaris.inline.hpp"
  86 #endif
  87 #ifdef TARGET_OS_FAMILY_windows
  88 # include "os_windows.inline.hpp"
  89 # include "thread_windows.inline.hpp"
  90 #endif
  91 
  92 static jint CurrentVersion = JNI_VERSION_1_6;
  93 
  94 
  95 // The DT_RETURN_MARK macros create a scoped object to fire the dtrace
  96 // '-return' probe regardless of the return path is taken out of the function.
  97 // Methods that have multiple return paths use this to avoid having to
  98 // instrument each return path.  Methods that use CHECK or THROW must use this
  99 // since those macros can cause an immedate uninstrumented return.
 100 //
 101 // In order to get the return value, a reference to the variable containing
 102 // the return value must be passed to the contructor of the object, and
 103 // the return value must be set before return (since the mark object has
 104 // a reference to it).
 105 //
 106 // Example:
 107 // DT_RETURN_MARK_DECL(SomeFunc, int);
 108 // JNI_ENTRY(int, SomeFunc, ...)
 109 //   int return_value = 0;
 110 //   DT_RETURN_MARK(SomeFunc, int, (const int&)return_value);
 111 //   foo(CHECK_0)
 112 //   return_value = 5;
 113 //   return return_value;
 114 // JNI_END
 115 #define DT_RETURN_MARK_DECL(name, type)                                    \
 116   HS_DTRACE_PROBE_DECL1(hotspot_jni, name##__return, type);                \
 117   DTRACE_ONLY(                                                             \
 118     class DTraceReturnProbeMark_##name {                                   \
 119      public:                                                               \
 120       const type& _ret_ref;                                                \
 121       DTraceReturnProbeMark_##name(const type& v) : _ret_ref(v) {}         \
 122       ~DTraceReturnProbeMark_##name() {                                    \
 123         HS_DTRACE_PROBE1(hotspot_jni, name##__return, _ret_ref);           \
 124       }                                                                    \
 125     }                                                                      \
 126   )
 127 // Void functions are simpler since there's no return value
 128 #define DT_VOID_RETURN_MARK_DECL(name)                                     \
 129   HS_DTRACE_PROBE_DECL0(hotspot_jni, name##__return);                      \
 130   DTRACE_ONLY(                                                             \
 131     class DTraceReturnProbeMark_##name {                                   \
 132      public:                                                               \
 133       ~DTraceReturnProbeMark_##name() {                                    \
 134         HS_DTRACE_PROBE0(hotspot_jni, name##__return);                     \
 135       }                                                                    \
 136     }                                                                      \
 137   )
 138 
 139 
 140 // Place these macros in the function to mark the return.  Non-void
 141 // functions need the type and address of the return value.
 142 #define DT_RETURN_MARK(name, type, ref) \
 143   DTRACE_ONLY( DTraceReturnProbeMark_##name dtrace_return_mark(ref) )
 144 #define DT_VOID_RETURN_MARK(name) \
 145   DTRACE_ONLY( DTraceReturnProbeMark_##name dtrace_return_mark )
 146 
 147 
 148 // Use these to select distinct code for floating-point vs. non-floating point
 149 // situations.  Used from within common macros where we need slightly
 150 // different behavior for Float/Double
 151 #define FP_SELECT_Boolean(intcode, fpcode) intcode
 152 #define FP_SELECT_Byte(intcode, fpcode)    intcode
 153 #define FP_SELECT_Char(intcode, fpcode)    intcode
 154 #define FP_SELECT_Short(intcode, fpcode)   intcode
 155 #define FP_SELECT_Object(intcode, fpcode)  intcode
 156 #define FP_SELECT_Int(intcode, fpcode)     intcode
 157 #define FP_SELECT_Long(intcode, fpcode)    intcode
 158 #define FP_SELECT_Float(intcode, fpcode)   fpcode
 159 #define FP_SELECT_Double(intcode, fpcode)  fpcode
 160 #define FP_SELECT(TypeName, intcode, fpcode) \
 161   FP_SELECT_##TypeName(intcode, fpcode)
 162 
 163 #define COMMA ,
 164 
 165 // Choose DT_RETURN_MARK macros  based on the type: float/double -> void
 166 // (dtrace doesn't do FP yet)
 167 #define DT_RETURN_MARK_DECL_FOR(TypeName, name, type) \
 168   FP_SELECT(TypeName, \
 169     DT_RETURN_MARK_DECL(name, type), DT_VOID_RETURN_MARK_DECL(name) )
 170 #define DT_RETURN_MARK_FOR(TypeName, name, type, ref) \
 171   FP_SELECT(TypeName, \
 172     DT_RETURN_MARK(name, type, ref), DT_VOID_RETURN_MARK(name) )
 173 
 174 
 175 // out-of-line helpers for class jfieldIDWorkaround:
 176 
 177 bool jfieldIDWorkaround::is_valid_jfieldID(klassOop k, jfieldID id) {
 178   if (jfieldIDWorkaround::is_instance_jfieldID(k, id)) {
 179     uintptr_t as_uint = (uintptr_t) id;
 180     intptr_t offset = raw_instance_offset(id);
 181     if (is_checked_jfieldID(id)) {
 182       if (!klass_hash_ok(k, id)) {
 183         return false;
 184       }
 185     }
 186     return instanceKlass::cast(k)->contains_field_offset(offset);
 187   } else {
 188     JNIid* result = (JNIid*) id;
 189 #ifdef ASSERT
 190     return result != NULL && result->is_static_field_id();
 191 #else
 192     return result != NULL;
 193 #endif
 194   }
 195 }
 196 
 197 
 198 intptr_t jfieldIDWorkaround::encode_klass_hash(klassOop k, intptr_t offset) {
 199   if (offset <= small_offset_mask) {
 200     klassOop field_klass = k;
 201     klassOop super_klass = Klass::cast(field_klass)->super();
 202     // With compressed oops the most super class with nonstatic fields would
 203     // be the owner of fields embedded in the header.
 204     while (instanceKlass::cast(super_klass)->has_nonstatic_fields() &&
 205            instanceKlass::cast(super_klass)->contains_field_offset(offset)) {
 206       field_klass = super_klass;   // super contains the field also
 207       super_klass = Klass::cast(field_klass)->super();
 208     }
 209     debug_only(No_Safepoint_Verifier nosafepoint;)
 210     uintptr_t klass_hash = field_klass->identity_hash();
 211     return ((klass_hash & klass_mask) << klass_shift) | checked_mask_in_place;
 212   } else {
 213 #if 0
 214     #ifndef PRODUCT
 215     {
 216       ResourceMark rm;
 217       warning("VerifyJNIFields: long offset %d in %s", offset, Klass::cast(k)->external_name());
 218     }
 219     #endif
 220 #endif
 221     return 0;
 222   }
 223 }
 224 
 225 bool jfieldIDWorkaround::klass_hash_ok(klassOop k, jfieldID id) {
 226   uintptr_t as_uint = (uintptr_t) id;
 227   intptr_t klass_hash = (as_uint >> klass_shift) & klass_mask;
 228   do {
 229     debug_only(No_Safepoint_Verifier nosafepoint;)
 230     // Could use a non-blocking query for identity_hash here...
 231     if ((k->identity_hash() & klass_mask) == klass_hash)
 232       return true;
 233     k = Klass::cast(k)->super();
 234   } while (k != NULL);
 235   return false;
 236 }
 237 
 238 void jfieldIDWorkaround::verify_instance_jfieldID(klassOop k, jfieldID id) {
 239   guarantee(jfieldIDWorkaround::is_instance_jfieldID(k, id), "must be an instance field" );
 240   uintptr_t as_uint = (uintptr_t) id;
 241   intptr_t offset = raw_instance_offset(id);
 242   if (VerifyJNIFields) {
 243     if (is_checked_jfieldID(id)) {
 244       guarantee(klass_hash_ok(k, id),
 245     "Bug in native code: jfieldID class must match object");
 246     } else {
 247 #if 0
 248       #ifndef PRODUCT
 249       if (Verbose) {
 250   ResourceMark rm;
 251   warning("VerifyJNIFields: unverified offset %d for %s", offset, Klass::cast(k)->external_name());
 252       }
 253       #endif
 254 #endif
 255     }
 256   }
 257   guarantee(instanceKlass::cast(k)->contains_field_offset(offset),
 258       "Bug in native code: jfieldID offset must address interior of object");
 259 }
 260 
 261 // Pick a reasonable higher bound for local capacity requested
 262 // for EnsureLocalCapacity and PushLocalFrame.  We don't want it too
 263 // high because a test (or very unusual application) may try to allocate
 264 // that many handles and run out of swap space.  An implementation is
 265 // permitted to allocate more handles than the ensured capacity, so this
 266 // value is set high enough to prevent compatibility problems.
 267 const int MAX_REASONABLE_LOCAL_CAPACITY = 4*K;
 268 
 269 
 270 // Wrapper to trace JNI functions
 271 
 272 #ifdef ASSERT
 273   Histogram* JNIHistogram;
 274   static volatile jint JNIHistogram_lock = 0;
 275 
 276   class JNITraceWrapper : public StackObj {
 277    public:
 278     JNITraceWrapper(const char* format, ...) {
 279       if (TraceJNICalls) {
 280         va_list ap;
 281         va_start(ap, format);
 282         tty->print("JNI ");
 283         tty->vprint_cr(format, ap);
 284         va_end(ap);
 285       }
 286     }
 287   };
 288 
 289   class JNIHistogramElement : public HistogramElement {
 290     public:
 291      JNIHistogramElement(const char* name);
 292   };
 293 
 294   JNIHistogramElement::JNIHistogramElement(const char* elementName) {
 295     _name = elementName;
 296     uintx count = 0;
 297 
 298     while (Atomic::cmpxchg(1, &JNIHistogram_lock, 0) != 0) {
 299       while (OrderAccess::load_acquire(&JNIHistogram_lock) != 0) {
 300         count +=1;
 301         if ( (WarnOnStalledSpinLock > 0)
 302           && (count % WarnOnStalledSpinLock == 0)) {
 303           warning("JNIHistogram_lock seems to be stalled");
 304         }
 305       }
 306      }
 307 
 308 
 309     if(JNIHistogram == NULL)
 310       JNIHistogram = new Histogram("JNI Call Counts",100);
 311 
 312     JNIHistogram->add_element(this);
 313     Atomic::dec(&JNIHistogram_lock);
 314   }
 315 
 316   #define JNICountWrapper(arg)                                     \
 317      static JNIHistogramElement* e = new JNIHistogramElement(arg); \
 318       /* There is a MT-race condition in VC++. So we need to make sure that that e has been initialized */ \
 319      if (e != NULL) e->increment_count()
 320   #define JNIWrapper(arg) JNICountWrapper(arg); JNITraceWrapper(arg)
 321 #else
 322   #define JNIWrapper(arg)
 323 #endif
 324 
 325 
 326 // Implementation of JNI entries
 327 
 328 DT_RETURN_MARK_DECL(DefineClass, jclass);
 329 
 330 JNI_ENTRY(jclass, jni_DefineClass(JNIEnv *env, const char *name, jobject loaderRef,
 331                                   const jbyte *buf, jsize bufLen))
 332   JNIWrapper("DefineClass");
 333 
 334   DTRACE_PROBE5(hotspot_jni, DefineClass__entry,
 335     env, name, loaderRef, buf, bufLen);
 336   jclass cls = NULL;
 337   DT_RETURN_MARK(DefineClass, jclass, (const jclass&)cls);
 338 
 339   // Since exceptions can be thrown, class initialization can take place
 340   // if name is NULL no check for class name in .class stream has to be made.
 341   symbolHandle class_name;
 342   if (name != NULL) {
 343     const int str_len = (int)strlen(name);
 344     if (str_len > symbolOopDesc::max_length()) {
 345       // It's impossible to create this class;  the name cannot fit
 346       // into the constant pool.
 347       THROW_MSG_0(vmSymbols::java_lang_NoClassDefFoundError(), name);
 348     }
 349     class_name = oopFactory::new_symbol_handle(name, str_len, CHECK_NULL);
 350   }
 351 
 352   ResourceMark rm(THREAD);
 353   ClassFileStream st((u1*) buf, bufLen, NULL);
 354   Handle class_loader (THREAD, JNIHandles::resolve(loaderRef));
 355 
 356   if (UsePerfData && !class_loader.is_null()) {
 357     // check whether the current caller thread holds the lock or not.
 358     // If not, increment the corresponding counter
 359     if (ObjectSynchronizer::
 360         query_lock_ownership((JavaThread*)THREAD, class_loader) !=
 361         ObjectSynchronizer::owner_self) {
 362       ClassLoader::sync_JNIDefineClassLockFreeCounter()->inc();
 363     }
 364   }
 365   klassOop k = SystemDictionary::resolve_from_stream(class_name, class_loader,
 366                                                      Handle(), &st, true,
 367                                                      CHECK_NULL);
 368 
 369   if (TraceClassResolution && k != NULL) {
 370     trace_class_resolution(k);
 371   }
 372 
 373   cls = (jclass)JNIHandles::make_local(
 374     env, Klass::cast(k)->java_mirror());
 375   return cls;
 376 JNI_END
 377 
 378 
 379 
 380 static bool first_time_FindClass = true;
 381 
 382 DT_RETURN_MARK_DECL(FindClass, jclass);
 383 
 384 JNI_ENTRY(jclass, jni_FindClass(JNIEnv *env, const char *name))
 385   JNIWrapper("FindClass");
 386   DTRACE_PROBE2(hotspot_jni, FindClass__entry, env, name);
 387 
 388   jclass result = NULL;
 389   DT_RETURN_MARK(FindClass, jclass, (const jclass&)result);
 390 
 391   // Remember if we are the first invocation of jni_FindClass
 392   bool first_time = first_time_FindClass;
 393   first_time_FindClass = false;
 394 
 395   // Sanity check the name:  it cannot be null or larger than the maximum size
 396   // name we can fit in the constant pool.
 397   if (name == NULL || (int)strlen(name) > symbolOopDesc::max_length()) {
 398     THROW_MSG_0(vmSymbols::java_lang_NoClassDefFoundError(), name);
 399   }
 400 
 401   //%note jni_3
 402   Handle loader;
 403   Handle protection_domain;
 404   // Find calling class
 405   instanceKlassHandle k (THREAD, thread->security_get_caller_class(0));
 406   if (k.not_null()) {
 407     loader = Handle(THREAD, k->class_loader());
 408     // Special handling to make sure JNI_OnLoad and JNI_OnUnload are executed
 409     // in the correct class context.
 410     if (loader.is_null() &&
 411         k->name() == vmSymbols::java_lang_ClassLoader_NativeLibrary()) {
 412       JavaValue result(T_OBJECT);
 413       JavaCalls::call_static(&result, k,
 414                                       vmSymbolHandles::getFromClass_name(),
 415                                       vmSymbolHandles::void_class_signature(),
 416                                       thread);
 417       if (HAS_PENDING_EXCEPTION) {
 418         Handle ex(thread, thread->pending_exception());
 419         CLEAR_PENDING_EXCEPTION;
 420         THROW_HANDLE_0(ex);
 421       }
 422       oop mirror = (oop) result.get_jobject();
 423       loader = Handle(THREAD,
 424         instanceKlass::cast(java_lang_Class::as_klassOop(mirror))->class_loader());
 425       protection_domain = Handle(THREAD,
 426         instanceKlass::cast(java_lang_Class::as_klassOop(mirror))->protection_domain());
 427     }
 428   } else {
 429     // We call ClassLoader.getSystemClassLoader to obtain the system class loader.
 430     loader = Handle(THREAD, SystemDictionary::java_system_loader());
 431   }
 432 
 433   symbolHandle sym = oopFactory::new_symbol_handle(name, CHECK_NULL);
 434   result = find_class_from_class_loader(env, sym, true, loader,
 435                                         protection_domain, true, thread);
 436 
 437   if (TraceClassResolution && result != NULL) {
 438     trace_class_resolution(java_lang_Class::as_klassOop(JNIHandles::resolve_non_null(result)));
 439   }
 440 
 441   // If we were the first invocation of jni_FindClass, we enable compilation again
 442   // rather than just allowing invocation counter to overflow and decay.
 443   // Controlled by flag DelayCompilationDuringStartup.
 444   if (first_time && !CompileTheWorld)
 445     CompilationPolicy::completed_vm_startup();
 446 
 447   return result;
 448 JNI_END
 449 
 450 DT_RETURN_MARK_DECL(FromReflectedMethod, jmethodID);
 451 
 452 JNI_ENTRY(jmethodID, jni_FromReflectedMethod(JNIEnv *env, jobject method))
 453   JNIWrapper("FromReflectedMethod");
 454   DTRACE_PROBE2(hotspot_jni, FromReflectedMethod__entry, env, method);
 455   jmethodID ret = NULL;
 456   DT_RETURN_MARK(FromReflectedMethod, jmethodID, (const jmethodID&)ret);
 457 
 458   // method is a handle to a java.lang.reflect.Method object
 459   oop reflected  = JNIHandles::resolve_non_null(method);
 460   oop mirror     = NULL;
 461   int slot       = 0;
 462 
 463   if (reflected->klass() == SystemDictionary::reflect_Constructor_klass()) {
 464     mirror = java_lang_reflect_Constructor::clazz(reflected);
 465     slot   = java_lang_reflect_Constructor::slot(reflected);
 466   } else {
 467     assert(reflected->klass() == SystemDictionary::reflect_Method_klass(), "wrong type");
 468     mirror = java_lang_reflect_Method::clazz(reflected);
 469     slot   = java_lang_reflect_Method::slot(reflected);
 470   }
 471   klassOop k     = java_lang_Class::as_klassOop(mirror);
 472 
 473   KlassHandle k1(THREAD, k);
 474   // Make sure class is initialized before handing id's out to methods
 475   Klass::cast(k1())->initialize(CHECK_NULL);
 476   methodOop m = instanceKlass::cast(k1())->method_with_idnum(slot);
 477   ret = m==NULL? NULL : m->jmethod_id();  // return NULL if reflected method deleted
 478   return ret;
 479 JNI_END
 480 
 481 DT_RETURN_MARK_DECL(FromReflectedField, jfieldID);
 482 
 483 JNI_ENTRY(jfieldID, jni_FromReflectedField(JNIEnv *env, jobject field))
 484   JNIWrapper("FromReflectedField");
 485   DTRACE_PROBE2(hotspot_jni, FromReflectedField__entry, env, field);
 486   jfieldID ret = NULL;
 487   DT_RETURN_MARK(FromReflectedField, jfieldID, (const jfieldID&)ret);
 488 
 489   // field is a handle to a java.lang.reflect.Field object
 490   oop reflected   = JNIHandles::resolve_non_null(field);
 491   oop mirror      = java_lang_reflect_Field::clazz(reflected);
 492   klassOop k      = java_lang_Class::as_klassOop(mirror);
 493   int slot        = java_lang_reflect_Field::slot(reflected);
 494   int modifiers   = java_lang_reflect_Field::modifiers(reflected);
 495 
 496   KlassHandle k1(THREAD, k);
 497   // Make sure class is initialized before handing id's out to fields
 498   Klass::cast(k1())->initialize(CHECK_NULL);
 499 
 500   // First check if this is a static field
 501   if (modifiers & JVM_ACC_STATIC) {
 502     intptr_t offset = instanceKlass::cast(k1())->offset_from_fields( slot );
 503     JNIid* id = instanceKlass::cast(k1())->jni_id_for(offset);
 504     assert(id != NULL, "corrupt Field object");
 505     debug_only(id->set_is_static_field_id();)
 506     // A jfieldID for a static field is a JNIid specifying the field holder and the offset within the klassOop
 507     ret = jfieldIDWorkaround::to_static_jfieldID(id);
 508     return ret;
 509   }
 510 
 511   // The slot is the index of the field description in the field-array
 512   // The jfieldID is the offset of the field within the object
 513   // It may also have hash bits for k, if VerifyJNIFields is turned on.
 514   intptr_t offset = instanceKlass::cast(k1())->offset_from_fields( slot );
 515   assert(instanceKlass::cast(k1())->contains_field_offset(offset), "stay within object");
 516   ret = jfieldIDWorkaround::to_instance_jfieldID(k1(), offset);
 517   return ret;
 518 JNI_END
 519 
 520 DT_RETURN_MARK_DECL(ToReflectedMethod, jobject);
 521 
 522 JNI_ENTRY(jobject, jni_ToReflectedMethod(JNIEnv *env, jclass cls, jmethodID method_id, jboolean isStatic))
 523   JNIWrapper("ToReflectedMethod");
 524   DTRACE_PROBE4(hotspot_jni, ToReflectedMethod__entry, env, cls, method_id, isStatic);
 525   jobject ret = NULL;
 526   DT_RETURN_MARK(ToReflectedMethod, jobject, (const jobject&)ret);
 527 
 528   methodHandle m (THREAD, JNIHandles::resolve_jmethod_id(method_id));
 529   assert(m->is_static() == (isStatic != 0), "jni_ToReflectedMethod access flags doesn't match");
 530   oop reflection_method;
 531   if (m->is_initializer()) {
 532     reflection_method = Reflection::new_constructor(m, CHECK_NULL);
 533   } else {
 534     reflection_method = Reflection::new_method(m, UseNewReflection, false, CHECK_NULL);
 535   }
 536   ret = JNIHandles::make_local(env, reflection_method);
 537   return ret;
 538 JNI_END
 539 
 540 DT_RETURN_MARK_DECL(GetSuperclass, jclass);
 541 
 542 JNI_ENTRY(jclass, jni_GetSuperclass(JNIEnv *env, jclass sub))
 543   JNIWrapper("GetSuperclass");
 544   DTRACE_PROBE2(hotspot_jni, GetSuperclass__entry, env, sub);
 545   jclass obj = NULL;
 546   DT_RETURN_MARK(GetSuperclass, jclass, (const jclass&)obj);
 547 
 548   oop mirror = JNIHandles::resolve_non_null(sub);
 549   // primitive classes return NULL
 550   if (java_lang_Class::is_primitive(mirror)) return NULL;
 551 
 552   // Rules of Class.getSuperClass as implemented by KLass::java_super:
 553   // arrays return Object
 554   // interfaces return NULL
 555   // proper classes return Klass::super()
 556   klassOop k = java_lang_Class::as_klassOop(mirror);
 557   if (Klass::cast(k)->is_interface()) return NULL;
 558 
 559   // return mirror for superclass
 560   klassOop super = Klass::cast(k)->java_super();
 561   // super2 is the value computed by the compiler's getSuperClass intrinsic:
 562   debug_only(klassOop super2 = ( Klass::cast(k)->oop_is_javaArray()
 563                                  ? SystemDictionary::Object_klass()
 564                                  : Klass::cast(k)->super() ) );
 565   assert(super == super2,
 566          "java_super computation depends on interface, array, other super");
 567   obj = (super == NULL) ? NULL : (jclass) JNIHandles::make_local(Klass::cast(super)->java_mirror());
 568   return obj;
 569 JNI_END
 570 
 571 JNI_QUICK_ENTRY(jboolean, jni_IsAssignableFrom(JNIEnv *env, jclass sub, jclass super))
 572   JNIWrapper("IsSubclassOf");
 573   DTRACE_PROBE3(hotspot_jni, IsAssignableFrom__entry, env, sub, super);
 574   oop sub_mirror   = JNIHandles::resolve_non_null(sub);
 575   oop super_mirror = JNIHandles::resolve_non_null(super);
 576   if (java_lang_Class::is_primitive(sub_mirror) ||
 577       java_lang_Class::is_primitive(super_mirror)) {
 578     jboolean ret = (sub_mirror == super_mirror);
 579     DTRACE_PROBE1(hotspot_jni, IsAssignableFrom__return, ret);
 580     return ret;
 581   }
 582   klassOop sub_klass   = java_lang_Class::as_klassOop(sub_mirror);
 583   klassOop super_klass = java_lang_Class::as_klassOop(super_mirror);
 584   assert(sub_klass != NULL && super_klass != NULL, "invalid arguments to jni_IsAssignableFrom");
 585   jboolean ret = Klass::cast(sub_klass)->is_subtype_of(super_klass) ?
 586                    JNI_TRUE : JNI_FALSE;
 587   DTRACE_PROBE1(hotspot_jni, IsAssignableFrom__return, ret);
 588   return ret;
 589 JNI_END
 590 
 591 DT_RETURN_MARK_DECL(Throw, jint);
 592 
 593 JNI_ENTRY(jint, jni_Throw(JNIEnv *env, jthrowable obj))
 594   JNIWrapper("Throw");
 595   DTRACE_PROBE2(hotspot_jni, Throw__entry, env, obj);
 596   jint ret = JNI_OK;
 597   DT_RETURN_MARK(Throw, jint, (const jint&)ret);
 598 
 599   THROW_OOP_(JNIHandles::resolve(obj), JNI_OK);
 600   ShouldNotReachHere();
 601 JNI_END
 602 
 603 DT_RETURN_MARK_DECL(ThrowNew, jint);
 604 
 605 JNI_ENTRY(jint, jni_ThrowNew(JNIEnv *env, jclass clazz, const char *message))
 606   JNIWrapper("ThrowNew");
 607   DTRACE_PROBE3(hotspot_jni, ThrowNew__entry, env, clazz, message);
 608   jint ret = JNI_OK;
 609   DT_RETURN_MARK(ThrowNew, jint, (const jint&)ret);
 610 
 611   instanceKlass* k = instanceKlass::cast(java_lang_Class::as_klassOop(JNIHandles::resolve_non_null(clazz)));
 612   symbolHandle name = symbolHandle(THREAD, k->name());
 613   Handle class_loader (THREAD,  k->class_loader());
 614   Handle protection_domain (THREAD, k->protection_domain());
 615   THROW_MSG_LOADER_(name, (char *)message, class_loader, protection_domain, JNI_OK);
 616   ShouldNotReachHere();
 617 JNI_END
 618 
 619 
 620 // JNI functions only transform a pending async exception to a synchronous
 621 // exception in ExceptionOccurred and ExceptionCheck calls, since
 622 // delivering an async exception in other places won't change the native
 623 // code's control flow and would be harmful when native code further calls
 624 // JNI functions with a pending exception. Async exception is also checked
 625 // during the call, so ExceptionOccurred/ExceptionCheck won't return
 626 // false but deliver the async exception at the very end during
 627 // state transition.
 628 
 629 static void jni_check_async_exceptions(JavaThread *thread) {
 630   assert(thread == Thread::current(), "must be itself");
 631   thread->check_and_handle_async_exceptions();
 632 }
 633 
 634 JNI_ENTRY_NO_PRESERVE(jthrowable, jni_ExceptionOccurred(JNIEnv *env))
 635   JNIWrapper("ExceptionOccurred");
 636   DTRACE_PROBE1(hotspot_jni, ExceptionOccurred__entry, env);
 637   jni_check_async_exceptions(thread);
 638   oop exception = thread->pending_exception();
 639   jthrowable ret = (jthrowable) JNIHandles::make_local(env, exception);
 640   DTRACE_PROBE1(hotspot_jni, ExceptionOccurred__return, ret);
 641   return ret;
 642 JNI_END
 643 
 644 
 645 JNI_ENTRY_NO_PRESERVE(void, jni_ExceptionDescribe(JNIEnv *env))
 646   JNIWrapper("ExceptionDescribe");
 647   DTRACE_PROBE1(hotspot_jni, ExceptionDescribe__entry, env);
 648   if (thread->has_pending_exception()) {
 649     Handle ex(thread, thread->pending_exception());
 650     thread->clear_pending_exception();
 651     if (ex->is_a(SystemDictionary::ThreadDeath_klass())) {
 652       // Don't print anything if we are being killed.
 653     } else {
 654       jio_fprintf(defaultStream::error_stream(), "Exception ");
 655       if (thread != NULL && thread->threadObj() != NULL) {
 656         ResourceMark rm(THREAD);
 657         jio_fprintf(defaultStream::error_stream(),
 658         "in thread \"%s\" ", thread->get_thread_name());
 659       }
 660       if (ex->is_a(SystemDictionary::Throwable_klass())) {
 661         JavaValue result(T_VOID);
 662         JavaCalls::call_virtual(&result,
 663                                 ex,
 664                                 KlassHandle(THREAD,
 665                                   SystemDictionary::Throwable_klass()),
 666                                 vmSymbolHandles::printStackTrace_name(),
 667                                 vmSymbolHandles::void_method_signature(),
 668                                 THREAD);
 669         // If an exception is thrown in the call it gets thrown away. Not much
 670         // we can do with it. The native code that calls this, does not check
 671         // for the exception - hence, it might still be in the thread when DestroyVM gets
 672         // called, potentially causing a few asserts to trigger - since no pending exception
 673         // is expected.
 674         CLEAR_PENDING_EXCEPTION;
 675       } else {
 676         ResourceMark rm(THREAD);
 677         jio_fprintf(defaultStream::error_stream(),
 678         ". Uncaught exception of type %s.",
 679         Klass::cast(ex->klass())->external_name());
 680       }
 681     }
 682   }
 683   DTRACE_PROBE(hotspot_jni, ExceptionDescribe__return);
 684 JNI_END
 685 
 686 
 687 JNI_QUICK_ENTRY(void, jni_ExceptionClear(JNIEnv *env))
 688   JNIWrapper("ExceptionClear");
 689   DTRACE_PROBE1(hotspot_jni, ExceptionClear__entry, env);
 690 
 691   // The jni code might be using this API to clear java thrown exception.
 692   // So just mark jvmti thread exception state as exception caught.
 693   JvmtiThreadState *state = JavaThread::current()->jvmti_thread_state();
 694   if (state != NULL && state->is_exception_detected()) {
 695     state->set_exception_caught();
 696   }
 697   thread->clear_pending_exception();
 698   DTRACE_PROBE(hotspot_jni, ExceptionClear__return);
 699 JNI_END
 700 
 701 
 702 JNI_ENTRY(void, jni_FatalError(JNIEnv *env, const char *msg))
 703   JNIWrapper("FatalError");
 704   DTRACE_PROBE2(hotspot_jni, FatalError__entry, env, msg);
 705   tty->print_cr("FATAL ERROR in native method: %s", msg);
 706   thread->print_stack();
 707   os::abort(); // Dump core and abort
 708 JNI_END
 709 
 710 
 711 JNI_ENTRY(jint, jni_PushLocalFrame(JNIEnv *env, jint capacity))
 712   JNIWrapper("PushLocalFrame");
 713   DTRACE_PROBE2(hotspot_jni, PushLocalFrame__entry, env, capacity);
 714   //%note jni_11
 715   if (capacity < 0 && capacity > MAX_REASONABLE_LOCAL_CAPACITY) {
 716     DTRACE_PROBE1(hotspot_jni, PushLocalFrame__return, JNI_ERR);
 717     return JNI_ERR;
 718   }
 719   JNIHandleBlock* old_handles = thread->active_handles();
 720   JNIHandleBlock* new_handles = JNIHandleBlock::allocate_block(thread);
 721   assert(new_handles != NULL, "should not be NULL");
 722   new_handles->set_pop_frame_link(old_handles);
 723   thread->set_active_handles(new_handles);
 724   jint ret = JNI_OK;
 725   DTRACE_PROBE1(hotspot_jni, PushLocalFrame__return, ret);
 726   return ret;
 727 JNI_END
 728 
 729 
 730 JNI_ENTRY(jobject, jni_PopLocalFrame(JNIEnv *env, jobject result))
 731   JNIWrapper("PopLocalFrame");
 732   DTRACE_PROBE2(hotspot_jni, PopLocalFrame__entry, env, result);
 733   //%note jni_11
 734   Handle result_handle(thread, JNIHandles::resolve(result));
 735   JNIHandleBlock* old_handles = thread->active_handles();
 736   JNIHandleBlock* new_handles = old_handles->pop_frame_link();
 737   if (new_handles != NULL) {
 738     // As a sanity check we only release the handle blocks if the pop_frame_link is not NULL.
 739     // This way code will still work if PopLocalFrame is called without a corresponding
 740     // PushLocalFrame call. Note that we set the pop_frame_link to NULL explicitly, otherwise
 741     // the release_block call will release the blocks.
 742     thread->set_active_handles(new_handles);
 743     old_handles->set_pop_frame_link(NULL);              // clear link we won't release new_handles below
 744     JNIHandleBlock::release_block(old_handles, thread); // may block
 745     result = JNIHandles::make_local(thread, result_handle());
 746   }
 747   DTRACE_PROBE1(hotspot_jni, PopLocalFrame__return, result);
 748   return result;
 749 JNI_END
 750 
 751 
 752 JNI_ENTRY(jobject, jni_NewGlobalRef(JNIEnv *env, jobject ref))
 753   JNIWrapper("NewGlobalRef");
 754   DTRACE_PROBE2(hotspot_jni, NewGlobalRef__entry, env, ref);
 755   Handle ref_handle(thread, JNIHandles::resolve(ref));
 756   jobject ret = JNIHandles::make_global(ref_handle);
 757   DTRACE_PROBE1(hotspot_jni, NewGlobalRef__return, ret);
 758   return ret;
 759 JNI_END
 760 
 761 // Must be JNI_ENTRY (with HandleMark)
 762 JNI_ENTRY_NO_PRESERVE(void, jni_DeleteGlobalRef(JNIEnv *env, jobject ref))
 763   JNIWrapper("DeleteGlobalRef");
 764   DTRACE_PROBE2(hotspot_jni, DeleteGlobalRef__entry, env, ref);
 765   JNIHandles::destroy_global(ref);
 766   DTRACE_PROBE(hotspot_jni, DeleteGlobalRef__return);
 767 JNI_END
 768 
 769 JNI_QUICK_ENTRY(void, jni_DeleteLocalRef(JNIEnv *env, jobject obj))
 770   JNIWrapper("DeleteLocalRef");
 771   DTRACE_PROBE2(hotspot_jni, DeleteLocalRef__entry, env, obj);
 772   JNIHandles::destroy_local(obj);
 773   DTRACE_PROBE(hotspot_jni, DeleteLocalRef__return);
 774 JNI_END
 775 
 776 JNI_QUICK_ENTRY(jboolean, jni_IsSameObject(JNIEnv *env, jobject r1, jobject r2))
 777   JNIWrapper("IsSameObject");
 778   DTRACE_PROBE3(hotspot_jni, IsSameObject__entry, env, r1, r2);
 779   oop a = JNIHandles::resolve(r1);
 780   oop b = JNIHandles::resolve(r2);
 781   jboolean ret = (a == b) ? JNI_TRUE : JNI_FALSE;
 782   DTRACE_PROBE1(hotspot_jni, IsSameObject__return, ret);
 783   return ret;
 784 JNI_END
 785 
 786 
 787 JNI_ENTRY(jobject, jni_NewLocalRef(JNIEnv *env, jobject ref))
 788   JNIWrapper("NewLocalRef");
 789   DTRACE_PROBE2(hotspot_jni, NewLocalRef__entry, env, ref);
 790   jobject ret = JNIHandles::make_local(env, JNIHandles::resolve(ref));
 791   DTRACE_PROBE1(hotspot_jni, NewLocalRef__return, ret);
 792   return ret;
 793 JNI_END
 794 
 795 JNI_LEAF(jint, jni_EnsureLocalCapacity(JNIEnv *env, jint capacity))
 796   JNIWrapper("EnsureLocalCapacity");
 797   DTRACE_PROBE2(hotspot_jni, EnsureLocalCapacity__entry, env, capacity);
 798   jint ret;
 799   if (capacity >= 0 && capacity <= MAX_REASONABLE_LOCAL_CAPACITY) {
 800     ret = JNI_OK;
 801   } else {
 802     ret = JNI_ERR;
 803   }
 804   DTRACE_PROBE1(hotspot_jni, EnsureLocalCapacity__return, ret);
 805   return ret;
 806 JNI_END
 807 
 808 // Return the Handle Type
 809 JNI_LEAF(jobjectRefType, jni_GetObjectRefType(JNIEnv *env, jobject obj))
 810   JNIWrapper("GetObjectRefType");
 811   DTRACE_PROBE2(hotspot_jni, GetObjectRefType__entry, env, obj);
 812   jobjectRefType ret;
 813   if (JNIHandles::is_local_handle(thread, obj) ||
 814       JNIHandles::is_frame_handle(thread, obj))
 815     ret = JNILocalRefType;
 816   else if (JNIHandles::is_global_handle(obj))
 817     ret = JNIGlobalRefType;
 818   else if (JNIHandles::is_weak_global_handle(obj))
 819     ret = JNIWeakGlobalRefType;
 820   else
 821     ret = JNIInvalidRefType;
 822   DTRACE_PROBE1(hotspot_jni, GetObjectRefType__return, ret);
 823   return ret;
 824 JNI_END
 825 
 826 
 827 class JNI_ArgumentPusher : public SignatureIterator {
 828  protected:
 829   JavaCallArguments*  _arguments;
 830 
 831   virtual void get_bool   () = 0;
 832   virtual void get_char   () = 0;
 833   virtual void get_short  () = 0;
 834   virtual void get_byte   () = 0;
 835   virtual void get_int    () = 0;
 836   virtual void get_long   () = 0;
 837   virtual void get_float  () = 0;
 838   virtual void get_double () = 0;
 839   virtual void get_object () = 0;
 840 
 841   JNI_ArgumentPusher(Thread *thread, symbolOop signature)
 842        : SignatureIterator(thread, signature) {
 843     this->_return_type = T_ILLEGAL;
 844     _arguments = NULL;
 845   }
 846 
 847  public:
 848   virtual void iterate( uint64_t fingerprint ) = 0;
 849 
 850   void set_java_argument_object(JavaCallArguments *arguments) { _arguments = arguments; }
 851 
 852   inline void do_bool()                     { if (!is_return_type()) get_bool();   }
 853   inline void do_char()                     { if (!is_return_type()) get_char();   }
 854   inline void do_short()                    { if (!is_return_type()) get_short();  }
 855   inline void do_byte()                     { if (!is_return_type()) get_byte();   }
 856   inline void do_int()                      { if (!is_return_type()) get_int();    }
 857   inline void do_long()                     { if (!is_return_type()) get_long();   }
 858   inline void do_float()                    { if (!is_return_type()) get_float();  }
 859   inline void do_double()                   { if (!is_return_type()) get_double(); }
 860   inline void do_object(int begin, int end) { if (!is_return_type()) get_object(); }
 861   inline void do_array(int begin, int end)  { if (!is_return_type()) get_object(); } // do_array uses get_object -- there is no get_array
 862   inline void do_void()                     { }
 863 
 864   JavaCallArguments* arguments()     { return _arguments; }
 865   void push_receiver(Handle h)       { _arguments->push_oop(h); }
 866 };
 867 
 868 
 869 class JNI_ArgumentPusherVaArg : public JNI_ArgumentPusher {
 870  protected:
 871   va_list _ap;
 872 
 873   inline void get_bool()   { _arguments->push_int(va_arg(_ap, jint)); } // bool is coerced to int when using va_arg
 874   inline void get_char()   { _arguments->push_int(va_arg(_ap, jint)); } // char is coerced to int when using va_arg
 875   inline void get_short()  { _arguments->push_int(va_arg(_ap, jint)); } // short is coerced to int when using va_arg
 876   inline void get_byte()   { _arguments->push_int(va_arg(_ap, jint)); } // byte is coerced to int when using va_arg
 877   inline void get_int()    { _arguments->push_int(va_arg(_ap, jint)); }
 878 
 879   // each of these paths is exercized by the various jck Call[Static,Nonvirtual,][Void,Int,..]Method[A,V,] tests
 880 
 881   inline void get_long()   { _arguments->push_long(va_arg(_ap, jlong)); }
 882   inline void get_float()  { _arguments->push_float((jfloat)va_arg(_ap, jdouble)); } // float is coerced to double w/ va_arg
 883   inline void get_double() { _arguments->push_double(va_arg(_ap, jdouble)); }
 884   inline void get_object() { jobject l = va_arg(_ap, jobject);
 885                              _arguments->push_oop(Handle((oop *)l, false)); }
 886 
 887   inline void set_ap(va_list rap) {
 888 #ifdef va_copy
 889     va_copy(_ap, rap);
 890 #elif defined (__va_copy)
 891     __va_copy(_ap, rap);
 892 #else
 893     _ap = rap;
 894 #endif
 895   }
 896 
 897  public:
 898   JNI_ArgumentPusherVaArg(Thread *thread, symbolOop signature, va_list rap)
 899        : JNI_ArgumentPusher(thread, signature) {
 900     set_ap(rap);
 901   }
 902   JNI_ArgumentPusherVaArg(Thread *thread, jmethodID method_id, va_list rap)
 903       : JNI_ArgumentPusher(thread, JNIHandles::resolve_jmethod_id(method_id)->signature()) {
 904     set_ap(rap);
 905   }
 906 
 907   // Optimized path if we have the bitvector form of signature
 908   void iterate( uint64_t fingerprint ) {
 909     if ( fingerprint == UCONST64(-1) ) SignatureIterator::iterate();// Must be too many arguments
 910     else {
 911       _return_type = (BasicType)((fingerprint >> static_feature_size) &
 912                                   result_feature_mask);
 913 
 914       assert(fingerprint, "Fingerprint should not be 0");
 915       fingerprint = fingerprint >> (static_feature_size + result_feature_size);
 916       while ( 1 ) {
 917         switch ( fingerprint & parameter_feature_mask ) {
 918           case bool_parm:
 919           case char_parm:
 920           case short_parm:
 921           case byte_parm:
 922           case int_parm:
 923             get_int();
 924             break;
 925           case obj_parm:
 926             get_object();
 927             break;
 928           case long_parm:
 929             get_long();
 930             break;
 931           case float_parm:
 932             get_float();
 933             break;
 934           case double_parm:
 935             get_double();
 936             break;
 937           case done_parm:
 938             return;
 939             break;
 940           default:
 941             ShouldNotReachHere();
 942             break;
 943         }
 944         fingerprint >>= parameter_feature_size;
 945       }
 946     }
 947   }
 948 };
 949 
 950 
 951 class JNI_ArgumentPusherArray : public JNI_ArgumentPusher {
 952  protected:
 953   const jvalue *_ap;
 954 
 955   inline void get_bool()   { _arguments->push_int((jint)(_ap++)->z); }
 956   inline void get_char()   { _arguments->push_int((jint)(_ap++)->c); }
 957   inline void get_short()  { _arguments->push_int((jint)(_ap++)->s); }
 958   inline void get_byte()   { _arguments->push_int((jint)(_ap++)->b); }
 959   inline void get_int()    { _arguments->push_int((jint)(_ap++)->i); }
 960 
 961   inline void get_long()   { _arguments->push_long((_ap++)->j);  }
 962   inline void get_float()  { _arguments->push_float((_ap++)->f); }
 963   inline void get_double() { _arguments->push_double((_ap++)->d);}
 964   inline void get_object() { _arguments->push_oop(Handle((oop *)(_ap++)->l, false)); }
 965 
 966   inline void set_ap(const jvalue *rap) { _ap = rap; }
 967 
 968  public:
 969   JNI_ArgumentPusherArray(Thread *thread, symbolOop signature, const jvalue *rap)
 970        : JNI_ArgumentPusher(thread, signature) {
 971     set_ap(rap);
 972   }
 973   JNI_ArgumentPusherArray(Thread *thread, jmethodID method_id, const jvalue *rap)
 974       : JNI_ArgumentPusher(thread, JNIHandles::resolve_jmethod_id(method_id)->signature()) {
 975     set_ap(rap);
 976   }
 977 
 978   // Optimized path if we have the bitvector form of signature
 979   void iterate( uint64_t fingerprint ) {
 980     if ( fingerprint == UCONST64(-1) ) SignatureIterator::iterate(); // Must be too many arguments
 981     else {
 982       _return_type = (BasicType)((fingerprint >> static_feature_size) &
 983                                   result_feature_mask);
 984       assert(fingerprint, "Fingerprint should not be 0");
 985       fingerprint = fingerprint >> (static_feature_size + result_feature_size);
 986       while ( 1 ) {
 987         switch ( fingerprint & parameter_feature_mask ) {
 988           case bool_parm:
 989             get_bool();
 990             break;
 991           case char_parm:
 992             get_char();
 993             break;
 994           case short_parm:
 995             get_short();
 996             break;
 997           case byte_parm:
 998             get_byte();
 999             break;
1000           case int_parm:
1001             get_int();
1002             break;
1003           case obj_parm:
1004             get_object();
1005             break;
1006           case long_parm:
1007             get_long();
1008             break;
1009           case float_parm:
1010             get_float();
1011             break;
1012           case double_parm:
1013             get_double();
1014             break;
1015           case done_parm:
1016             return;
1017             break;
1018           default:
1019             ShouldNotReachHere();
1020             break;
1021         }
1022         fingerprint >>= parameter_feature_size;
1023       }
1024     }
1025   }
1026 };
1027 
1028 
1029 enum JNICallType {
1030   JNI_STATIC,
1031   JNI_VIRTUAL,
1032   JNI_NONVIRTUAL
1033 };
1034 
1035 static methodHandle jni_resolve_interface_call(Handle recv, methodHandle method, TRAPS) {
1036   assert(!method.is_null() , "method should not be null");
1037 
1038   KlassHandle recv_klass; // Default to NULL (use of ?: can confuse gcc)
1039   if (recv.not_null()) recv_klass = KlassHandle(THREAD, recv->klass());
1040   KlassHandle spec_klass (THREAD, method->method_holder());
1041   symbolHandle name (THREAD, method->name());
1042   symbolHandle signature (THREAD, method->signature());
1043   CallInfo info;
1044   LinkResolver::resolve_interface_call(info, recv, recv_klass,  spec_klass, name, signature, KlassHandle(), false, true, CHECK_(methodHandle()));
1045   return info.selected_method();
1046 }
1047 
1048 static methodHandle jni_resolve_virtual_call(Handle recv, methodHandle method, TRAPS) {
1049   assert(!method.is_null() , "method should not be null");
1050 
1051   KlassHandle recv_klass; // Default to NULL (use of ?: can confuse gcc)
1052   if (recv.not_null()) recv_klass = KlassHandle(THREAD, recv->klass());
1053   KlassHandle spec_klass (THREAD, method->method_holder());
1054   symbolHandle name (THREAD, method->name());
1055   symbolHandle signature (THREAD, method->signature());
1056   CallInfo info;
1057   LinkResolver::resolve_virtual_call(info, recv, recv_klass,  spec_klass, name, signature, KlassHandle(), false, true, CHECK_(methodHandle()));
1058   return info.selected_method();
1059 }
1060 
1061 
1062 
1063 static void jni_invoke_static(JNIEnv *env, JavaValue* result, jobject receiver, JNICallType call_type, jmethodID method_id, JNI_ArgumentPusher *args, TRAPS) {
1064   methodHandle method(THREAD, JNIHandles::resolve_jmethod_id(method_id));
1065 
1066   // Create object to hold arguments for the JavaCall, and associate it with
1067   // the jni parser
1068   ResourceMark rm(THREAD);
1069   int number_of_parameters = method->size_of_parameters();
1070   JavaCallArguments java_args(number_of_parameters);
1071   args->set_java_argument_object(&java_args);
1072 
1073   assert(method->is_static(), "method should be static");
1074 
1075   // Fill out JavaCallArguments object
1076   args->iterate( Fingerprinter(THREAD, method).fingerprint() );
1077   // Initialize result type
1078   result->set_type(args->get_ret_type());
1079 
1080   // Invoke the method. Result is returned as oop.
1081   JavaCalls::call(result, method, &java_args, CHECK);
1082 
1083   // Convert result
1084   if (result->get_type() == T_OBJECT || result->get_type() == T_ARRAY) {
1085     result->set_jobject(JNIHandles::make_local(env, (oop) result->get_jobject()));
1086   }
1087 }
1088 
1089 
1090 static void jni_invoke_nonstatic(JNIEnv *env, JavaValue* result, jobject receiver, JNICallType call_type, jmethodID method_id, JNI_ArgumentPusher *args, TRAPS) {
1091   oop recv = JNIHandles::resolve(receiver);
1092   if (recv == NULL) {
1093     THROW(vmSymbols::java_lang_NullPointerException());
1094   }
1095   Handle h_recv(THREAD, recv);
1096 
1097   int number_of_parameters;
1098   methodOop selected_method;
1099   {
1100     methodOop m = JNIHandles::resolve_jmethod_id(method_id);
1101     number_of_parameters = m->size_of_parameters();
1102     klassOop holder = m->method_holder();
1103     if (!(Klass::cast(holder))->is_interface()) {
1104       // non-interface call -- for that little speed boost, don't handlize
1105       debug_only(No_Safepoint_Verifier nosafepoint;)
1106       if (call_type == JNI_VIRTUAL) {
1107         // jni_GetMethodID makes sure class is linked and initialized
1108         // so m should have a valid vtable index.
1109         int vtbl_index = m->vtable_index();
1110         if (vtbl_index != methodOopDesc::nonvirtual_vtable_index) {
1111           klassOop k = h_recv->klass();
1112           // k might be an arrayKlassOop but all vtables start at
1113           // the same place. The cast is to avoid virtual call and assertion.
1114           instanceKlass *ik = (instanceKlass*)k->klass_part();
1115           selected_method = ik->method_at_vtable(vtbl_index);
1116         } else {
1117           // final method
1118           selected_method = m;
1119         }
1120       } else {
1121         // JNI_NONVIRTUAL call
1122         selected_method = m;
1123       }
1124     } else {
1125       // interface call
1126       KlassHandle h_holder(THREAD, holder);
1127 
1128       int itbl_index = m->cached_itable_index();
1129       if (itbl_index == -1) {
1130         itbl_index = klassItable::compute_itable_index(m);
1131         m->set_cached_itable_index(itbl_index);
1132         // the above may have grabbed a lock, 'm' and anything non-handlized can't be used again
1133       }
1134       klassOop k = h_recv->klass();
1135       selected_method = instanceKlass::cast(k)->method_at_itable(h_holder(), itbl_index, CHECK);
1136     }
1137   }
1138 
1139   methodHandle method(THREAD, selected_method);
1140 
1141   // Create object to hold arguments for the JavaCall, and associate it with
1142   // the jni parser
1143   ResourceMark rm(THREAD);
1144   JavaCallArguments java_args(number_of_parameters);
1145   args->set_java_argument_object(&java_args);
1146 
1147   // handle arguments
1148   assert(!method->is_static(), "method should not be static");
1149   args->push_receiver(h_recv); // Push jobject handle
1150 
1151   // Fill out JavaCallArguments object
1152   args->iterate( Fingerprinter(THREAD, method).fingerprint() );
1153   // Initialize result type
1154   result->set_type(args->get_ret_type());
1155 
1156   // Invoke the method. Result is returned as oop.
1157   JavaCalls::call(result, method, &java_args, CHECK);
1158 
1159   // Convert result
1160   if (result->get_type() == T_OBJECT || result->get_type() == T_ARRAY) {
1161     result->set_jobject(JNIHandles::make_local(env, (oop) result->get_jobject()));
1162   }
1163 }
1164 
1165 
1166 static instanceOop alloc_object(jclass clazz, TRAPS) {
1167   KlassHandle k(THREAD, java_lang_Class::as_klassOop(JNIHandles::resolve_non_null(clazz)));
1168   Klass::cast(k())->check_valid_for_instantiation(false, CHECK_NULL);
1169   instanceKlass::cast(k())->initialize(CHECK_NULL);
1170   instanceOop ih = instanceKlass::cast(k())->allocate_instance(THREAD);
1171   return ih;
1172 }
1173 
1174 DT_RETURN_MARK_DECL(AllocObject, jobject);
1175 
1176 JNI_ENTRY(jobject, jni_AllocObject(JNIEnv *env, jclass clazz))
1177   JNIWrapper("AllocObject");
1178 
1179   DTRACE_PROBE2(hotspot_jni, AllocObject__entry, env, clazz);
1180   jobject ret = NULL;
1181   DT_RETURN_MARK(AllocObject, jobject, (const jobject&)ret);
1182 
1183   instanceOop i = alloc_object(clazz, CHECK_NULL);
1184   ret = JNIHandles::make_local(env, i);
1185   return ret;
1186 JNI_END
1187 
1188 DT_RETURN_MARK_DECL(NewObjectA, jobject);
1189 
1190 JNI_ENTRY(jobject, jni_NewObjectA(JNIEnv *env, jclass clazz, jmethodID methodID, const jvalue *args))
1191   JNIWrapper("NewObjectA");
1192   DTRACE_PROBE3(hotspot_jni, NewObjectA__entry, env, clazz, methodID);
1193   jobject obj = NULL;
1194   DT_RETURN_MARK(NewObjectA, jobject, (const jobject)obj);
1195 
1196   instanceOop i = alloc_object(clazz, CHECK_NULL);
1197   obj = JNIHandles::make_local(env, i);
1198   JavaValue jvalue(T_VOID);
1199   JNI_ArgumentPusherArray ap(THREAD, methodID, args);
1200   jni_invoke_nonstatic(env, &jvalue, obj, JNI_NONVIRTUAL, methodID, &ap, CHECK_NULL);
1201   return obj;
1202 JNI_END
1203 
1204 DT_RETURN_MARK_DECL(NewObjectV, jobject);
1205 
1206 JNI_ENTRY(jobject, jni_NewObjectV(JNIEnv *env, jclass clazz, jmethodID methodID, va_list args))
1207   JNIWrapper("NewObjectV");
1208   DTRACE_PROBE3(hotspot_jni, NewObjectV__entry, env, clazz, methodID);
1209   jobject obj = NULL;
1210   DT_RETURN_MARK(NewObjectV, jobject, (const jobject&)obj);
1211 
1212   instanceOop i = alloc_object(clazz, CHECK_NULL);
1213   obj = JNIHandles::make_local(env, i);
1214   JavaValue jvalue(T_VOID);
1215   JNI_ArgumentPusherVaArg ap(THREAD, methodID, args);
1216   jni_invoke_nonstatic(env, &jvalue, obj, JNI_NONVIRTUAL, methodID, &ap, CHECK_NULL);
1217   return obj;
1218 JNI_END
1219 
1220 DT_RETURN_MARK_DECL(NewObject, jobject);
1221 
1222 JNI_ENTRY(jobject, jni_NewObject(JNIEnv *env, jclass clazz, jmethodID methodID, ...))
1223   JNIWrapper("NewObject");
1224   DTRACE_PROBE3(hotspot_jni, NewObject__entry, env, clazz, methodID);
1225   jobject obj = NULL;
1226   DT_RETURN_MARK(NewObject, jobject, (const jobject&)obj);
1227 
1228   instanceOop i = alloc_object(clazz, CHECK_NULL);
1229   obj = JNIHandles::make_local(env, i);
1230   va_list args;
1231   va_start(args, methodID);
1232   JavaValue jvalue(T_VOID);
1233   JNI_ArgumentPusherVaArg ap(THREAD, methodID, args);
1234   jni_invoke_nonstatic(env, &jvalue, obj, JNI_NONVIRTUAL, methodID, &ap, CHECK_NULL);
1235   va_end(args);
1236   return obj;
1237 JNI_END
1238 
1239 
1240 JNI_ENTRY(jclass, jni_GetObjectClass(JNIEnv *env, jobject obj))
1241   JNIWrapper("GetObjectClass");
1242   DTRACE_PROBE2(hotspot_jni, GetObjectClass__entry, env, obj);
1243   klassOop k = JNIHandles::resolve_non_null(obj)->klass();
1244   jclass ret =
1245     (jclass) JNIHandles::make_local(env, Klass::cast(k)->java_mirror());
1246   DTRACE_PROBE1(hotspot_jni, GetObjectClass__return, ret);
1247   return ret;
1248 JNI_END
1249 
1250 JNI_QUICK_ENTRY(jboolean, jni_IsInstanceOf(JNIEnv *env, jobject obj, jclass clazz))
1251   JNIWrapper("IsInstanceOf");
1252   DTRACE_PROBE3(hotspot_jni, IsInstanceOf__entry, env, obj, clazz);
1253   jboolean ret = JNI_TRUE;
1254   if (obj != NULL) {
1255     ret = JNI_FALSE;
1256     klassOop k = java_lang_Class::as_klassOop(
1257       JNIHandles::resolve_non_null(clazz));
1258     if (k != NULL) {
1259       ret = JNIHandles::resolve_non_null(obj)->is_a(k) ? JNI_TRUE : JNI_FALSE;
1260     }
1261   }
1262   DTRACE_PROBE1(hotspot_jni, IsInstanceOf__return, ret);
1263   return ret;
1264 JNI_END
1265 
1266 
1267 static jmethodID get_method_id(JNIEnv *env, jclass clazz, const char *name_str,
1268                                const char *sig, bool is_static, TRAPS) {
1269   // %%%% This code should probably just call into a method in the LinkResolver
1270   //
1271   // The class should have been loaded (we have an instance of the class
1272   // passed in) so the method and signature should already be in the symbol
1273   // table.  If they're not there, the method doesn't exist.
1274   symbolHandle signature =
1275            symbolHandle(THREAD, SymbolTable::probe(sig, (int)strlen(sig)));
1276   symbolHandle name;
1277   if (name_str == NULL) {
1278     name = vmSymbolHandles::object_initializer_name();
1279   } else {
1280     name = symbolHandle(THREAD,
1281                         SymbolTable::probe(name_str, (int)strlen(name_str)));
1282   }
1283   if (name.is_null() || signature.is_null()) {
1284     THROW_MSG_0(vmSymbols::java_lang_NoSuchMethodError(), name_str);
1285   }
1286 
1287   // Throw a NoSuchMethodError exception if we have an instance of a
1288   // primitive java.lang.Class
1289   if (java_lang_Class::is_primitive(JNIHandles::resolve_non_null(clazz))) {
1290     THROW_MSG_0(vmSymbols::java_lang_NoSuchMethodError(), name_str);
1291   }
1292 
1293   KlassHandle klass(THREAD,
1294                java_lang_Class::as_klassOop(JNIHandles::resolve_non_null(clazz)));
1295 
1296   // Make sure class is linked and initialized before handing id's out to
1297   // methodOops.
1298   Klass::cast(klass())->initialize(CHECK_NULL);
1299 
1300   methodOop m;
1301   if (name() == vmSymbols::object_initializer_name() ||
1302       name() == vmSymbols::class_initializer_name()) {
1303     // Never search superclasses for constructors
1304     if (klass->oop_is_instance()) {
1305       m = instanceKlass::cast(klass())->find_method(name(), signature());
1306     } else {
1307       m = NULL;
1308     }
1309   } else {
1310     m = klass->lookup_method(name(), signature());
1311     // Look up interfaces
1312     if (m == NULL && klass->oop_is_instance()) {
1313       m = instanceKlass::cast(klass())->lookup_method_in_all_interfaces(name(),
1314                                                                    signature());
1315     }
1316   }
1317   if (m == NULL || (m->is_static() != is_static)) {
1318     THROW_MSG_0(vmSymbols::java_lang_NoSuchMethodError(), name_str);
1319   }
1320   return m->jmethod_id();
1321 }
1322 
1323 
1324 JNI_ENTRY(jmethodID, jni_GetMethodID(JNIEnv *env, jclass clazz,
1325           const char *name, const char *sig))
1326   JNIWrapper("GetMethodID");
1327   DTRACE_PROBE4(hotspot_jni, GetMethodID__entry, env, clazz, name, sig);
1328   jmethodID ret = get_method_id(env, clazz, name, sig, false, thread);
1329   DTRACE_PROBE1(hotspot_jni, GetMethodID__return, ret);
1330   return ret;
1331 JNI_END
1332 
1333 
1334 JNI_ENTRY(jmethodID, jni_GetStaticMethodID(JNIEnv *env, jclass clazz,
1335           const char *name, const char *sig))
1336   JNIWrapper("GetStaticMethodID");
1337   DTRACE_PROBE4(hotspot_jni, GetStaticMethodID__entry, env, clazz, name, sig);
1338   jmethodID ret = get_method_id(env, clazz, name, sig, true, thread);
1339   DTRACE_PROBE1(hotspot_jni, GetStaticMethodID__return, ret);
1340   return ret;
1341 JNI_END
1342 
1343 
1344 
1345 //
1346 // Calling Methods
1347 //
1348 
1349 
1350 #define DEFINE_CALLMETHOD(ResultType, Result, Tag) \
1351 \
1352   DT_RETURN_MARK_DECL_FOR(Result, Call##Result##Method, ResultType);\
1353   DT_RETURN_MARK_DECL_FOR(Result, Call##Result##MethodV, ResultType);\
1354   DT_RETURN_MARK_DECL_FOR(Result, Call##Result##MethodA, ResultType);\
1355 \
1356 JNI_ENTRY(ResultType, \
1357           jni_Call##Result##Method(JNIEnv *env, jobject obj, jmethodID methodID, ...)) \
1358   JNIWrapper("Call" XSTR(Result) "Method"); \
1359 \
1360   DTRACE_PROBE3(hotspot_jni, Call##Result##Method__entry, env, obj, methodID);\
1361   ResultType ret = 0;\
1362   DT_RETURN_MARK_FOR(Result, Call##Result##Method, ResultType, \
1363                      (const ResultType&)ret);\
1364 \
1365   va_list args; \
1366   va_start(args, methodID); \
1367   JavaValue jvalue(Tag); \
1368   JNI_ArgumentPusherVaArg ap(THREAD, methodID, args); \
1369   jni_invoke_nonstatic(env, &jvalue, obj, JNI_VIRTUAL, methodID, &ap, CHECK_0); \
1370   va_end(args); \
1371   ret = jvalue.get_##ResultType(); \
1372   return ret;\
1373 JNI_END \
1374 \
1375 \
1376 JNI_ENTRY(ResultType, \
1377           jni_Call##Result##MethodV(JNIEnv *env, jobject obj, jmethodID methodID, va_list args)) \
1378   JNIWrapper("Call" XSTR(Result) "MethodV"); \
1379 \
1380   DTRACE_PROBE3(hotspot_jni, Call##Result##MethodV__entry, env, obj, methodID);\
1381   ResultType ret = 0;\
1382   DT_RETURN_MARK_FOR(Result, Call##Result##MethodV, ResultType, \
1383                      (const ResultType&)ret);\
1384 \
1385   JavaValue jvalue(Tag); \
1386   JNI_ArgumentPusherVaArg ap(THREAD, methodID, args); \
1387   jni_invoke_nonstatic(env, &jvalue, obj, JNI_VIRTUAL, methodID, &ap, CHECK_0); \
1388   ret = jvalue.get_##ResultType(); \
1389   return ret;\
1390 JNI_END \
1391 \
1392 \
1393 JNI_ENTRY(ResultType, \
1394           jni_Call##Result##MethodA(JNIEnv *env, jobject obj, jmethodID methodID, const jvalue *args)) \
1395   JNIWrapper("Call" XSTR(Result) "MethodA"); \
1396   DTRACE_PROBE3(hotspot_jni, Call##Result##MethodA__entry, env, obj, methodID);\
1397   ResultType ret = 0;\
1398   DT_RETURN_MARK_FOR(Result, Call##Result##MethodA, ResultType, \
1399                      (const ResultType&)ret);\
1400 \
1401   JavaValue jvalue(Tag); \
1402   JNI_ArgumentPusherArray ap(THREAD, methodID, args); \
1403   jni_invoke_nonstatic(env, &jvalue, obj, JNI_VIRTUAL, methodID, &ap, CHECK_0); \
1404   ret = jvalue.get_##ResultType(); \
1405   return ret;\
1406 JNI_END
1407 
1408 // the runtime type of subword integral basic types is integer
1409 DEFINE_CALLMETHOD(jboolean, Boolean, T_BOOLEAN)
1410 DEFINE_CALLMETHOD(jbyte,    Byte,    T_BYTE)
1411 DEFINE_CALLMETHOD(jchar,    Char,    T_CHAR)
1412 DEFINE_CALLMETHOD(jshort,   Short,   T_SHORT)
1413 
1414 DEFINE_CALLMETHOD(jobject,  Object,  T_OBJECT)
1415 DEFINE_CALLMETHOD(jint,     Int,     T_INT)
1416 DEFINE_CALLMETHOD(jlong,    Long,    T_LONG)
1417 DEFINE_CALLMETHOD(jfloat,   Float,   T_FLOAT)
1418 DEFINE_CALLMETHOD(jdouble,  Double,  T_DOUBLE)
1419 
1420 DT_VOID_RETURN_MARK_DECL(CallVoidMethod);
1421 DT_VOID_RETURN_MARK_DECL(CallVoidMethodV);
1422 DT_VOID_RETURN_MARK_DECL(CallVoidMethodA);
1423 
1424 JNI_ENTRY(void, jni_CallVoidMethod(JNIEnv *env, jobject obj, jmethodID methodID, ...))
1425   JNIWrapper("CallVoidMethod");
1426   DTRACE_PROBE3(hotspot_jni, CallVoidMethod__entry, env, obj, methodID);
1427   DT_VOID_RETURN_MARK(CallVoidMethod);
1428 
1429   va_list args;
1430   va_start(args, methodID);
1431   JavaValue jvalue(T_VOID);
1432   JNI_ArgumentPusherVaArg ap(THREAD, methodID, args);
1433   jni_invoke_nonstatic(env, &jvalue, obj, JNI_VIRTUAL, methodID, &ap, CHECK);
1434   va_end(args);
1435 JNI_END
1436 
1437 
1438 JNI_ENTRY(void, jni_CallVoidMethodV(JNIEnv *env, jobject obj, jmethodID methodID, va_list args))
1439   JNIWrapper("CallVoidMethodV");
1440   DTRACE_PROBE3(hotspot_jni, CallVoidMethodV__entry, env, obj, methodID);
1441   DT_VOID_RETURN_MARK(CallVoidMethodV);
1442 
1443   JavaValue jvalue(T_VOID);
1444   JNI_ArgumentPusherVaArg ap(THREAD, methodID, args);
1445   jni_invoke_nonstatic(env, &jvalue, obj, JNI_VIRTUAL, methodID, &ap, CHECK);
1446 JNI_END
1447 
1448 
1449 JNI_ENTRY(void, jni_CallVoidMethodA(JNIEnv *env, jobject obj, jmethodID methodID, const jvalue *args))
1450   JNIWrapper("CallVoidMethodA");
1451   DTRACE_PROBE3(hotspot_jni, CallVoidMethodA__entry, env, obj, methodID);
1452   DT_VOID_RETURN_MARK(CallVoidMethodA);
1453 
1454   JavaValue jvalue(T_VOID);
1455   JNI_ArgumentPusherArray ap(THREAD, methodID, args);
1456   jni_invoke_nonstatic(env, &jvalue, obj, JNI_VIRTUAL, methodID, &ap, CHECK);
1457 JNI_END
1458 
1459 
1460 #define DEFINE_CALLNONVIRTUALMETHOD(ResultType, Result, Tag) \
1461 \
1462   DT_RETURN_MARK_DECL_FOR(Result, CallNonvirtual##Result##Method, ResultType);\
1463   DT_RETURN_MARK_DECL_FOR(Result, CallNonvirtual##Result##MethodV, ResultType);\
1464   DT_RETURN_MARK_DECL_FOR(Result, CallNonvirtual##Result##MethodA, ResultType);\
1465 \
1466 JNI_ENTRY(ResultType, \
1467           jni_CallNonvirtual##Result##Method(JNIEnv *env, jobject obj, jclass cls, jmethodID methodID, ...)) \
1468   JNIWrapper("CallNonvitual" XSTR(Result) "Method"); \
1469 \
1470   DTRACE_PROBE4(hotspot_jni, CallNonvirtual##Result##Method__entry, env, obj, cls, methodID);\
1471   ResultType ret;\
1472   DT_RETURN_MARK_FOR(Result, CallNonvirtual##Result##Method, ResultType, \
1473                      (const ResultType&)ret);\
1474 \
1475   va_list args; \
1476   va_start(args, methodID); \
1477   JavaValue jvalue(Tag); \
1478   JNI_ArgumentPusherVaArg ap(THREAD, methodID, args); \
1479   jni_invoke_nonstatic(env, &jvalue, obj, JNI_NONVIRTUAL, methodID, &ap, CHECK_0); \
1480   va_end(args); \
1481   ret = jvalue.get_##ResultType(); \
1482   return ret;\
1483 JNI_END \
1484 \
1485 JNI_ENTRY(ResultType, \
1486           jni_CallNonvirtual##Result##MethodV(JNIEnv *env, jobject obj, jclass cls, jmethodID methodID, va_list args)) \
1487   JNIWrapper("CallNonvitual" XSTR(Result) "#MethodV"); \
1488   DTRACE_PROBE4(hotspot_jni, CallNonvirtual##Result##MethodV__entry, env, obj, cls, methodID);\
1489   ResultType ret;\
1490   DT_RETURN_MARK_FOR(Result, CallNonvirtual##Result##MethodV, ResultType, \
1491                      (const ResultType&)ret);\
1492 \
1493   JavaValue jvalue(Tag); \
1494   JNI_ArgumentPusherVaArg ap(THREAD, methodID, args); \
1495   jni_invoke_nonstatic(env, &jvalue, obj, JNI_NONVIRTUAL, methodID, &ap, CHECK_0); \
1496   ret = jvalue.get_##ResultType(); \
1497   return ret;\
1498 JNI_END \
1499 \
1500 JNI_ENTRY(ResultType, \
1501           jni_CallNonvirtual##Result##MethodA(JNIEnv *env, jobject obj, jclass cls, jmethodID methodID, const jvalue *args)) \
1502   JNIWrapper("CallNonvitual" XSTR(Result) "MethodA"); \
1503   DTRACE_PROBE4(hotspot_jni, CallNonvirtual##Result##MethodA__entry, env, obj, cls, methodID);\
1504   ResultType ret;\
1505   DT_RETURN_MARK_FOR(Result, CallNonvirtual##Result##MethodA, ResultType, \
1506                      (const ResultType&)ret);\
1507 \
1508   JavaValue jvalue(Tag); \
1509   JNI_ArgumentPusherArray ap(THREAD, methodID, args); \
1510   jni_invoke_nonstatic(env, &jvalue, obj, JNI_NONVIRTUAL, methodID, &ap, CHECK_0); \
1511   ret = jvalue.get_##ResultType(); \
1512   return ret;\
1513 JNI_END
1514 
1515 // the runtime type of subword integral basic types is integer
1516 DEFINE_CALLNONVIRTUALMETHOD(jboolean, Boolean, T_BOOLEAN)
1517 DEFINE_CALLNONVIRTUALMETHOD(jbyte,    Byte,    T_BYTE)
1518 DEFINE_CALLNONVIRTUALMETHOD(jchar,    Char,    T_CHAR)
1519 DEFINE_CALLNONVIRTUALMETHOD(jshort,   Short,   T_SHORT)
1520 
1521 DEFINE_CALLNONVIRTUALMETHOD(jobject,  Object,  T_OBJECT)
1522 DEFINE_CALLNONVIRTUALMETHOD(jint,     Int,     T_INT)
1523 DEFINE_CALLNONVIRTUALMETHOD(jlong,    Long,    T_LONG)
1524 DEFINE_CALLNONVIRTUALMETHOD(jfloat,   Float,   T_FLOAT)
1525 DEFINE_CALLNONVIRTUALMETHOD(jdouble,  Double,  T_DOUBLE)
1526 
1527 
1528 DT_VOID_RETURN_MARK_DECL(CallNonvirtualVoidMethod);
1529 DT_VOID_RETURN_MARK_DECL(CallNonvirtualVoidMethodV);
1530 DT_VOID_RETURN_MARK_DECL(CallNonvirtualVoidMethodA);
1531 
1532 JNI_ENTRY(void, jni_CallNonvirtualVoidMethod(JNIEnv *env, jobject obj, jclass cls, jmethodID methodID, ...))
1533   JNIWrapper("CallNonvirtualVoidMethod");
1534 
1535   DTRACE_PROBE4(hotspot_jni, CallNonvirtualVoidMethod__entry,
1536                env, obj, cls, methodID);
1537   DT_VOID_RETURN_MARK(CallNonvirtualVoidMethod);
1538 
1539   va_list args;
1540   va_start(args, methodID);
1541   JavaValue jvalue(T_VOID);
1542   JNI_ArgumentPusherVaArg ap(THREAD, methodID, args);
1543   jni_invoke_nonstatic(env, &jvalue, obj, JNI_NONVIRTUAL, methodID, &ap, CHECK);
1544   va_end(args);
1545 JNI_END
1546 
1547 
1548 JNI_ENTRY(void, jni_CallNonvirtualVoidMethodV(JNIEnv *env, jobject obj, jclass cls, jmethodID methodID, va_list args))
1549   JNIWrapper("CallNonvirtualVoidMethodV");
1550 
1551   DTRACE_PROBE4(hotspot_jni, CallNonvirtualVoidMethodV__entry,
1552                env, obj, cls, methodID);
1553   DT_VOID_RETURN_MARK(CallNonvirtualVoidMethodV);
1554 
1555   JavaValue jvalue(T_VOID);
1556   JNI_ArgumentPusherVaArg ap(THREAD, methodID, args);
1557   jni_invoke_nonstatic(env, &jvalue, obj, JNI_NONVIRTUAL, methodID, &ap, CHECK);
1558 JNI_END
1559 
1560 
1561 JNI_ENTRY(void, jni_CallNonvirtualVoidMethodA(JNIEnv *env, jobject obj, jclass cls, jmethodID methodID, const jvalue *args))
1562   JNIWrapper("CallNonvirtualVoidMethodA");
1563   DTRACE_PROBE4(hotspot_jni, CallNonvirtualVoidMethodA__entry,
1564                 env, obj, cls, methodID);
1565   DT_VOID_RETURN_MARK(CallNonvirtualVoidMethodA);
1566   JavaValue jvalue(T_VOID);
1567   JNI_ArgumentPusherArray ap(THREAD, methodID, args);
1568   jni_invoke_nonstatic(env, &jvalue, obj, JNI_NONVIRTUAL, methodID, &ap, CHECK);
1569 JNI_END
1570 
1571 
1572 #define DEFINE_CALLSTATICMETHOD(ResultType, Result, Tag) \
1573 \
1574   DT_RETURN_MARK_DECL_FOR(Result, CallStatic##Result##Method, ResultType);\
1575   DT_RETURN_MARK_DECL_FOR(Result, CallStatic##Result##MethodV, ResultType);\
1576   DT_RETURN_MARK_DECL_FOR(Result, CallStatic##Result##MethodA, ResultType);\
1577 \
1578 JNI_ENTRY(ResultType, \
1579           jni_CallStatic##Result##Method(JNIEnv *env, jclass cls, jmethodID methodID, ...)) \
1580   JNIWrapper("CallStatic" XSTR(Result) "Method"); \
1581 \
1582   DTRACE_PROBE3(hotspot_jni, CallStatic##Result##Method__entry, env, cls, methodID);\
1583   ResultType ret = 0;\
1584   DT_RETURN_MARK_FOR(Result, CallStatic##Result##Method, ResultType, \
1585                      (const ResultType&)ret);\
1586 \
1587   va_list args; \
1588   va_start(args, methodID); \
1589   JavaValue jvalue(Tag); \
1590   JNI_ArgumentPusherVaArg ap(THREAD, methodID, args); \
1591   jni_invoke_static(env, &jvalue, NULL, JNI_STATIC, methodID, &ap, CHECK_0); \
1592   va_end(args); \
1593   ret = jvalue.get_##ResultType(); \
1594   return ret;\
1595 JNI_END \
1596 \
1597 JNI_ENTRY(ResultType, \
1598           jni_CallStatic##Result##MethodV(JNIEnv *env, jclass cls, jmethodID methodID, va_list args)) \
1599   JNIWrapper("CallStatic" XSTR(Result) "MethodV"); \
1600   DTRACE_PROBE3(hotspot_jni, CallStatic##Result##MethodV__entry, env, cls, methodID);\
1601   ResultType ret = 0;\
1602   DT_RETURN_MARK_FOR(Result, CallStatic##Result##MethodV, ResultType, \
1603                      (const ResultType&)ret);\
1604 \
1605   JavaValue jvalue(Tag); \
1606   JNI_ArgumentPusherVaArg ap(THREAD, methodID, args); \
1607   jni_invoke_static(env, &jvalue, NULL, JNI_STATIC, methodID, &ap, CHECK_0); \
1608   ret = jvalue.get_##ResultType(); \
1609   return ret;\
1610 JNI_END \
1611 \
1612 JNI_ENTRY(ResultType, \
1613           jni_CallStatic##Result##MethodA(JNIEnv *env, jclass cls, jmethodID methodID, const jvalue *args)) \
1614   JNIWrapper("CallStatic" XSTR(Result) "MethodA"); \
1615   DTRACE_PROBE3(hotspot_jni, CallStatic##Result##MethodA__entry, env, cls, methodID);\
1616   ResultType ret = 0;\
1617   DT_RETURN_MARK_FOR(Result, CallStatic##Result##MethodA, ResultType, \
1618                      (const ResultType&)ret);\
1619 \
1620   JavaValue jvalue(Tag); \
1621   JNI_ArgumentPusherArray ap(THREAD, methodID, args); \
1622   jni_invoke_static(env, &jvalue, NULL, JNI_STATIC, methodID, &ap, CHECK_0); \
1623   ret = jvalue.get_##ResultType(); \
1624   return ret;\
1625 JNI_END
1626 
1627 // the runtime type of subword integral basic types is integer
1628 DEFINE_CALLSTATICMETHOD(jboolean, Boolean, T_BOOLEAN)
1629 DEFINE_CALLSTATICMETHOD(jbyte,    Byte,    T_BYTE)
1630 DEFINE_CALLSTATICMETHOD(jchar,    Char,    T_CHAR)
1631 DEFINE_CALLSTATICMETHOD(jshort,   Short,   T_SHORT)
1632 
1633 DEFINE_CALLSTATICMETHOD(jobject,  Object,  T_OBJECT)
1634 DEFINE_CALLSTATICMETHOD(jint,     Int,     T_INT)
1635 DEFINE_CALLSTATICMETHOD(jlong,    Long,    T_LONG)
1636 DEFINE_CALLSTATICMETHOD(jfloat,   Float,   T_FLOAT)
1637 DEFINE_CALLSTATICMETHOD(jdouble,  Double,  T_DOUBLE)
1638 
1639 
1640 DT_VOID_RETURN_MARK_DECL(CallStaticVoidMethod);
1641 DT_VOID_RETURN_MARK_DECL(CallStaticVoidMethodV);
1642 DT_VOID_RETURN_MARK_DECL(CallStaticVoidMethodA);
1643 
1644 JNI_ENTRY(void, jni_CallStaticVoidMethod(JNIEnv *env, jclass cls, jmethodID methodID, ...))
1645   JNIWrapper("CallStaticVoidMethod");
1646   DTRACE_PROBE3(hotspot_jni, CallStaticVoidMethod__entry, env, cls, methodID);
1647   DT_VOID_RETURN_MARK(CallStaticVoidMethod);
1648 
1649   va_list args;
1650   va_start(args, methodID);
1651   JavaValue jvalue(T_VOID);
1652   JNI_ArgumentPusherVaArg ap(THREAD, methodID, args);
1653   jni_invoke_static(env, &jvalue, NULL, JNI_STATIC, methodID, &ap, CHECK);
1654   va_end(args);
1655 JNI_END
1656 
1657 
1658 JNI_ENTRY(void, jni_CallStaticVoidMethodV(JNIEnv *env, jclass cls, jmethodID methodID, va_list args))
1659   JNIWrapper("CallStaticVoidMethodV");
1660   DTRACE_PROBE3(hotspot_jni, CallStaticVoidMethodV__entry, env, cls, methodID);
1661   DT_VOID_RETURN_MARK(CallStaticVoidMethodV);
1662 
1663   JavaValue jvalue(T_VOID);
1664   JNI_ArgumentPusherVaArg ap(THREAD, methodID, args);
1665   jni_invoke_static(env, &jvalue, NULL, JNI_STATIC, methodID, &ap, CHECK);
1666 JNI_END
1667 
1668 
1669 JNI_ENTRY(void, jni_CallStaticVoidMethodA(JNIEnv *env, jclass cls, jmethodID methodID, const jvalue *args))
1670   JNIWrapper("CallStaticVoidMethodA");
1671   DTRACE_PROBE3(hotspot_jni, CallStaticVoidMethodA__entry, env, cls, methodID);
1672   DT_VOID_RETURN_MARK(CallStaticVoidMethodA);
1673 
1674   JavaValue jvalue(T_VOID);
1675   JNI_ArgumentPusherArray ap(THREAD, methodID, args);
1676   jni_invoke_static(env, &jvalue, NULL, JNI_STATIC, methodID, &ap, CHECK);
1677 JNI_END
1678 
1679 
1680 //
1681 // Accessing Fields
1682 //
1683 
1684 
1685 DT_RETURN_MARK_DECL(GetFieldID, jfieldID);
1686 
1687 JNI_ENTRY(jfieldID, jni_GetFieldID(JNIEnv *env, jclass clazz,
1688           const char *name, const char *sig))
1689   JNIWrapper("GetFieldID");
1690   DTRACE_PROBE4(hotspot_jni, GetFieldID__entry, env, clazz, name, sig);
1691   jfieldID ret = 0;
1692   DT_RETURN_MARK(GetFieldID, jfieldID, (const jfieldID&)ret);
1693 
1694   // The class should have been loaded (we have an instance of the class
1695   // passed in) so the field and signature should already be in the symbol
1696   // table.  If they're not there, the field doesn't exist.
1697   symbolHandle fieldname =
1698             symbolHandle(THREAD, SymbolTable::probe(name, (int)strlen(name)));
1699   symbolHandle signame   =
1700             symbolHandle(THREAD, SymbolTable::probe(sig, (int)strlen(sig)));
1701   if (fieldname.is_null() || signame.is_null()) {
1702     THROW_MSG_0(vmSymbols::java_lang_NoSuchFieldError(), (char*) name);
1703   }
1704   KlassHandle k(THREAD,
1705                 java_lang_Class::as_klassOop(JNIHandles::resolve_non_null(clazz)));
1706   // Make sure class is initialized before handing id's out to fields
1707   Klass::cast(k())->initialize(CHECK_NULL);
1708 
1709   fieldDescriptor fd;
1710   if (!Klass::cast(k())->oop_is_instance() ||
1711       !instanceKlass::cast(k())->find_field(fieldname(), signame(), false, &fd)) {
1712     THROW_MSG_0(vmSymbols::java_lang_NoSuchFieldError(), (char*) name);
1713   }
1714 
1715   // A jfieldID for a non-static field is simply the offset of the field within the instanceOop
1716   // It may also have hash bits for k, if VerifyJNIFields is turned on.
1717   ret = jfieldIDWorkaround::to_instance_jfieldID(k(), fd.offset());
1718   return ret;
1719 JNI_END
1720 
1721 
1722 JNI_ENTRY(jobject, jni_GetObjectField(JNIEnv *env, jobject obj, jfieldID fieldID))
1723   JNIWrapper("GetObjectField");
1724   DTRACE_PROBE3(hotspot_jni, GetObjectField__entry, env, obj, fieldID);
1725   oop o = JNIHandles::resolve_non_null(obj);
1726   klassOop k = o->klass();
1727   int offset = jfieldIDWorkaround::from_instance_jfieldID(k, fieldID);
1728   // Keep JVMTI addition small and only check enabled flag here.
1729   // jni_GetField_probe() assumes that is okay to create handles.
1730   if (JvmtiExport::should_post_field_access()) {
1731     o = JvmtiExport::jni_GetField_probe(thread, obj, o, k, fieldID, false);
1732   }
1733   jobject ret = JNIHandles::make_local(env, o->obj_field(offset));
1734   DTRACE_PROBE1(hotspot_jni, GetObjectField__return, ret);
1735   return ret;
1736 JNI_END
1737 
1738 
1739 #define DEFINE_GETFIELD(Return,Fieldname,Result) \
1740 \
1741   DT_RETURN_MARK_DECL_FOR(Result, Get##Result##Field, Return);\
1742 \
1743 JNI_QUICK_ENTRY(Return, jni_Get##Result##Field(JNIEnv *env, jobject obj, jfieldID fieldID)) \
1744   JNIWrapper("Get" XSTR(Result) "Field"); \
1745 \
1746   DTRACE_PROBE3(hotspot_jni, Get##Result##Field__entry, env, obj, fieldID);\
1747   Return ret = 0;\
1748   DT_RETURN_MARK_FOR(Result, Get##Result##Field, Return, (const Return&)ret);\
1749 \
1750   oop o = JNIHandles::resolve_non_null(obj); \
1751   klassOop k = o->klass(); \
1752   int offset = jfieldIDWorkaround::from_instance_jfieldID(k, fieldID);  \
1753   /* Keep JVMTI addition small and only check enabled flag here.       */ \
1754   /* jni_GetField_probe_nh() assumes that is not okay to create handles */ \
1755   /* and creates a ResetNoHandleMark.                                   */ \
1756   if (JvmtiExport::should_post_field_access()) { \
1757     o = JvmtiExport::jni_GetField_probe_nh(thread, obj, o, k, fieldID, false); \
1758   } \
1759   ret = o->Fieldname##_field(offset); \
1760   return ret; \
1761 JNI_END
1762 
1763 DEFINE_GETFIELD(jboolean, bool,   Boolean)
1764 DEFINE_GETFIELD(jbyte,    byte,   Byte)
1765 DEFINE_GETFIELD(jchar,    char,   Char)
1766 DEFINE_GETFIELD(jshort,   short,  Short)
1767 DEFINE_GETFIELD(jint,     int,    Int)
1768 DEFINE_GETFIELD(jlong,    long,   Long)
1769 DEFINE_GETFIELD(jfloat,   float,  Float)
1770 DEFINE_GETFIELD(jdouble,  double, Double)
1771 
1772 address jni_GetBooleanField_addr() {
1773   return (address)jni_GetBooleanField;
1774 }
1775 address jni_GetByteField_addr() {
1776   return (address)jni_GetByteField;
1777 }
1778 address jni_GetCharField_addr() {
1779   return (address)jni_GetCharField;
1780 }
1781 address jni_GetShortField_addr() {
1782   return (address)jni_GetShortField;
1783 }
1784 address jni_GetIntField_addr() {
1785   return (address)jni_GetIntField;
1786 }
1787 address jni_GetLongField_addr() {
1788   return (address)jni_GetLongField;
1789 }
1790 address jni_GetFloatField_addr() {
1791   return (address)jni_GetFloatField;
1792 }
1793 address jni_GetDoubleField_addr() {
1794   return (address)jni_GetDoubleField;
1795 }
1796 
1797 JNI_QUICK_ENTRY(void, jni_SetObjectField(JNIEnv *env, jobject obj, jfieldID fieldID, jobject value))
1798   JNIWrapper("SetObjectField");
1799   DTRACE_PROBE4(hotspot_jni, SetObjectField__entry, env, obj, fieldID, value);
1800   oop o = JNIHandles::resolve_non_null(obj);
1801   klassOop k = o->klass();
1802   int offset = jfieldIDWorkaround::from_instance_jfieldID(k, fieldID);
1803   // Keep JVMTI addition small and only check enabled flag here.
1804   // jni_SetField_probe_nh() assumes that is not okay to create handles
1805   // and creates a ResetNoHandleMark.
1806   if (JvmtiExport::should_post_field_modification()) {
1807     jvalue field_value;
1808     field_value.l = value;
1809     o = JvmtiExport::jni_SetField_probe_nh(thread, obj, o, k, fieldID, false, 'L', (jvalue *)&field_value);
1810   }
1811   o->obj_field_put(offset, JNIHandles::resolve(value));
1812   DTRACE_PROBE(hotspot_jni, SetObjectField__return);
1813 JNI_END
1814 
1815 #define DEFINE_SETFIELD(Argument,Fieldname,Result,SigType,unionType) \
1816 \
1817 JNI_QUICK_ENTRY(void, jni_Set##Result##Field(JNIEnv *env, jobject obj, jfieldID fieldID, Argument value)) \
1818   JNIWrapper("Set" XSTR(Result) "Field"); \
1819 \
1820   HS_DTRACE_PROBE_CDECL_N(hotspot_jni, Set##Result##Field__entry, \
1821     ( JNIEnv*, jobject, jfieldID FP_SELECT_##Result(COMMA Argument,/*empty*/) ) ); \
1822   HS_DTRACE_PROBE_N(hotspot_jni, Set##Result##Field__entry, \
1823     ( env, obj, fieldID FP_SELECT_##Result(COMMA value,/*empty*/) ) ); \
1824 \
1825   oop o = JNIHandles::resolve_non_null(obj); \
1826   klassOop k = o->klass(); \
1827   int offset = jfieldIDWorkaround::from_instance_jfieldID(k, fieldID);  \
1828   /* Keep JVMTI addition small and only check enabled flag here.       */ \
1829   /* jni_SetField_probe_nh() assumes that is not okay to create handles */ \
1830   /* and creates a ResetNoHandleMark.                                   */ \
1831   if (JvmtiExport::should_post_field_modification()) { \
1832     jvalue field_value; \
1833     field_value.unionType = value; \
1834     o = JvmtiExport::jni_SetField_probe_nh(thread, obj, o, k, fieldID, false, SigType, (jvalue *)&field_value); \
1835   } \
1836   o->Fieldname##_field_put(offset, value); \
1837   DTRACE_PROBE(hotspot_jni, Set##Result##Field__return);\
1838 JNI_END
1839 
1840 DEFINE_SETFIELD(jboolean, bool,   Boolean, 'Z', z)
1841 DEFINE_SETFIELD(jbyte,    byte,   Byte,    'B', b)
1842 DEFINE_SETFIELD(jchar,    char,   Char,    'C', c)
1843 DEFINE_SETFIELD(jshort,   short,  Short,   'S', s)
1844 DEFINE_SETFIELD(jint,     int,    Int,     'I', i)
1845 DEFINE_SETFIELD(jlong,    long,   Long,    'J', j)
1846 DEFINE_SETFIELD(jfloat,   float,  Float,   'F', f)
1847 DEFINE_SETFIELD(jdouble,  double, Double,  'D', d)
1848 
1849 DT_RETURN_MARK_DECL(ToReflectedField, jobject);
1850 
1851 JNI_ENTRY(jobject, jni_ToReflectedField(JNIEnv *env, jclass cls, jfieldID fieldID, jboolean isStatic))
1852   JNIWrapper("ToReflectedField");
1853   DTRACE_PROBE4(hotspot_jni, ToReflectedField__entry,
1854                 env, cls, fieldID, isStatic);
1855   jobject ret = NULL;
1856   DT_RETURN_MARK(ToReflectedField, jobject, (const jobject&)ret);
1857 
1858   fieldDescriptor fd;
1859   bool found = false;
1860   klassOop k = java_lang_Class::as_klassOop(JNIHandles::resolve_non_null(cls));
1861 
1862   assert(jfieldIDWorkaround::is_static_jfieldID(fieldID) == (isStatic != 0), "invalid fieldID");
1863 
1864   if (isStatic) {
1865     // Static field. The fieldID a JNIid specifying the field holder and the offset within the klassOop.
1866     JNIid* id = jfieldIDWorkaround::from_static_jfieldID(fieldID);
1867     assert(id->is_static_field_id(), "invalid static field id");
1868     found = instanceKlass::cast(id->holder())->find_local_field_from_offset(id->offset(), true, &fd);
1869   } else {
1870     // Non-static field. The fieldID is really the offset of the field within the instanceOop.
1871     int offset = jfieldIDWorkaround::from_instance_jfieldID(k, fieldID);
1872     found = instanceKlass::cast(k)->find_field_from_offset(offset, false, &fd);
1873   }
1874   assert(found, "bad fieldID passed into jni_ToReflectedField");
1875   oop reflected = Reflection::new_field(&fd, UseNewReflection, CHECK_NULL);
1876   ret = JNIHandles::make_local(env, reflected);
1877   return ret;
1878 JNI_END
1879 
1880 
1881 //
1882 // Accessing Static Fields
1883 //
1884 DT_RETURN_MARK_DECL(GetStaticFieldID, jfieldID);
1885 
1886 JNI_ENTRY(jfieldID, jni_GetStaticFieldID(JNIEnv *env, jclass clazz,
1887           const char *name, const char *sig))
1888   JNIWrapper("GetStaticFieldID");
1889   DTRACE_PROBE4(hotspot_jni, GetStaticFieldID__entry, env, clazz, name, sig);
1890   jfieldID ret = NULL;
1891   DT_RETURN_MARK(GetStaticFieldID, jfieldID, (const jfieldID&)ret);
1892 
1893   // The class should have been loaded (we have an instance of the class
1894   // passed in) so the field and signature should already be in the symbol
1895   // table.  If they're not there, the field doesn't exist.
1896   symbolHandle fieldname =
1897            symbolHandle(THREAD, SymbolTable::probe(name, (int)strlen(name)));
1898   symbolHandle signame   =
1899            symbolHandle(THREAD, SymbolTable::probe(sig, (int)strlen(sig)));
1900   if (fieldname.is_null() || signame.is_null()) {
1901     THROW_MSG_0(vmSymbols::java_lang_NoSuchFieldError(), (char*) name);
1902   }
1903   KlassHandle k(THREAD,
1904                 java_lang_Class::as_klassOop(JNIHandles::resolve_non_null(clazz)));
1905   // Make sure class is initialized before handing id's out to static fields
1906   Klass::cast(k())->initialize(CHECK_NULL);
1907 
1908   fieldDescriptor fd;
1909   if (!Klass::cast(k())->oop_is_instance() ||
1910       !instanceKlass::cast(k())->find_field(fieldname(), signame(), true, &fd)) {
1911     THROW_MSG_0(vmSymbols::java_lang_NoSuchFieldError(), (char*) name);
1912   }
1913 
1914   // A jfieldID for a static field is a JNIid specifying the field holder and the offset within the klassOop
1915   JNIid* id = instanceKlass::cast(fd.field_holder())->jni_id_for(fd.offset());
1916   debug_only(id->set_is_static_field_id();)
1917 
1918   debug_only(int first_offset = instanceKlass::cast(fd.field_holder())->offset_of_static_fields();)
1919   debug_only(int end_offset = first_offset + (instanceKlass::cast(fd.field_holder())->static_field_size() * wordSize);)
1920   assert(id->offset() >= first_offset && id->offset() < end_offset, "invalid static field offset");
1921 
1922   ret = jfieldIDWorkaround::to_static_jfieldID(id);
1923   return ret;
1924 JNI_END
1925 
1926 
1927 JNI_ENTRY(jobject, jni_GetStaticObjectField(JNIEnv *env, jclass clazz, jfieldID fieldID))
1928   JNIWrapper("GetStaticObjectField");
1929   DTRACE_PROBE3(hotspot_jni, GetStaticObjectField__entry, env, clazz, fieldID);
1930 #ifndef JNICHECK_KERNEL
1931   DEBUG_ONLY(klassOop param_k = jniCheck::validate_class(thread, clazz);)
1932 #endif // JNICHECK_KERNEL
1933   JNIid* id = jfieldIDWorkaround::from_static_jfieldID(fieldID);
1934   assert(id->is_static_field_id(), "invalid static field id");
1935   // Keep JVMTI addition small and only check enabled flag here.
1936   // jni_GetField_probe() assumes that is okay to create handles.
1937   if (JvmtiExport::should_post_field_access()) {
1938     JvmtiExport::jni_GetField_probe(thread, NULL, NULL, id->holder(), fieldID, true);
1939   }
1940   jobject ret = JNIHandles::make_local(id->holder()->obj_field(id->offset()));
1941   DTRACE_PROBE1(hotspot_jni, GetStaticObjectField__return, ret);
1942   return ret;
1943 JNI_END
1944 
1945 #define DEFINE_GETSTATICFIELD(Return,Fieldname,Result) \
1946 \
1947   DT_RETURN_MARK_DECL_FOR(Result, GetStatic##Result##Field, Return);\
1948 \
1949 JNI_ENTRY(Return, jni_GetStatic##Result##Field(JNIEnv *env, jclass clazz, jfieldID fieldID)) \
1950   JNIWrapper("GetStatic" XSTR(Result) "Field"); \
1951   DTRACE_PROBE3(hotspot_jni, GetStatic##Result##Field__entry, env, clazz, fieldID);\
1952   Return ret = 0;\
1953   DT_RETURN_MARK_FOR(Result, GetStatic##Result##Field, Return, \
1954                      (const Return&)ret);\
1955   JNIid* id = jfieldIDWorkaround::from_static_jfieldID(fieldID); \
1956   assert(id->is_static_field_id(), "invalid static field id"); \
1957   /* Keep JVMTI addition small and only check enabled flag here. */ \
1958   /* jni_GetField_probe() assumes that is okay to create handles. */ \
1959   if (JvmtiExport::should_post_field_access()) { \
1960     JvmtiExport::jni_GetField_probe(thread, NULL, NULL, id->holder(), fieldID, true); \
1961   } \
1962   ret = id->holder()-> Fieldname##_field (id->offset()); \
1963   return ret;\
1964 JNI_END
1965 
1966 DEFINE_GETSTATICFIELD(jboolean, bool,   Boolean)
1967 DEFINE_GETSTATICFIELD(jbyte,    byte,   Byte)
1968 DEFINE_GETSTATICFIELD(jchar,    char,   Char)
1969 DEFINE_GETSTATICFIELD(jshort,   short,  Short)
1970 DEFINE_GETSTATICFIELD(jint,     int,    Int)
1971 DEFINE_GETSTATICFIELD(jlong,    long,   Long)
1972 DEFINE_GETSTATICFIELD(jfloat,   float,  Float)
1973 DEFINE_GETSTATICFIELD(jdouble,  double, Double)
1974 
1975 
1976 JNI_ENTRY(void, jni_SetStaticObjectField(JNIEnv *env, jclass clazz, jfieldID fieldID, jobject value))
1977   JNIWrapper("SetStaticObjectField");
1978   DTRACE_PROBE4(hotspot_jni, SetStaticObjectField__entry, env, clazz, fieldID, value);
1979   JNIid* id = jfieldIDWorkaround::from_static_jfieldID(fieldID);
1980   assert(id->is_static_field_id(), "invalid static field id");
1981   // Keep JVMTI addition small and only check enabled flag here.
1982   // jni_SetField_probe() assumes that is okay to create handles.
1983   if (JvmtiExport::should_post_field_modification()) {
1984     jvalue field_value;
1985     field_value.l = value;
1986     JvmtiExport::jni_SetField_probe(thread, NULL, NULL, id->holder(), fieldID, true, 'L', (jvalue *)&field_value);
1987   }
1988   id->holder()->obj_field_put(id->offset(), JNIHandles::resolve(value));
1989   DTRACE_PROBE(hotspot_jni, SetStaticObjectField__return);
1990 JNI_END
1991 
1992 
1993 #define DEFINE_SETSTATICFIELD(Argument,Fieldname,Result,SigType,unionType) \
1994 \
1995 JNI_ENTRY(void, jni_SetStatic##Result##Field(JNIEnv *env, jclass clazz, jfieldID fieldID, Argument value)) \
1996   JNIWrapper("SetStatic" XSTR(Result) "Field"); \
1997   HS_DTRACE_PROBE_CDECL_N(hotspot_jni, SetStatic##Result##Field__entry,\
1998     ( JNIEnv*, jclass, jfieldID FP_SELECT_##Result(COMMA Argument,/*empty*/) ) ); \
1999   HS_DTRACE_PROBE_N(hotspot_jni, SetStatic##Result##Field__entry, \
2000     ( env, clazz, fieldID FP_SELECT_##Result(COMMA value,/*empty*/) ) ); \
2001 \
2002   JNIid* id = jfieldIDWorkaround::from_static_jfieldID(fieldID); \
2003   assert(id->is_static_field_id(), "invalid static field id"); \
2004   /* Keep JVMTI addition small and only check enabled flag here. */ \
2005   /* jni_SetField_probe() assumes that is okay to create handles. */ \
2006   if (JvmtiExport::should_post_field_modification()) { \
2007     jvalue field_value; \
2008     field_value.unionType = value; \
2009     JvmtiExport::jni_SetField_probe(thread, NULL, NULL, id->holder(), fieldID, true, SigType, (jvalue *)&field_value); \
2010   } \
2011   id->holder()-> Fieldname##_field_put (id->offset(), value); \
2012   DTRACE_PROBE(hotspot_jni, SetStatic##Result##Field__return);\
2013 JNI_END
2014 
2015 DEFINE_SETSTATICFIELD(jboolean, bool,   Boolean, 'Z', z)
2016 DEFINE_SETSTATICFIELD(jbyte,    byte,   Byte,    'B', b)
2017 DEFINE_SETSTATICFIELD(jchar,    char,   Char,    'C', c)
2018 DEFINE_SETSTATICFIELD(jshort,   short,  Short,   'S', s)
2019 DEFINE_SETSTATICFIELD(jint,     int,    Int,     'I', i)
2020 DEFINE_SETSTATICFIELD(jlong,    long,   Long,    'J', j)
2021 DEFINE_SETSTATICFIELD(jfloat,   float,  Float,   'F', f)
2022 DEFINE_SETSTATICFIELD(jdouble,  double, Double,  'D', d)
2023 
2024 
2025 //
2026 // String Operations
2027 //
2028 
2029 // Unicode Interface
2030 
2031 DT_RETURN_MARK_DECL(NewString, jstring);
2032 
2033 JNI_ENTRY(jstring, jni_NewString(JNIEnv *env, const jchar *unicodeChars, jsize len))
2034   JNIWrapper("NewString");
2035   DTRACE_PROBE3(hotspot_jni, NewString__entry, env, unicodeChars, len);
2036   jstring ret = NULL;
2037   DT_RETURN_MARK(NewString, jstring, (const jstring&)ret);
2038   oop string=java_lang_String::create_oop_from_unicode((jchar*) unicodeChars, len, CHECK_NULL);
2039   ret = (jstring) JNIHandles::make_local(env, string);
2040   return ret;
2041 JNI_END
2042 
2043 
2044 JNI_QUICK_ENTRY(jsize, jni_GetStringLength(JNIEnv *env, jstring string))
2045   JNIWrapper("GetStringLength");
2046   DTRACE_PROBE2(hotspot_jni, GetStringLength__entry, env, string);
2047   jsize ret = java_lang_String::length(JNIHandles::resolve_non_null(string));
2048   DTRACE_PROBE1(hotspot_jni, GetStringLength__return, ret);
2049   return ret;
2050 JNI_END
2051 
2052 
2053 JNI_QUICK_ENTRY(const jchar*, jni_GetStringChars(
2054   JNIEnv *env, jstring string, jboolean *isCopy))
2055   JNIWrapper("GetStringChars");
2056   DTRACE_PROBE3(hotspot_jni, GetStringChars__entry, env, string, isCopy);
2057   //%note jni_5
2058   if (isCopy != NULL) {
2059     *isCopy = JNI_TRUE;
2060   }
2061   oop s = JNIHandles::resolve_non_null(string);
2062   int s_len = java_lang_String::length(s);
2063   typeArrayOop s_value = java_lang_String::value(s);
2064   int s_offset = java_lang_String::offset(s);
2065   jchar* buf = NEW_C_HEAP_ARRAY(jchar, s_len + 1);  // add one for zero termination
2066   if (s_len > 0) {
2067     memcpy(buf, s_value->char_at_addr(s_offset), sizeof(jchar)*s_len);
2068   }
2069   buf[s_len] = 0;
2070   DTRACE_PROBE1(hotspot_jni, GetStringChars__return, buf);
2071   return buf;
2072 JNI_END
2073 
2074 
2075 JNI_QUICK_ENTRY(void, jni_ReleaseStringChars(JNIEnv *env, jstring str, const jchar *chars))
2076   JNIWrapper("ReleaseStringChars");
2077   DTRACE_PROBE3(hotspot_jni, ReleaseStringChars__entry, env, str, chars);
2078   //%note jni_6
2079   if (chars != NULL) {
2080     // Since String objects are supposed to be immutable, don't copy any
2081     // new data back.  A bad user will have to go after the char array.
2082     FreeHeap((void*) chars);
2083   }
2084   DTRACE_PROBE(hotspot_jni, ReleaseStringChars__return);
2085 JNI_END
2086 
2087 
2088 // UTF Interface
2089 
2090 DT_RETURN_MARK_DECL(NewStringUTF, jstring);
2091 
2092 JNI_ENTRY(jstring, jni_NewStringUTF(JNIEnv *env, const char *bytes))
2093   JNIWrapper("NewStringUTF");
2094   DTRACE_PROBE2(hotspot_jni, NewStringUTF__entry, env, bytes);
2095   jstring ret;
2096   DT_RETURN_MARK(NewStringUTF, jstring, (const jstring&)ret);
2097 
2098   oop result = java_lang_String::create_oop_from_str((char*) bytes, CHECK_NULL);
2099   ret = (jstring) JNIHandles::make_local(env, result);
2100   return ret;
2101 JNI_END
2102 
2103 
2104 JNI_ENTRY(jsize, jni_GetStringUTFLength(JNIEnv *env, jstring string))
2105   JNIWrapper("GetStringUTFLength");
2106   DTRACE_PROBE2(hotspot_jni, GetStringUTFLength__entry, env, string);
2107   jsize ret = java_lang_String::utf8_length(JNIHandles::resolve_non_null(string));
2108   DTRACE_PROBE1(hotspot_jni, GetStringUTFLength__return, ret);
2109   return ret;
2110 JNI_END
2111 
2112 
2113 JNI_ENTRY(const char*, jni_GetStringUTFChars(JNIEnv *env, jstring string, jboolean *isCopy))
2114   JNIWrapper("GetStringUTFChars");
2115   DTRACE_PROBE3(hotspot_jni, GetStringUTFChars__entry, env, string, isCopy);
2116   ResourceMark rm;
2117   char* str = java_lang_String::as_utf8_string(JNIHandles::resolve_non_null(string));
2118   int length = (int)strlen(str);
2119   char* result = AllocateHeap(length+1, "GetStringUTFChars");
2120   strcpy(result, str);
2121   if (isCopy != NULL) *isCopy = JNI_TRUE;
2122   DTRACE_PROBE1(hotspot_jni, GetStringUTFChars__return, result);
2123   return result;
2124 JNI_END
2125 
2126 
2127 JNI_LEAF(void, jni_ReleaseStringUTFChars(JNIEnv *env, jstring str, const char *chars))
2128   JNIWrapper("ReleaseStringUTFChars");
2129   DTRACE_PROBE3(hotspot_jni, ReleaseStringUTFChars__entry, env, str, chars);
2130   if (chars != NULL) {
2131     FreeHeap((char*) chars);
2132   }
2133   DTRACE_PROBE(hotspot_jni, ReleaseStringUTFChars__return);
2134 JNI_END
2135 
2136 
2137 JNI_QUICK_ENTRY(jsize, jni_GetArrayLength(JNIEnv *env, jarray array))
2138   JNIWrapper("GetArrayLength");
2139   DTRACE_PROBE2(hotspot_jni, GetArrayLength__entry, env, array);
2140   arrayOop a = arrayOop(JNIHandles::resolve_non_null(array));
2141   assert(a->is_array(), "must be array");
2142   jsize ret = a->length();
2143   DTRACE_PROBE1(hotspot_jni, GetArrayLength__return, ret);
2144   return ret;
2145 JNI_END
2146 
2147 
2148 //
2149 // Object Array Operations
2150 //
2151 
2152 DT_RETURN_MARK_DECL(NewObjectArray, jobjectArray);
2153 
2154 JNI_ENTRY(jobjectArray, jni_NewObjectArray(JNIEnv *env, jsize length, jclass elementClass, jobject initialElement))
2155   JNIWrapper("NewObjectArray");
2156   DTRACE_PROBE4(hotspot_jni, NewObjectArray__entry, env, length, elementClass, initialElement);
2157   jobjectArray ret = NULL;
2158   DT_RETURN_MARK(NewObjectArray, jobjectArray, (const jobjectArray&)ret);
2159   KlassHandle ek(THREAD, java_lang_Class::as_klassOop(JNIHandles::resolve_non_null(elementClass)));
2160   klassOop ako = Klass::cast(ek())->array_klass(CHECK_NULL);
2161   KlassHandle ak = KlassHandle(THREAD, ako);
2162   objArrayKlass::cast(ak())->initialize(CHECK_NULL);
2163   objArrayOop result = objArrayKlass::cast(ak())->allocate(length, CHECK_NULL);
2164   oop initial_value = JNIHandles::resolve(initialElement);
2165   if (initial_value != NULL) {  // array already initialized with NULL
2166     for (int index = 0; index < length; index++) {
2167       result->obj_at_put(index, initial_value);
2168     }
2169   }
2170   ret = (jobjectArray) JNIHandles::make_local(env, result);
2171   return ret;
2172 JNI_END
2173 
2174 DT_RETURN_MARK_DECL(GetObjectArrayElement, jobject);
2175 
2176 JNI_ENTRY(jobject, jni_GetObjectArrayElement(JNIEnv *env, jobjectArray array, jsize index))
2177   JNIWrapper("GetObjectArrayElement");
2178   DTRACE_PROBE3(hotspot_jni, GetObjectArrayElement__entry, env, array, index);
2179   jobject ret = NULL;
2180   DT_RETURN_MARK(GetObjectArrayElement, jobject, (const jobject&)ret);
2181   objArrayOop a = objArrayOop(JNIHandles::resolve_non_null(array));
2182   if (a->is_within_bounds(index)) {
2183     ret = JNIHandles::make_local(env, a->obj_at(index));
2184     return ret;
2185   } else {
2186     char buf[jintAsStringSize];
2187     sprintf(buf, "%d", index);
2188     THROW_MSG_0(vmSymbols::java_lang_ArrayIndexOutOfBoundsException(), buf);
2189   }
2190 JNI_END
2191 
2192 DT_VOID_RETURN_MARK_DECL(SetObjectArrayElement);
2193 
2194 JNI_ENTRY(void, jni_SetObjectArrayElement(JNIEnv *env, jobjectArray array, jsize index, jobject value))
2195   JNIWrapper("SetObjectArrayElement");
2196   DTRACE_PROBE4(hotspot_jni, SetObjectArrayElement__entry, env, array, index, value);
2197   DT_VOID_RETURN_MARK(SetObjectArrayElement);
2198 
2199   objArrayOop a = objArrayOop(JNIHandles::resolve_non_null(array));
2200   oop v = JNIHandles::resolve(value);
2201   if (a->is_within_bounds(index)) {
2202     if (v == NULL || v->is_a(objArrayKlass::cast(a->klass())->element_klass())) {
2203       a->obj_at_put(index, v);
2204     } else {
2205       THROW(vmSymbols::java_lang_ArrayStoreException());
2206     }
2207   } else {
2208     char buf[jintAsStringSize];
2209     sprintf(buf, "%d", index);
2210     THROW_MSG(vmSymbols::java_lang_ArrayIndexOutOfBoundsException(), buf);
2211   }
2212 JNI_END
2213 
2214 
2215 #define DEFINE_NEWSCALARARRAY(Return,Allocator,Result) \
2216 \
2217   DT_RETURN_MARK_DECL(New##Result##Array, Return);\
2218 \
2219 JNI_ENTRY(Return, \
2220           jni_New##Result##Array(JNIEnv *env, jsize len)) \
2221   JNIWrapper("New" XSTR(Result) "Array"); \
2222   DTRACE_PROBE2(hotspot_jni, New##Result##Array__entry, env, len);\
2223   Return ret = NULL;\
2224   DT_RETURN_MARK(New##Result##Array, Return, (const Return&)ret);\
2225 \
2226   oop obj= oopFactory::Allocator(len, CHECK_0); \
2227   ret = (Return) JNIHandles::make_local(env, obj); \
2228   return ret;\
2229 JNI_END
2230 
2231 DEFINE_NEWSCALARARRAY(jbooleanArray, new_boolArray,   Boolean)
2232 DEFINE_NEWSCALARARRAY(jbyteArray,    new_byteArray,   Byte)
2233 DEFINE_NEWSCALARARRAY(jshortArray,   new_shortArray,  Short)
2234 DEFINE_NEWSCALARARRAY(jcharArray,    new_charArray,   Char)
2235 DEFINE_NEWSCALARARRAY(jintArray,     new_intArray,    Int)
2236 DEFINE_NEWSCALARARRAY(jlongArray,    new_longArray,   Long)
2237 DEFINE_NEWSCALARARRAY(jfloatArray,   new_singleArray, Float)
2238 DEFINE_NEWSCALARARRAY(jdoubleArray,  new_doubleArray, Double)
2239 
2240 
2241 // Return an address which will fault if the caller writes to it.
2242 
2243 static char* get_bad_address() {
2244   static char* bad_address = NULL;
2245   if (bad_address == NULL) {
2246     size_t size = os::vm_allocation_granularity();
2247     bad_address = os::reserve_memory(size);
2248     if (bad_address != NULL) {
2249       os::protect_memory(bad_address, size, os::MEM_PROT_READ,
2250                          /*is_committed*/false);
2251     }
2252   }
2253   return bad_address;
2254 }
2255 
2256 
2257 #define DEFINE_GETSCALARARRAYELEMENTS(ElementTag,ElementType,Result, Tag) \
2258 \
2259 JNI_QUICK_ENTRY(ElementType*, \
2260           jni_Get##Result##ArrayElements(JNIEnv *env, ElementType##Array array, jboolean *isCopy)) \
2261   JNIWrapper("Get" XSTR(Result) "ArrayElements"); \
2262   DTRACE_PROBE3(hotspot_jni, Get##Result##ArrayElements__entry, env, array, isCopy);\
2263   /* allocate an chunk of memory in c land */ \
2264   typeArrayOop a = typeArrayOop(JNIHandles::resolve_non_null(array)); \
2265   ElementType* result; \
2266   int len = a->length(); \
2267   if (len == 0) { \
2268     /* Empty array: legal but useless, can't return NULL. \
2269      * Return a pointer to something useless. \
2270      * Avoid asserts in typeArrayOop. */ \
2271     result = (ElementType*)get_bad_address(); \
2272   } else { \
2273     result = NEW_C_HEAP_ARRAY(ElementType, len); \
2274     /* copy the array to the c chunk */ \
2275     memcpy(result, a->Tag##_at_addr(0), sizeof(ElementType)*len); \
2276   } \
2277   if (isCopy) *isCopy = JNI_TRUE; \
2278   DTRACE_PROBE1(hotspot_jni, Get##Result##ArrayElements__return, result);\
2279   return result; \
2280 JNI_END
2281 
2282 DEFINE_GETSCALARARRAYELEMENTS(T_BOOLEAN, jboolean, Boolean, bool)
2283 DEFINE_GETSCALARARRAYELEMENTS(T_BYTE,    jbyte,    Byte,    byte)
2284 DEFINE_GETSCALARARRAYELEMENTS(T_SHORT,   jshort,   Short,   short)
2285 DEFINE_GETSCALARARRAYELEMENTS(T_CHAR,    jchar,    Char,    char)
2286 DEFINE_GETSCALARARRAYELEMENTS(T_INT,     jint,     Int,     int)
2287 DEFINE_GETSCALARARRAYELEMENTS(T_LONG,    jlong,    Long,    long)
2288 DEFINE_GETSCALARARRAYELEMENTS(T_FLOAT,   jfloat,   Float,   float)
2289 DEFINE_GETSCALARARRAYELEMENTS(T_DOUBLE,  jdouble,  Double,  double)
2290 
2291 
2292 #define DEFINE_RELEASESCALARARRAYELEMENTS(ElementTag,ElementType,Result,Tag) \
2293 \
2294 JNI_QUICK_ENTRY(void, \
2295           jni_Release##Result##ArrayElements(JNIEnv *env, ElementType##Array array, \
2296                                              ElementType *buf, jint mode)) \
2297   JNIWrapper("Release" XSTR(Result) "ArrayElements"); \
2298   DTRACE_PROBE4(hotspot_jni, Release##Result##ArrayElements__entry, env, array, buf, mode);\
2299   typeArrayOop a = typeArrayOop(JNIHandles::resolve_non_null(array)); \
2300   int len = a->length(); \
2301   if (len != 0) {   /* Empty array:  nothing to free or copy. */  \
2302     if ((mode == 0) || (mode == JNI_COMMIT)) { \
2303       memcpy(a->Tag##_at_addr(0), buf, sizeof(ElementType)*len); \
2304     } \
2305     if ((mode == 0) || (mode == JNI_ABORT)) { \
2306       FreeHeap(buf); \
2307     } \
2308   } \
2309   DTRACE_PROBE(hotspot_jni, Release##Result##ArrayElements__return);\
2310 JNI_END
2311 
2312 DEFINE_RELEASESCALARARRAYELEMENTS(T_BOOLEAN, jboolean, Boolean, bool)
2313 DEFINE_RELEASESCALARARRAYELEMENTS(T_BYTE,    jbyte,    Byte,    byte)
2314 DEFINE_RELEASESCALARARRAYELEMENTS(T_SHORT,   jshort,   Short,   short)
2315 DEFINE_RELEASESCALARARRAYELEMENTS(T_CHAR,    jchar,    Char,    char)
2316 DEFINE_RELEASESCALARARRAYELEMENTS(T_INT,     jint,     Int,     int)
2317 DEFINE_RELEASESCALARARRAYELEMENTS(T_LONG,    jlong,    Long,    long)
2318 DEFINE_RELEASESCALARARRAYELEMENTS(T_FLOAT,   jfloat,   Float,   float)
2319 DEFINE_RELEASESCALARARRAYELEMENTS(T_DOUBLE,  jdouble,  Double,  double)
2320 
2321 #define DEFINE_GETSCALARARRAYREGION(ElementTag,ElementType,Result, Tag) \
2322   DT_VOID_RETURN_MARK_DECL(Get##Result##ArrayRegion);\
2323 \
2324 JNI_ENTRY(void, \
2325 jni_Get##Result##ArrayRegion(JNIEnv *env, ElementType##Array array, jsize start, \
2326              jsize len, ElementType *buf)) \
2327   JNIWrapper("Get" XSTR(Result) "ArrayRegion"); \
2328   DTRACE_PROBE5(hotspot_jni, Get##Result##ArrayRegion__entry, env, array, start, len, buf);\
2329   DT_VOID_RETURN_MARK(Get##Result##ArrayRegion); \
2330   typeArrayOop src = typeArrayOop(JNIHandles::resolve_non_null(array)); \
2331   if (start < 0 || len < 0 || ((unsigned int)start + (unsigned int)len > (unsigned int)src->length())) { \
2332     THROW(vmSymbols::java_lang_ArrayIndexOutOfBoundsException()); \
2333   } else { \
2334     if (len > 0) { \
2335       int sc = typeArrayKlass::cast(src->klass())->log2_element_size(); \
2336       memcpy((u_char*) buf, \
2337              (u_char*) src->Tag##_at_addr(start), \
2338              len << sc);                          \
2339     } \
2340   } \
2341 JNI_END
2342 
2343 DEFINE_GETSCALARARRAYREGION(T_BOOLEAN, jboolean,Boolean, bool)
2344 DEFINE_GETSCALARARRAYREGION(T_BYTE,    jbyte,   Byte,    byte)
2345 DEFINE_GETSCALARARRAYREGION(T_SHORT,   jshort,  Short,   short)
2346 DEFINE_GETSCALARARRAYREGION(T_CHAR,    jchar,   Char,    char)
2347 DEFINE_GETSCALARARRAYREGION(T_INT,     jint,    Int,     int)
2348 DEFINE_GETSCALARARRAYREGION(T_LONG,    jlong,   Long,    long)
2349 DEFINE_GETSCALARARRAYREGION(T_FLOAT,   jfloat,  Float,   float)
2350 DEFINE_GETSCALARARRAYREGION(T_DOUBLE,  jdouble, Double,  double)
2351 
2352 #define DEFINE_SETSCALARARRAYREGION(ElementTag,ElementType,Result, Tag) \
2353   DT_VOID_RETURN_MARK_DECL(Set##Result##ArrayRegion);\
2354 \
2355 JNI_ENTRY(void, \
2356 jni_Set##Result##ArrayRegion(JNIEnv *env, ElementType##Array array, jsize start, \
2357              jsize len, const ElementType *buf)) \
2358   JNIWrapper("Set" XSTR(Result) "ArrayRegion"); \
2359   DTRACE_PROBE5(hotspot_jni, Set##Result##ArrayRegion__entry, env, array, start, len, buf);\
2360   DT_VOID_RETURN_MARK(Set##Result##ArrayRegion); \
2361   typeArrayOop dst = typeArrayOop(JNIHandles::resolve_non_null(array)); \
2362   if (start < 0 || len < 0 || ((unsigned int)start + (unsigned int)len > (unsigned int)dst->length())) { \
2363     THROW(vmSymbols::java_lang_ArrayIndexOutOfBoundsException()); \
2364   } else { \
2365     if (len > 0) { \
2366       int sc = typeArrayKlass::cast(dst->klass())->log2_element_size(); \
2367       memcpy((u_char*) dst->Tag##_at_addr(start), \
2368              (u_char*) buf, \
2369              len << sc);    \
2370     } \
2371   } \
2372 JNI_END
2373 
2374 DEFINE_SETSCALARARRAYREGION(T_BOOLEAN, jboolean, Boolean, bool)
2375 DEFINE_SETSCALARARRAYREGION(T_BYTE,    jbyte,    Byte,    byte)
2376 DEFINE_SETSCALARARRAYREGION(T_SHORT,   jshort,   Short,   short)
2377 DEFINE_SETSCALARARRAYREGION(T_CHAR,    jchar,    Char,    char)
2378 DEFINE_SETSCALARARRAYREGION(T_INT,     jint,     Int,     int)
2379 DEFINE_SETSCALARARRAYREGION(T_LONG,    jlong,    Long,    long)
2380 DEFINE_SETSCALARARRAYREGION(T_FLOAT,   jfloat,   Float,   float)
2381 DEFINE_SETSCALARARRAYREGION(T_DOUBLE,  jdouble,  Double,  double)
2382 
2383 
2384 //
2385 // Interception of natives
2386 //
2387 
2388 // The RegisterNatives call being attempted tried to register with a method that
2389 // is not native.  Ask JVM TI what prefixes have been specified.  Then check
2390 // to see if the native method is now wrapped with the prefixes.  See the
2391 // SetNativeMethodPrefix(es) functions in the JVM TI Spec for details.
2392 static methodOop find_prefixed_native(KlassHandle k,
2393                                       symbolHandle name, symbolHandle signature, TRAPS) {
2394   ResourceMark rm(THREAD);
2395   methodOop method;
2396   int name_len = name->utf8_length();
2397   char* name_str = name->as_utf8();
2398   int prefix_count;
2399   char** prefixes = JvmtiExport::get_all_native_method_prefixes(&prefix_count);
2400   for (int i = 0; i < prefix_count; i++) {
2401     char* prefix = prefixes[i];
2402     int prefix_len = (int)strlen(prefix);
2403 
2404     // try adding this prefix to the method name and see if it matches another method name
2405     int trial_len = name_len + prefix_len;
2406     char* trial_name_str = NEW_RESOURCE_ARRAY(char, trial_len + 1);
2407     strcpy(trial_name_str, prefix);
2408     strcat(trial_name_str, name_str);
2409     symbolHandle trial_name(THREAD, SymbolTable::probe(trial_name_str, trial_len));
2410     if (trial_name.is_null()) {
2411       continue; // no such symbol, so this prefix wasn't used, try the next prefix
2412     }
2413     method = Klass::cast(k())->lookup_method(trial_name(), signature());
2414     if (method == NULL) {
2415       continue; // signature doesn't match, try the next prefix
2416     }
2417     if (method->is_native()) {
2418       method->set_is_prefixed_native();
2419       return method; // wahoo, we found a prefixed version of the method, return it
2420     }
2421     // found as non-native, so prefix is good, add it, probably just need more prefixes
2422     name_len = trial_len;
2423     name_str = trial_name_str;
2424   }
2425   return NULL; // not found
2426 }
2427 
2428 static bool register_native(KlassHandle k, symbolHandle name, symbolHandle signature, address entry, TRAPS) {
2429   methodOop method = Klass::cast(k())->lookup_method(name(), signature());
2430   if (method == NULL) {
2431     ResourceMark rm;
2432     stringStream st;
2433     st.print("Method %s name or signature does not match",
2434              methodOopDesc::name_and_sig_as_C_string(Klass::cast(k()), name(), signature()));
2435     THROW_MSG_(vmSymbols::java_lang_NoSuchMethodError(), st.as_string(), false);
2436   }
2437   if (!method->is_native()) {
2438     // trying to register to a non-native method, see if a JVM TI agent has added prefix(es)
2439     method = find_prefixed_native(k, name, signature, THREAD);
2440     if (method == NULL) {
2441       ResourceMark rm;
2442       stringStream st;
2443       st.print("Method %s is not declared as native",
2444                methodOopDesc::name_and_sig_as_C_string(Klass::cast(k()), name(), signature()));
2445       THROW_MSG_(vmSymbols::java_lang_NoSuchMethodError(), st.as_string(), false);
2446     }
2447   }
2448 
2449   if (entry != NULL) {
2450     method->set_native_function(entry,
2451       methodOopDesc::native_bind_event_is_interesting);
2452   } else {
2453     method->clear_native_function();
2454   }
2455   if (PrintJNIResolving) {
2456     ResourceMark rm(THREAD);
2457     tty->print_cr("[Registering JNI native method %s.%s]",
2458       Klass::cast(method->method_holder())->external_name(),
2459       method->name()->as_C_string());
2460   }
2461   return true;
2462 }
2463 
2464 DT_RETURN_MARK_DECL(RegisterNatives, jint);
2465 
2466 JNI_ENTRY(jint, jni_RegisterNatives(JNIEnv *env, jclass clazz,
2467                                     const JNINativeMethod *methods,
2468                                     jint nMethods))
2469   JNIWrapper("RegisterNatives");
2470   DTRACE_PROBE4(hotspot_jni, RegisterNatives__entry, env, clazz, methods, nMethods);
2471   jint ret = 0;
2472   DT_RETURN_MARK(RegisterNatives, jint, (const jint&)ret);
2473 
2474   KlassHandle h_k(thread, java_lang_Class::as_klassOop(JNIHandles::resolve_non_null(clazz)));
2475 
2476   for (int index = 0; index < nMethods; index++) {
2477     const char* meth_name = methods[index].name;
2478     const char* meth_sig = methods[index].signature;
2479     int meth_name_len = (int)strlen(meth_name);
2480 
2481     // The class should have been loaded (we have an instance of the class
2482     // passed in) so the method and signature should already be in the symbol
2483     // table.  If they're not there, the method doesn't exist.
2484     symbolHandle name(THREAD, SymbolTable::probe(meth_name, meth_name_len));
2485     symbolHandle signature(THREAD, SymbolTable::probe(meth_sig, (int)strlen(meth_sig)));
2486 
2487     if (name.is_null() || signature.is_null()) {
2488       ResourceMark rm;
2489       stringStream st;
2490       st.print("Method %s.%s%s not found", Klass::cast(h_k())->external_name(), meth_name, meth_sig);
2491       // Must return negative value on failure
2492       THROW_MSG_(vmSymbols::java_lang_NoSuchMethodError(), st.as_string(), -1);
2493     }
2494 
2495     bool res = register_native(h_k, name, signature,
2496                                (address) methods[index].fnPtr, THREAD);
2497     if (!res) {
2498       ret = -1;
2499       break;
2500     }
2501   }
2502   return ret;
2503 JNI_END
2504 
2505 
2506 JNI_ENTRY(jint, jni_UnregisterNatives(JNIEnv *env, jclass clazz))
2507   JNIWrapper("UnregisterNatives");
2508   DTRACE_PROBE2(hotspot_jni, UnregisterNatives__entry, env, clazz);
2509   klassOop k   = java_lang_Class::as_klassOop(JNIHandles::resolve_non_null(clazz));
2510   //%note jni_2
2511   if (Klass::cast(k)->oop_is_instance()) {
2512     for (int index = 0; index < instanceKlass::cast(k)->methods()->length(); index++) {
2513       methodOop m = methodOop(instanceKlass::cast(k)->methods()->obj_at(index));
2514       if (m->is_native()) {
2515         m->clear_native_function();
2516         m->set_signature_handler(NULL);
2517       }
2518     }
2519   }
2520   DTRACE_PROBE1(hotspot_jni, UnregisterNatives__return, 0);
2521   return 0;
2522 JNI_END
2523 
2524 //
2525 // Monitor functions
2526 //
2527 
2528 DT_RETURN_MARK_DECL(MonitorEnter, jint);
2529 
2530 JNI_ENTRY(jint, jni_MonitorEnter(JNIEnv *env, jobject jobj))
2531   DTRACE_PROBE2(hotspot_jni, MonitorEnter__entry, env, jobj);
2532   jint ret = JNI_ERR;
2533   DT_RETURN_MARK(MonitorEnter, jint, (const jint&)ret);
2534 
2535   // If the object is null, we can't do anything with it
2536   if (jobj == NULL) {
2537     THROW_(vmSymbols::java_lang_NullPointerException(), JNI_ERR);
2538   }
2539 
2540   Handle obj(thread, JNIHandles::resolve_non_null(jobj));
2541   ObjectSynchronizer::jni_enter(obj, CHECK_(JNI_ERR));
2542   ret = JNI_OK;
2543   return ret;
2544 JNI_END
2545 
2546 DT_RETURN_MARK_DECL(MonitorExit, jint);
2547 
2548 JNI_ENTRY(jint, jni_MonitorExit(JNIEnv *env, jobject jobj))
2549   DTRACE_PROBE2(hotspot_jni, MonitorExit__entry, env, jobj);
2550   jint ret = JNI_ERR;
2551   DT_RETURN_MARK(MonitorExit, jint, (const jint&)ret);
2552 
2553   // Don't do anything with a null object
2554   if (jobj == NULL) {
2555     THROW_(vmSymbols::java_lang_NullPointerException(), JNI_ERR);
2556   }
2557 
2558   Handle obj(THREAD, JNIHandles::resolve_non_null(jobj));
2559   ObjectSynchronizer::jni_exit(obj(), CHECK_(JNI_ERR));
2560 
2561   ret = JNI_OK;
2562   return ret;
2563 JNI_END
2564 
2565 //
2566 // Extensions
2567 //
2568 
2569 DT_VOID_RETURN_MARK_DECL(GetStringRegion);
2570 
2571 JNI_ENTRY(void, jni_GetStringRegion(JNIEnv *env, jstring string, jsize start, jsize len, jchar *buf))
2572   JNIWrapper("GetStringRegion");
2573   DTRACE_PROBE5(hotspot_jni, GetStringRegion__entry, env, string, start, len, buf);
2574   DT_VOID_RETURN_MARK(GetStringRegion);
2575   oop s = JNIHandles::resolve_non_null(string);
2576   int s_len = java_lang_String::length(s);
2577   if (start < 0 || len < 0 || start + len > s_len) {
2578     THROW(vmSymbols::java_lang_StringIndexOutOfBoundsException());
2579   } else {
2580     if (len > 0) {
2581       int s_offset = java_lang_String::offset(s);
2582       typeArrayOop s_value = java_lang_String::value(s);
2583       memcpy(buf, s_value->char_at_addr(s_offset+start), sizeof(jchar)*len);
2584     }
2585   }
2586 JNI_END
2587 
2588 DT_VOID_RETURN_MARK_DECL(GetStringUTFRegion);
2589 
2590 JNI_ENTRY(void, jni_GetStringUTFRegion(JNIEnv *env, jstring string, jsize start, jsize len, char *buf))
2591   JNIWrapper("GetStringUTFRegion");
2592   DTRACE_PROBE5(hotspot_jni, GetStringUTFRegion__entry, env, string, start, len, buf);
2593   DT_VOID_RETURN_MARK(GetStringUTFRegion);
2594   oop s = JNIHandles::resolve_non_null(string);
2595   int s_len = java_lang_String::length(s);
2596   if (start < 0 || len < 0 || start + len > s_len) {
2597     THROW(vmSymbols::java_lang_StringIndexOutOfBoundsException());
2598   } else {
2599     //%note jni_7
2600     if (len > 0) {
2601       ResourceMark rm(THREAD);
2602       char *utf_region = java_lang_String::as_utf8_string(s, start, len);
2603       int utf_len = (int)strlen(utf_region);
2604       memcpy(buf, utf_region, utf_len);
2605       buf[utf_len] = 0;
2606     } else {
2607       // JDK null-terminates the buffer even in len is zero
2608       if (buf != NULL) {
2609         buf[0] = 0;
2610       }
2611     }
2612   }
2613 JNI_END
2614 
2615 
2616 JNI_ENTRY(void*, jni_GetPrimitiveArrayCritical(JNIEnv *env, jarray array, jboolean *isCopy))
2617   JNIWrapper("GetPrimitiveArrayCritical");
2618   DTRACE_PROBE3(hotspot_jni, GetPrimitiveArrayCritical__entry, env, array, isCopy);
2619   GC_locker::lock_critical(thread);
2620   if (isCopy != NULL) {
2621     *isCopy = JNI_FALSE;
2622   }
2623   oop a = JNIHandles::resolve_non_null(array);
2624   assert(a->is_array(), "just checking");
2625   BasicType type;
2626   if (a->is_objArray()) {
2627     type = T_OBJECT;
2628   } else {
2629     type = typeArrayKlass::cast(a->klass())->element_type();
2630   }
2631   void* ret = arrayOop(a)->base(type);
2632   DTRACE_PROBE1(hotspot_jni, GetPrimitiveArrayCritical__return, ret);
2633   return ret;
2634 JNI_END
2635 
2636 
2637 JNI_ENTRY(void, jni_ReleasePrimitiveArrayCritical(JNIEnv *env, jarray array, void *carray, jint mode))
2638   JNIWrapper("ReleasePrimitiveArrayCritical");
2639   DTRACE_PROBE4(hotspot_jni, ReleasePrimitiveArrayCritical__entry, env, array, carray, mode);
2640   // The array, carray and mode arguments are ignored
2641   GC_locker::unlock_critical(thread);
2642   DTRACE_PROBE(hotspot_jni, ReleasePrimitiveArrayCritical__return);
2643 JNI_END
2644 
2645 
2646 JNI_ENTRY(const jchar*, jni_GetStringCritical(JNIEnv *env, jstring string, jboolean *isCopy))
2647   JNIWrapper("GetStringCritical");
2648   DTRACE_PROBE3(hotspot_jni, GetStringCritical__entry, env, string, isCopy);
2649   GC_locker::lock_critical(thread);
2650   if (isCopy != NULL) {
2651     *isCopy = JNI_FALSE;
2652   }
2653   oop s = JNIHandles::resolve_non_null(string);
2654   int s_len = java_lang_String::length(s);
2655   typeArrayOop s_value = java_lang_String::value(s);
2656   int s_offset = java_lang_String::offset(s);
2657   const jchar* ret;
2658   if (s_len > 0) {
2659     ret = s_value->char_at_addr(s_offset);
2660   } else {
2661     ret = (jchar*) s_value->base(T_CHAR);
2662   }
2663   DTRACE_PROBE1(hotspot_jni, GetStringCritical__return, ret);
2664   return ret;
2665 JNI_END
2666 
2667 
2668 JNI_ENTRY(void, jni_ReleaseStringCritical(JNIEnv *env, jstring str, const jchar *chars))
2669   JNIWrapper("ReleaseStringCritical");
2670   DTRACE_PROBE3(hotspot_jni, ReleaseStringCritical__entry, env, str, chars);
2671   // The str and chars arguments are ignored
2672   GC_locker::unlock_critical(thread);
2673   DTRACE_PROBE(hotspot_jni, ReleaseStringCritical__return);
2674 JNI_END
2675 
2676 
2677 JNI_ENTRY(jweak, jni_NewWeakGlobalRef(JNIEnv *env, jobject ref))
2678   JNIWrapper("jni_NewWeakGlobalRef");
2679   DTRACE_PROBE2(hotspot_jni, NewWeakGlobalRef__entry, env, ref);
2680   Handle ref_handle(thread, JNIHandles::resolve(ref));
2681   jweak ret = JNIHandles::make_weak_global(ref_handle);
2682   DTRACE_PROBE1(hotspot_jni, NewWeakGlobalRef__return, ret);
2683   return ret;
2684 JNI_END
2685 
2686 // Must be JNI_ENTRY (with HandleMark)
2687 JNI_ENTRY(void, jni_DeleteWeakGlobalRef(JNIEnv *env, jweak ref))
2688   JNIWrapper("jni_DeleteWeakGlobalRef");
2689   DTRACE_PROBE2(hotspot_jni, DeleteWeakGlobalRef__entry, env, ref);
2690   JNIHandles::destroy_weak_global(ref);
2691   DTRACE_PROBE(hotspot_jni, DeleteWeakGlobalRef__return);
2692 JNI_END
2693 
2694 
2695 JNI_QUICK_ENTRY(jboolean, jni_ExceptionCheck(JNIEnv *env))
2696   JNIWrapper("jni_ExceptionCheck");
2697   DTRACE_PROBE1(hotspot_jni, ExceptionCheck__entry, env);
2698   jni_check_async_exceptions(thread);
2699   jboolean ret = (thread->has_pending_exception()) ? JNI_TRUE : JNI_FALSE;
2700   DTRACE_PROBE1(hotspot_jni, ExceptionCheck__return, ret);
2701   return ret;
2702 JNI_END
2703 
2704 
2705 // Initialization state for three routines below relating to
2706 // java.nio.DirectBuffers
2707 static          jint directBufferSupportInitializeStarted = 0;
2708 static volatile jint directBufferSupportInitializeEnded   = 0;
2709 static volatile jint directBufferSupportInitializeFailed  = 0;
2710 static jclass    bufferClass                 = NULL;
2711 static jclass    directBufferClass           = NULL;
2712 static jclass    directByteBufferClass       = NULL;
2713 static jmethodID directByteBufferConstructor = NULL;
2714 static jfieldID  directBufferAddressField    = NULL;
2715 static jfieldID  bufferCapacityField         = NULL;
2716 
2717 static jclass lookupOne(JNIEnv* env, const char* name, TRAPS) {
2718   Handle loader;            // null (bootstrap) loader
2719   Handle protection_domain; // null protection domain
2720 
2721   symbolHandle sym = oopFactory::new_symbol_handle(name, CHECK_NULL);
2722   jclass result =  find_class_from_class_loader(env, sym, true, loader, protection_domain, true, CHECK_NULL);
2723 
2724   if (TraceClassResolution && result != NULL) {
2725     trace_class_resolution(java_lang_Class::as_klassOop(JNIHandles::resolve_non_null(result)));
2726   }
2727   return result;
2728 }
2729 
2730 // These lookups are done with the NULL (bootstrap) ClassLoader to
2731 // circumvent any security checks that would be done by jni_FindClass.
2732 JNI_ENTRY(bool, lookupDirectBufferClasses(JNIEnv* env))
2733 {
2734   if ((bufferClass           = lookupOne(env, "java/nio/Buffer", thread))           == NULL) { return false; }
2735   if ((directBufferClass     = lookupOne(env, "sun/nio/ch/DirectBuffer", thread))   == NULL) { return false; }
2736   if ((directByteBufferClass = lookupOne(env, "java/nio/DirectByteBuffer", thread)) == NULL) { return false; }
2737   return true;
2738 }
2739 JNI_END
2740 
2741 
2742 static bool initializeDirectBufferSupport(JNIEnv* env, JavaThread* thread) {
2743   if (directBufferSupportInitializeFailed) {
2744     return false;
2745   }
2746 
2747   if (Atomic::cmpxchg(1, &directBufferSupportInitializeStarted, 0) == 0) {
2748     if (!lookupDirectBufferClasses(env)) {
2749       directBufferSupportInitializeFailed = 1;
2750       return false;
2751     }
2752 
2753     // Make global references for these
2754     bufferClass           = (jclass) env->NewGlobalRef(bufferClass);
2755     directBufferClass     = (jclass) env->NewGlobalRef(directBufferClass);
2756     directByteBufferClass = (jclass) env->NewGlobalRef(directByteBufferClass);
2757 
2758     // Get needed field and method IDs
2759     directByteBufferConstructor = env->GetMethodID(directByteBufferClass, "<init>", "(JI)V");
2760     directBufferAddressField    = env->GetFieldID(bufferClass, "address", "J");
2761     bufferCapacityField         = env->GetFieldID(bufferClass, "capacity", "I");
2762 
2763     if ((directByteBufferConstructor == NULL) ||
2764         (directBufferAddressField    == NULL) ||
2765         (bufferCapacityField         == NULL)) {
2766       directBufferSupportInitializeFailed = 1;
2767       return false;
2768     }
2769 
2770     directBufferSupportInitializeEnded = 1;
2771   } else {
2772     while (!directBufferSupportInitializeEnded && !directBufferSupportInitializeFailed) {
2773       // Set state as yield_all can call os:sleep. On Solaris, yield_all calls
2774       // os::sleep which requires the VM state transition. On other platforms, it
2775       // is not necessary. The following call to change the VM state is purposely
2776       // put inside the loop to avoid potential deadlock when multiple threads
2777       // try to call this method. See 6791815 for more details.
2778       ThreadInVMfromNative tivn(thread);
2779       os::yield_all();
2780     }
2781   }
2782 
2783   return !directBufferSupportInitializeFailed;
2784 }
2785 
2786 extern "C" jobject JNICALL jni_NewDirectByteBuffer(JNIEnv *env, void* address, jlong capacity)
2787 {
2788   // thread_from_jni_environment() will block if VM is gone.
2789   JavaThread* thread = JavaThread::thread_from_jni_environment(env);
2790 
2791   JNIWrapper("jni_NewDirectByteBuffer");
2792   DTRACE_PROBE3(hotspot_jni, NewDirectByteBuffer__entry, env, address, capacity);
2793 
2794   if (!directBufferSupportInitializeEnded) {
2795     if (!initializeDirectBufferSupport(env, thread)) {
2796       DTRACE_PROBE1(hotspot_jni, NewDirectByteBuffer__return, NULL);
2797       return NULL;
2798     }
2799   }
2800 
2801   // Being paranoid about accidental sign extension on address
2802   jlong addr = (jlong) ((uintptr_t) address);
2803   // NOTE that package-private DirectByteBuffer constructor currently
2804   // takes int capacity
2805   jint  cap  = (jint)  capacity;
2806   jobject ret = env->NewObject(directByteBufferClass, directByteBufferConstructor, addr, cap);
2807   DTRACE_PROBE1(hotspot_jni, NewDirectByteBuffer__return, ret);
2808   return ret;
2809 }
2810 
2811 DT_RETURN_MARK_DECL(GetDirectBufferAddress, void*);
2812 
2813 extern "C" void* JNICALL jni_GetDirectBufferAddress(JNIEnv *env, jobject buf)
2814 {
2815   // thread_from_jni_environment() will block if VM is gone.
2816   JavaThread* thread = JavaThread::thread_from_jni_environment(env);
2817 
2818   JNIWrapper("jni_GetDirectBufferAddress");
2819   DTRACE_PROBE2(hotspot_jni, GetDirectBufferAddress__entry, env, buf);
2820   void* ret = NULL;
2821   DT_RETURN_MARK(GetDirectBufferAddress, void*, (const void*&)ret);
2822 
2823   if (!directBufferSupportInitializeEnded) {
2824     if (!initializeDirectBufferSupport(env, thread)) {
2825       return 0;
2826     }
2827   }
2828 
2829   if ((buf != NULL) && (!env->IsInstanceOf(buf, directBufferClass))) {
2830     return 0;
2831   }
2832 
2833   ret = (void*)(intptr_t)env->GetLongField(buf, directBufferAddressField);
2834   return ret;
2835 }
2836 
2837 DT_RETURN_MARK_DECL(GetDirectBufferCapacity, jlong);
2838 
2839 extern "C" jlong JNICALL jni_GetDirectBufferCapacity(JNIEnv *env, jobject buf)
2840 {
2841   // thread_from_jni_environment() will block if VM is gone.
2842   JavaThread* thread = JavaThread::thread_from_jni_environment(env);
2843 
2844   JNIWrapper("jni_GetDirectBufferCapacity");
2845   DTRACE_PROBE2(hotspot_jni, GetDirectBufferCapacity__entry, env, buf);
2846   jlong ret = -1;
2847   DT_RETURN_MARK(GetDirectBufferCapacity, jlong, (const jlong&)ret);
2848 
2849   if (!directBufferSupportInitializeEnded) {
2850     if (!initializeDirectBufferSupport(env, thread)) {
2851       ret = 0;
2852       return ret;
2853     }
2854   }
2855 
2856   if (buf == NULL) {
2857     return -1;
2858   }
2859 
2860   if (!env->IsInstanceOf(buf, directBufferClass)) {
2861     return -1;
2862   }
2863 
2864   // NOTE that capacity is currently an int in the implementation
2865   ret = env->GetIntField(buf, bufferCapacityField);
2866   return ret;
2867 }
2868 
2869 
2870 JNI_LEAF(jint, jni_GetVersion(JNIEnv *env))
2871   JNIWrapper("GetVersion");
2872   DTRACE_PROBE1(hotspot_jni, GetVersion__entry, env);
2873   DTRACE_PROBE1(hotspot_jni, GetVersion__return, CurrentVersion);
2874   return CurrentVersion;
2875 JNI_END
2876 
2877 extern struct JavaVM_ main_vm;
2878 
2879 JNI_LEAF(jint, jni_GetJavaVM(JNIEnv *env, JavaVM **vm))
2880   JNIWrapper("jni_GetJavaVM");
2881   DTRACE_PROBE2(hotspot_jni, GetJavaVM__entry, env, vm);
2882   *vm  = (JavaVM *)(&main_vm);
2883   DTRACE_PROBE1(hotspot_jni, GetJavaVM__return, JNI_OK);
2884   return JNI_OK;
2885 JNI_END
2886 
2887 // Structure containing all jni functions
2888 struct JNINativeInterface_ jni_NativeInterface = {
2889     NULL,
2890     NULL,
2891     NULL,
2892 
2893     NULL,
2894 
2895     jni_GetVersion,
2896 
2897     jni_DefineClass,
2898     jni_FindClass,
2899 
2900     jni_FromReflectedMethod,
2901     jni_FromReflectedField,
2902 
2903     jni_ToReflectedMethod,
2904 
2905     jni_GetSuperclass,
2906     jni_IsAssignableFrom,
2907 
2908     jni_ToReflectedField,
2909 
2910     jni_Throw,
2911     jni_ThrowNew,
2912     jni_ExceptionOccurred,
2913     jni_ExceptionDescribe,
2914     jni_ExceptionClear,
2915     jni_FatalError,
2916 
2917     jni_PushLocalFrame,
2918     jni_PopLocalFrame,
2919 
2920     jni_NewGlobalRef,
2921     jni_DeleteGlobalRef,
2922     jni_DeleteLocalRef,
2923     jni_IsSameObject,
2924 
2925     jni_NewLocalRef,
2926     jni_EnsureLocalCapacity,
2927 
2928     jni_AllocObject,
2929     jni_NewObject,
2930     jni_NewObjectV,
2931     jni_NewObjectA,
2932 
2933     jni_GetObjectClass,
2934     jni_IsInstanceOf,
2935 
2936     jni_GetMethodID,
2937 
2938     jni_CallObjectMethod,
2939     jni_CallObjectMethodV,
2940     jni_CallObjectMethodA,
2941     jni_CallBooleanMethod,
2942     jni_CallBooleanMethodV,
2943     jni_CallBooleanMethodA,
2944     jni_CallByteMethod,
2945     jni_CallByteMethodV,
2946     jni_CallByteMethodA,
2947     jni_CallCharMethod,
2948     jni_CallCharMethodV,
2949     jni_CallCharMethodA,
2950     jni_CallShortMethod,
2951     jni_CallShortMethodV,
2952     jni_CallShortMethodA,
2953     jni_CallIntMethod,
2954     jni_CallIntMethodV,
2955     jni_CallIntMethodA,
2956     jni_CallLongMethod,
2957     jni_CallLongMethodV,
2958     jni_CallLongMethodA,
2959     jni_CallFloatMethod,
2960     jni_CallFloatMethodV,
2961     jni_CallFloatMethodA,
2962     jni_CallDoubleMethod,
2963     jni_CallDoubleMethodV,
2964     jni_CallDoubleMethodA,
2965     jni_CallVoidMethod,
2966     jni_CallVoidMethodV,
2967     jni_CallVoidMethodA,
2968 
2969     jni_CallNonvirtualObjectMethod,
2970     jni_CallNonvirtualObjectMethodV,
2971     jni_CallNonvirtualObjectMethodA,
2972     jni_CallNonvirtualBooleanMethod,
2973     jni_CallNonvirtualBooleanMethodV,
2974     jni_CallNonvirtualBooleanMethodA,
2975     jni_CallNonvirtualByteMethod,
2976     jni_CallNonvirtualByteMethodV,
2977     jni_CallNonvirtualByteMethodA,
2978     jni_CallNonvirtualCharMethod,
2979     jni_CallNonvirtualCharMethodV,
2980     jni_CallNonvirtualCharMethodA,
2981     jni_CallNonvirtualShortMethod,
2982     jni_CallNonvirtualShortMethodV,
2983     jni_CallNonvirtualShortMethodA,
2984     jni_CallNonvirtualIntMethod,
2985     jni_CallNonvirtualIntMethodV,
2986     jni_CallNonvirtualIntMethodA,
2987     jni_CallNonvirtualLongMethod,
2988     jni_CallNonvirtualLongMethodV,
2989     jni_CallNonvirtualLongMethodA,
2990     jni_CallNonvirtualFloatMethod,
2991     jni_CallNonvirtualFloatMethodV,
2992     jni_CallNonvirtualFloatMethodA,
2993     jni_CallNonvirtualDoubleMethod,
2994     jni_CallNonvirtualDoubleMethodV,
2995     jni_CallNonvirtualDoubleMethodA,
2996     jni_CallNonvirtualVoidMethod,
2997     jni_CallNonvirtualVoidMethodV,
2998     jni_CallNonvirtualVoidMethodA,
2999 
3000     jni_GetFieldID,
3001 
3002     jni_GetObjectField,
3003     jni_GetBooleanField,
3004     jni_GetByteField,
3005     jni_GetCharField,
3006     jni_GetShortField,
3007     jni_GetIntField,
3008     jni_GetLongField,
3009     jni_GetFloatField,
3010     jni_GetDoubleField,
3011 
3012     jni_SetObjectField,
3013     jni_SetBooleanField,
3014     jni_SetByteField,
3015     jni_SetCharField,
3016     jni_SetShortField,
3017     jni_SetIntField,
3018     jni_SetLongField,
3019     jni_SetFloatField,
3020     jni_SetDoubleField,
3021 
3022     jni_GetStaticMethodID,
3023 
3024     jni_CallStaticObjectMethod,
3025     jni_CallStaticObjectMethodV,
3026     jni_CallStaticObjectMethodA,
3027     jni_CallStaticBooleanMethod,
3028     jni_CallStaticBooleanMethodV,
3029     jni_CallStaticBooleanMethodA,
3030     jni_CallStaticByteMethod,
3031     jni_CallStaticByteMethodV,
3032     jni_CallStaticByteMethodA,
3033     jni_CallStaticCharMethod,
3034     jni_CallStaticCharMethodV,
3035     jni_CallStaticCharMethodA,
3036     jni_CallStaticShortMethod,
3037     jni_CallStaticShortMethodV,
3038     jni_CallStaticShortMethodA,
3039     jni_CallStaticIntMethod,
3040     jni_CallStaticIntMethodV,
3041     jni_CallStaticIntMethodA,
3042     jni_CallStaticLongMethod,
3043     jni_CallStaticLongMethodV,
3044     jni_CallStaticLongMethodA,
3045     jni_CallStaticFloatMethod,
3046     jni_CallStaticFloatMethodV,
3047     jni_CallStaticFloatMethodA,
3048     jni_CallStaticDoubleMethod,
3049     jni_CallStaticDoubleMethodV,
3050     jni_CallStaticDoubleMethodA,
3051     jni_CallStaticVoidMethod,
3052     jni_CallStaticVoidMethodV,
3053     jni_CallStaticVoidMethodA,
3054 
3055     jni_GetStaticFieldID,
3056 
3057     jni_GetStaticObjectField,
3058     jni_GetStaticBooleanField,
3059     jni_GetStaticByteField,
3060     jni_GetStaticCharField,
3061     jni_GetStaticShortField,
3062     jni_GetStaticIntField,
3063     jni_GetStaticLongField,
3064     jni_GetStaticFloatField,
3065     jni_GetStaticDoubleField,
3066 
3067     jni_SetStaticObjectField,
3068     jni_SetStaticBooleanField,
3069     jni_SetStaticByteField,
3070     jni_SetStaticCharField,
3071     jni_SetStaticShortField,
3072     jni_SetStaticIntField,
3073     jni_SetStaticLongField,
3074     jni_SetStaticFloatField,
3075     jni_SetStaticDoubleField,
3076 
3077     jni_NewString,
3078     jni_GetStringLength,
3079     jni_GetStringChars,
3080     jni_ReleaseStringChars,
3081 
3082     jni_NewStringUTF,
3083     jni_GetStringUTFLength,
3084     jni_GetStringUTFChars,
3085     jni_ReleaseStringUTFChars,
3086 
3087     jni_GetArrayLength,
3088 
3089     jni_NewObjectArray,
3090     jni_GetObjectArrayElement,
3091     jni_SetObjectArrayElement,
3092 
3093     jni_NewBooleanArray,
3094     jni_NewByteArray,
3095     jni_NewCharArray,
3096     jni_NewShortArray,
3097     jni_NewIntArray,
3098     jni_NewLongArray,
3099     jni_NewFloatArray,
3100     jni_NewDoubleArray,
3101 
3102     jni_GetBooleanArrayElements,
3103     jni_GetByteArrayElements,
3104     jni_GetCharArrayElements,
3105     jni_GetShortArrayElements,
3106     jni_GetIntArrayElements,
3107     jni_GetLongArrayElements,
3108     jni_GetFloatArrayElements,
3109     jni_GetDoubleArrayElements,
3110 
3111     jni_ReleaseBooleanArrayElements,
3112     jni_ReleaseByteArrayElements,
3113     jni_ReleaseCharArrayElements,
3114     jni_ReleaseShortArrayElements,
3115     jni_ReleaseIntArrayElements,
3116     jni_ReleaseLongArrayElements,
3117     jni_ReleaseFloatArrayElements,
3118     jni_ReleaseDoubleArrayElements,
3119 
3120     jni_GetBooleanArrayRegion,
3121     jni_GetByteArrayRegion,
3122     jni_GetCharArrayRegion,
3123     jni_GetShortArrayRegion,
3124     jni_GetIntArrayRegion,
3125     jni_GetLongArrayRegion,
3126     jni_GetFloatArrayRegion,
3127     jni_GetDoubleArrayRegion,
3128 
3129     jni_SetBooleanArrayRegion,
3130     jni_SetByteArrayRegion,
3131     jni_SetCharArrayRegion,
3132     jni_SetShortArrayRegion,
3133     jni_SetIntArrayRegion,
3134     jni_SetLongArrayRegion,
3135     jni_SetFloatArrayRegion,
3136     jni_SetDoubleArrayRegion,
3137 
3138     jni_RegisterNatives,
3139     jni_UnregisterNatives,
3140 
3141     jni_MonitorEnter,
3142     jni_MonitorExit,
3143 
3144     jni_GetJavaVM,
3145 
3146     jni_GetStringRegion,
3147     jni_GetStringUTFRegion,
3148 
3149     jni_GetPrimitiveArrayCritical,
3150     jni_ReleasePrimitiveArrayCritical,
3151 
3152     jni_GetStringCritical,
3153     jni_ReleaseStringCritical,
3154 
3155     jni_NewWeakGlobalRef,
3156     jni_DeleteWeakGlobalRef,
3157 
3158     jni_ExceptionCheck,
3159 
3160     jni_NewDirectByteBuffer,
3161     jni_GetDirectBufferAddress,
3162     jni_GetDirectBufferCapacity,
3163 
3164     // New 1_6 features
3165 
3166     jni_GetObjectRefType
3167 };
3168 
3169 
3170 // For jvmti use to modify jni function table.
3171 // Java threads in native contiues to run until it is transitioned
3172 // to VM at safepoint. Before the transition or before it is blocked
3173 // for safepoint it may access jni function table. VM could crash if
3174 // any java thread access the jni function table in the middle of memcpy.
3175 // To avoid this each function pointers are copied automically.
3176 void copy_jni_function_table(const struct JNINativeInterface_ *new_jni_NativeInterface) {
3177   assert(SafepointSynchronize::is_at_safepoint(), "must be at safepoint");
3178   intptr_t *a = (intptr_t *) jni_functions();
3179   intptr_t *b = (intptr_t *) new_jni_NativeInterface;
3180   for (uint i=0; i <  sizeof(struct JNINativeInterface_)/sizeof(void *); i++) {
3181     Atomic::store_ptr(*b++, a++);
3182   }
3183 }
3184 
3185 void quicken_jni_functions() {
3186   // Replace Get<Primitive>Field with fast versions
3187   if (UseFastJNIAccessors && !JvmtiExport::can_post_field_access()
3188       && !VerifyJNIFields && !TraceJNICalls && !CountJNICalls && !CheckJNICalls
3189 #if defined(_WINDOWS) && defined(IA32) && defined(COMPILER2)
3190       // windows x86 currently needs SEH wrapper and the gain of the fast
3191       // versions currently isn't certain for server vm on uniprocessor.
3192       && os::is_MP()
3193 #endif
3194   ) {
3195     address func;
3196     func = JNI_FastGetField::generate_fast_get_boolean_field();
3197     if (func != (address)-1) {
3198       jni_NativeInterface.GetBooleanField = (GetBooleanField_t)func;
3199     }
3200     func = JNI_FastGetField::generate_fast_get_byte_field();
3201     if (func != (address)-1) {
3202       jni_NativeInterface.GetByteField = (GetByteField_t)func;
3203     }
3204     func = JNI_FastGetField::generate_fast_get_char_field();
3205     if (func != (address)-1) {
3206       jni_NativeInterface.GetCharField = (GetCharField_t)func;
3207     }
3208     func = JNI_FastGetField::generate_fast_get_short_field();
3209     if (func != (address)-1) {
3210       jni_NativeInterface.GetShortField = (GetShortField_t)func;
3211     }
3212     func = JNI_FastGetField::generate_fast_get_int_field();
3213     if (func != (address)-1) {
3214       jni_NativeInterface.GetIntField = (GetIntField_t)func;
3215     }
3216     func = JNI_FastGetField::generate_fast_get_long_field();
3217     if (func != (address)-1) {
3218       jni_NativeInterface.GetLongField = (GetLongField_t)func;
3219     }
3220     func = JNI_FastGetField::generate_fast_get_float_field();
3221     if (func != (address)-1) {
3222       jni_NativeInterface.GetFloatField = (GetFloatField_t)func;
3223     }
3224     func = JNI_FastGetField::generate_fast_get_double_field();
3225     if (func != (address)-1) {
3226       jni_NativeInterface.GetDoubleField = (GetDoubleField_t)func;
3227     }
3228   }
3229 }
3230 
3231 // Returns the function structure
3232 struct JNINativeInterface_* jni_functions() {
3233 #ifndef JNICHECK_KERNEL
3234   if (CheckJNICalls) return jni_functions_check();
3235 #else  // JNICHECK_KERNEL
3236   if (CheckJNICalls) warning("-Xcheck:jni is not supported in kernel vm.");
3237 #endif // JNICHECK_KERNEL
3238   return &jni_NativeInterface;
3239 }
3240 
3241 // Returns the function structure
3242 struct JNINativeInterface_* jni_functions_nocheck() {
3243   return &jni_NativeInterface;
3244 }
3245 
3246 
3247 // Invocation API
3248 
3249 
3250 // Forward declaration
3251 extern const struct JNIInvokeInterface_ jni_InvokeInterface;
3252 
3253 // Global invocation API vars
3254 volatile jint vm_created = 0;
3255 // Indicate whether it is safe to recreate VM
3256 volatile jint safe_to_recreate_vm = 1;
3257 struct JavaVM_ main_vm = {&jni_InvokeInterface};
3258 
3259 
3260 #define JAVASTACKSIZE (400 * 1024)    /* Default size of a thread java stack */
3261 #define PROCSTACKSIZE 0               /* 0 means default size in HPI */
3262 enum { VERIFY_NONE, VERIFY_REMOTE, VERIFY_ALL };
3263 
3264 HS_DTRACE_PROBE_DECL1(hotspot_jni, GetDefaultJavaVMInitArgs__entry, void*);
3265 DT_RETURN_MARK_DECL(GetDefaultJavaVMInitArgs, jint);
3266 
3267 _JNI_IMPORT_OR_EXPORT_ jint JNICALL JNI_GetDefaultJavaVMInitArgs(void *args_) {
3268   HS_DTRACE_PROBE1(hotspot_jni, GetDefaultJavaVMInitArgs__entry, args_);
3269   JDK1_1InitArgs *args = (JDK1_1InitArgs *)args_;
3270   jint ret = JNI_ERR;
3271   DT_RETURN_MARK(GetDefaultJavaVMInitArgs, jint, (const jint&)ret);
3272 
3273   if (Threads::is_supported_jni_version(args->version)) {
3274     ret = JNI_OK;
3275   }
3276   // 1.1 style no longer supported in hotspot.
3277   // According the JNI spec, we should update args->version on return.
3278   // We also use the structure to communicate with launcher about default
3279   // stack size.
3280   if (args->version == JNI_VERSION_1_1) {
3281     args->version = JNI_VERSION_1_2;
3282     // javaStackSize is int in arguments structure
3283     assert(jlong(ThreadStackSize) * K < INT_MAX, "integer overflow");
3284     args->javaStackSize = (jint)(ThreadStackSize * K);
3285   }
3286   return ret;
3287 }
3288 
3289 HS_DTRACE_PROBE_DECL3(hotspot_jni, CreateJavaVM__entry, vm, penv, args);
3290 DT_RETURN_MARK_DECL(CreateJavaVM, jint);
3291 
3292 _JNI_IMPORT_OR_EXPORT_ jint JNICALL JNI_CreateJavaVM(JavaVM **vm, void **penv, void *args) {
3293   HS_DTRACE_PROBE3(hotspot_jni, CreateJavaVM__entry, vm, penv, args);
3294 
3295   jint result = JNI_ERR;
3296   DT_RETURN_MARK(CreateJavaVM, jint, (const jint&)result);
3297 
3298   // We're about to use Atomic::xchg for synchronization.  Some Zero
3299   // platforms use the GCC builtin __sync_lock_test_and_set for this,
3300   // but __sync_lock_test_and_set is not guaranteed to do what we want
3301   // on all architectures.  So we check it works before relying on it.
3302 #if defined(ZERO) && defined(ASSERT)
3303   {
3304     jint a = 0xcafebabe;
3305     jint b = Atomic::xchg(0xdeadbeef, &a);
3306     void *c = &a;
3307     void *d = Atomic::xchg_ptr(&b, &c);
3308     assert(a == (jint) 0xdeadbeef && b == (jint) 0xcafebabe, "Atomic::xchg() works");
3309     assert(c == &b && d == &a, "Atomic::xchg_ptr() works");
3310   }
3311 #endif // ZERO && ASSERT
3312 
3313   // At the moment it's only possible to have one Java VM,
3314   // since some of the runtime state is in global variables.
3315 
3316   // We cannot use our mutex locks here, since they only work on
3317   // Threads. We do an atomic compare and exchange to ensure only
3318   // one thread can call this method at a time
3319 
3320   // We use Atomic::xchg rather than Atomic::add/dec since on some platforms
3321   // the add/dec implementations are dependent on whether we are running
3322   // on a multiprocessor, and at this stage of initialization the os::is_MP
3323   // function used to determine this will always return false. Atomic::xchg
3324   // does not have this problem.
3325   if (Atomic::xchg(1, &vm_created) == 1) {
3326     return JNI_ERR;   // already created, or create attempt in progress
3327   }
3328   if (Atomic::xchg(0, &safe_to_recreate_vm) == 0) {
3329     return JNI_ERR;  // someone tried and failed and retry not allowed.
3330   }
3331 
3332   assert(vm_created == 1, "vm_created is true during the creation");
3333 
3334   /**
3335    * Certain errors during initialization are recoverable and do not
3336    * prevent this method from being called again at a later time
3337    * (perhaps with different arguments).  However, at a certain
3338    * point during initialization if an error occurs we cannot allow
3339    * this function to be called again (or it will crash).  In those
3340    * situations, the 'canTryAgain' flag is set to false, which atomically
3341    * sets safe_to_recreate_vm to 1, such that any new call to
3342    * JNI_CreateJavaVM will immediately fail using the above logic.
3343    */
3344   bool can_try_again = true;
3345 
3346   result = Threads::create_vm((JavaVMInitArgs*) args, &can_try_again);
3347   if (result == JNI_OK) {
3348     JavaThread *thread = JavaThread::current();
3349     /* thread is thread_in_vm here */
3350     *vm = (JavaVM *)(&main_vm);
3351     *(JNIEnv**)penv = thread->jni_environment();
3352 
3353     // Tracks the time application was running before GC
3354     RuntimeService::record_application_start();
3355 
3356     // Notify JVMTI
3357     if (JvmtiExport::should_post_thread_life()) {
3358        JvmtiExport::post_thread_start(thread);
3359     }
3360     // Check if we should compile all classes on bootclasspath
3361     NOT_PRODUCT(if (CompileTheWorld) ClassLoader::compile_the_world();)
3362     // Since this is not a JVM_ENTRY we have to set the thread state manually before leaving.
3363     ThreadStateTransition::transition_and_fence(thread, _thread_in_vm, _thread_in_native);
3364   } else {
3365     if (can_try_again) {
3366       // reset safe_to_recreate_vm to 1 so that retrial would be possible
3367       safe_to_recreate_vm = 1;
3368     }
3369 
3370     // Creation failed. We must reset vm_created
3371     *vm = 0;
3372     *(JNIEnv**)penv = 0;
3373     // reset vm_created last to avoid race condition. Use OrderAccess to
3374     // control both compiler and architectural-based reordering.
3375     OrderAccess::release_store(&vm_created, 0);
3376   }
3377 
3378   NOT_PRODUCT(test_error_handler(ErrorHandlerTest));
3379   return result;
3380 }
3381 
3382 HS_DTRACE_PROBE_DECL3(hotspot_jni, GetCreatedJavaVMs__entry, \
3383   JavaVM**, jsize, jsize*);
3384 HS_DTRACE_PROBE_DECL1(hotspot_jni, GetCreatedJavaVMs__return, jint);
3385 
3386 _JNI_IMPORT_OR_EXPORT_ jint JNICALL JNI_GetCreatedJavaVMs(JavaVM **vm_buf, jsize bufLen, jsize *numVMs) {
3387   // See bug 4367188, the wrapper can sometimes cause VM crashes
3388   // JNIWrapper("GetCreatedJavaVMs");
3389   HS_DTRACE_PROBE3(hotspot_jni, GetCreatedJavaVMs__entry, \
3390     vm_buf, bufLen, numVMs);
3391   if (vm_created) {
3392     if (numVMs != NULL) *numVMs = 1;
3393     if (bufLen > 0)     *vm_buf = (JavaVM *)(&main_vm);
3394   } else {
3395     if (numVMs != NULL) *numVMs = 0;
3396   }
3397   HS_DTRACE_PROBE1(hotspot_jni, GetCreatedJavaVMs__return, JNI_OK);
3398   return JNI_OK;
3399 }
3400 
3401 extern "C" {
3402 
3403 DT_RETURN_MARK_DECL(DestroyJavaVM, jint);
3404 
3405 jint JNICALL jni_DestroyJavaVM(JavaVM *vm) {
3406   DTRACE_PROBE1(hotspot_jni, DestroyJavaVM__entry, vm);
3407   jint res = JNI_ERR;
3408   DT_RETURN_MARK(DestroyJavaVM, jint, (const jint&)res);
3409 
3410   if (!vm_created) {
3411     res = JNI_ERR;
3412     return res;
3413   }
3414 
3415   JNIWrapper("DestroyJavaVM");
3416   JNIEnv *env;
3417   JavaVMAttachArgs destroyargs;
3418   destroyargs.version = CurrentVersion;
3419   destroyargs.name = (char *)"DestroyJavaVM";
3420   destroyargs.group = NULL;
3421   res = vm->AttachCurrentThread((void **)&env, (void *)&destroyargs);
3422   if (res != JNI_OK) {
3423     return res;
3424   }
3425 
3426   // Since this is not a JVM_ENTRY we have to set the thread state manually before entering.
3427   JavaThread* thread = JavaThread::current();
3428   ThreadStateTransition::transition_from_native(thread, _thread_in_vm);
3429   if (Threads::destroy_vm()) {
3430     // Should not change thread state, VM is gone
3431     vm_created = false;
3432     res = JNI_OK;
3433     return res;
3434   } else {
3435     ThreadStateTransition::transition_and_fence(thread, _thread_in_vm, _thread_in_native);
3436     res = JNI_ERR;
3437     return res;
3438   }
3439 }
3440 
3441 
3442 static jint attach_current_thread(JavaVM *vm, void **penv, void *_args, bool daemon) {
3443   JavaVMAttachArgs *args = (JavaVMAttachArgs *) _args;
3444 
3445   // Check below commented out from JDK1.2fcs as well
3446   /*
3447   if (args && (args->version != JNI_VERSION_1_1 || args->version != JNI_VERSION_1_2)) {
3448     return JNI_EVERSION;
3449   }
3450   */
3451 
3452   Thread* t = ThreadLocalStorage::get_thread_slow();
3453   if (t != NULL) {
3454     // If the thread has been attached this operation is a no-op
3455     *(JNIEnv**)penv = ((JavaThread*) t)->jni_environment();
3456     return JNI_OK;
3457   }
3458 
3459   // Create a thread and mark it as attaching so it will be skipped by the
3460   // ThreadsListEnumerator - see CR 6404306
3461   JavaThread* thread = new JavaThread(true);
3462 
3463   // Set correct safepoint info. The thread is going to call into Java when
3464   // initializing the Java level thread object. Hence, the correct state must
3465   // be set in order for the Safepoint code to deal with it correctly.
3466   thread->set_thread_state(_thread_in_vm);
3467   // Must do this before initialize_thread_local_storage
3468   thread->record_stack_base_and_size();
3469 
3470   thread->initialize_thread_local_storage();
3471 
3472   if (!os::create_attached_thread(thread)) {
3473     delete thread;
3474     return JNI_ERR;
3475   }
3476   // Enable stack overflow checks
3477   thread->create_stack_guard_pages();
3478 
3479   thread->initialize_tlab();
3480 
3481   thread->cache_global_variables();
3482 
3483   // Crucial that we do not have a safepoint check for this thread, since it has
3484   // not been added to the Thread list yet.
3485   { Threads_lock->lock_without_safepoint_check();
3486     // This must be inside this lock in order to get FullGCALot to work properly, i.e., to
3487     // avoid this thread trying to do a GC before it is added to the thread-list
3488     thread->set_active_handles(JNIHandleBlock::allocate_block());
3489     Threads::add(thread, daemon);
3490     Threads_lock->unlock();
3491   }
3492   // Create thread group and name info from attach arguments
3493   oop group = NULL;
3494   char* thread_name = NULL;
3495   if (args != NULL && Threads::is_supported_jni_version(args->version)) {
3496     group = JNIHandles::resolve(args->group);
3497     thread_name = args->name; // may be NULL
3498   }
3499   if (group == NULL) group = Universe::main_thread_group();
3500 
3501   // Create Java level thread object and attach it to this thread
3502   bool attach_failed = false;
3503   {
3504     EXCEPTION_MARK;
3505     HandleMark hm(THREAD);
3506     Handle thread_group(THREAD, group);
3507     thread->allocate_threadObj(thread_group, thread_name, daemon, THREAD);
3508     if (HAS_PENDING_EXCEPTION) {
3509       CLEAR_PENDING_EXCEPTION;
3510       // cleanup outside the handle mark.
3511       attach_failed = true;
3512     }
3513   }
3514 
3515   if (attach_failed) {
3516     // Added missing cleanup
3517     thread->cleanup_failed_attach_current_thread();
3518     return JNI_ERR;
3519   }
3520 
3521   // mark the thread as no longer attaching
3522   // this uses a fence to push the change through so we don't have
3523   // to regrab the threads_lock
3524   thread->set_attached();
3525 
3526   // Set java thread status.
3527   java_lang_Thread::set_thread_status(thread->threadObj(),
3528               java_lang_Thread::RUNNABLE);
3529 
3530   // Notify the debugger
3531   if (JvmtiExport::should_post_thread_life()) {
3532     JvmtiExport::post_thread_start(thread);
3533   }
3534 
3535   *(JNIEnv**)penv = thread->jni_environment();
3536 
3537   // Now leaving the VM, so change thread_state. This is normally automatically taken care
3538   // of in the JVM_ENTRY. But in this situation we have to do it manually. Notice, that by
3539   // using ThreadStateTransition::transition, we do a callback to the safepoint code if
3540   // needed.
3541 
3542   ThreadStateTransition::transition_and_fence(thread, _thread_in_vm, _thread_in_native);
3543 
3544   // Perform any platform dependent FPU setup
3545   os::setup_fpu();
3546 
3547   return JNI_OK;
3548 }
3549 
3550 
3551 jint JNICALL jni_AttachCurrentThread(JavaVM *vm, void **penv, void *_args) {
3552   DTRACE_PROBE3(hotspot_jni, AttachCurrentThread__entry, vm, penv, _args);
3553   if (!vm_created) {
3554     DTRACE_PROBE1(hotspot_jni, AttachCurrentThread__return, JNI_ERR);
3555     return JNI_ERR;
3556   }
3557 
3558   JNIWrapper("AttachCurrentThread");
3559   jint ret = attach_current_thread(vm, penv, _args, false);
3560   DTRACE_PROBE1(hotspot_jni, AttachCurrentThread__return, ret);
3561   return ret;
3562 }
3563 
3564 
3565 jint JNICALL jni_DetachCurrentThread(JavaVM *vm)  {
3566   DTRACE_PROBE1(hotspot_jni, DetachCurrentThread__entry, vm);
3567   VM_Exit::block_if_vm_exited();
3568 
3569   JNIWrapper("DetachCurrentThread");
3570 
3571   // If the thread has been deattacted the operations is a no-op
3572   if (ThreadLocalStorage::thread() == NULL) {
3573     DTRACE_PROBE1(hotspot_jni, DetachCurrentThread__return, JNI_OK);
3574     return JNI_OK;
3575   }
3576 
3577   JavaThread* thread = JavaThread::current();
3578   if (thread->has_last_Java_frame()) {
3579     DTRACE_PROBE1(hotspot_jni, DetachCurrentThread__return, JNI_ERR);
3580     // Can't detach a thread that's running java, that can't work.
3581     return JNI_ERR;
3582   }
3583 
3584   // Safepoint support. Have to do call-back to safepoint code, if in the
3585   // middel of a safepoint operation
3586   ThreadStateTransition::transition_from_native(thread, _thread_in_vm);
3587 
3588   // XXX: Note that JavaThread::exit() call below removes the guards on the
3589   // stack pages set up via enable_stack_{red,yellow}_zone() calls
3590   // above in jni_AttachCurrentThread. Unfortunately, while the setting
3591   // of the guards is visible in jni_AttachCurrentThread above,
3592   // the removal of the guards is buried below in JavaThread::exit()
3593   // here. The abstraction should be more symmetrically either exposed
3594   // or hidden (e.g. it could probably be hidden in the same
3595   // (platform-dependent) methods where we do alternate stack
3596   // maintenance work?)
3597   thread->exit(false, JavaThread::jni_detach);
3598   delete thread;
3599 
3600   DTRACE_PROBE1(hotspot_jni, DetachCurrentThread__return, JNI_OK);
3601   return JNI_OK;
3602 }
3603 
3604 DT_RETURN_MARK_DECL(GetEnv, jint);
3605 
3606 jint JNICALL jni_GetEnv(JavaVM *vm, void **penv, jint version) {
3607   DTRACE_PROBE3(hotspot_jni, GetEnv__entry, vm, penv, version);
3608   jint ret = JNI_ERR;
3609   DT_RETURN_MARK(GetEnv, jint, (const jint&)ret);
3610 
3611   if (!vm_created) {
3612     *penv = NULL;
3613     ret = JNI_EDETACHED;
3614     return ret;
3615   }
3616 
3617   if (JvmtiExport::is_jvmti_version(version)) {
3618     ret = JvmtiExport::get_jvmti_interface(vm, penv, version);
3619     return ret;
3620   }
3621 
3622 #ifndef JVMPI_VERSION_1
3623 // need these in order to be polite about older agents
3624 #define JVMPI_VERSION_1   ((jint)0x10000001)
3625 #define JVMPI_VERSION_1_1 ((jint)0x10000002)
3626 #define JVMPI_VERSION_1_2 ((jint)0x10000003)
3627 #endif // !JVMPI_VERSION_1
3628 
3629   Thread* thread = ThreadLocalStorage::thread();
3630   if (thread != NULL && thread->is_Java_thread()) {
3631     if (Threads::is_supported_jni_version_including_1_1(version)) {
3632       *(JNIEnv**)penv = ((JavaThread*) thread)->jni_environment();
3633       ret = JNI_OK;
3634       return ret;
3635 
3636     } else if (version == JVMPI_VERSION_1 ||
3637                version == JVMPI_VERSION_1_1 ||
3638                version == JVMPI_VERSION_1_2) {
3639       tty->print_cr("ERROR: JVMPI, an experimental interface, is no longer supported.");
3640       tty->print_cr("Please use the supported interface: the JVM Tool Interface (JVM TI).");
3641       ret = JNI_EVERSION;
3642       return ret;
3643     } else if (JvmtiExport::is_jvmdi_version(version)) {
3644       tty->print_cr("FATAL ERROR: JVMDI is no longer supported.");
3645       tty->print_cr("Please use the supported interface: the JVM Tool Interface (JVM TI).");
3646       ret = JNI_EVERSION;
3647       return ret;
3648     } else {
3649       *penv = NULL;
3650       ret = JNI_EVERSION;
3651       return ret;
3652     }
3653   } else {
3654     *penv = NULL;
3655     ret = JNI_EDETACHED;
3656     return ret;
3657   }
3658 }
3659 
3660 
3661 jint JNICALL jni_AttachCurrentThreadAsDaemon(JavaVM *vm, void **penv, void *_args) {
3662   DTRACE_PROBE3(hotspot_jni, AttachCurrentThreadAsDaemon__entry, vm, penv, _args);
3663   if (!vm_created) {
3664     DTRACE_PROBE1(hotspot_jni, AttachCurrentThreadAsDaemon__return, JNI_ERR);
3665     return JNI_ERR;
3666   }
3667 
3668   JNIWrapper("AttachCurrentThreadAsDaemon");
3669   jint ret = attach_current_thread(vm, penv, _args, true);
3670   DTRACE_PROBE1(hotspot_jni, AttachCurrentThreadAsDaemon__return, ret);
3671   return ret;
3672 }
3673 
3674 
3675 } // End extern "C"
3676 
3677 const struct JNIInvokeInterface_ jni_InvokeInterface = {
3678     NULL,
3679     NULL,
3680     NULL,
3681 
3682     jni_DestroyJavaVM,
3683     jni_AttachCurrentThread,
3684     jni_DetachCurrentThread,
3685     jni_GetEnv,
3686     jni_AttachCurrentThreadAsDaemon
3687 };