src/share/vm/prims/unsafe.cpp

Fri, 10 Jul 2009 11:10:00 -0700

author
mchung
date
Fri, 10 Jul 2009 11:10:00 -0700
changeset 1310
6a93908f268f
parent 866
a45484ea312d
child 1280
df6caf649ff7
permissions
-rw-r--r--

6857194: Add hotspot perf counters to aid class loading performance measurement
Summary: Add new jvmstat counters to measure detailed class loading time
Reviewed-by: acorn, kamg

     1 /*
     2  * Copyright 2000-2008 Sun Microsystems, Inc.  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 Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,
    20  * CA 95054 USA or visit www.sun.com if you need additional information or
    21  * have any questions.
    22  *
    23  */
    25 /*
    26  *      Implementation of class sun.misc.Unsafe
    27  */
    29 #include "incls/_precompiled.incl"
    30 #include "incls/_unsafe.cpp.incl"
    32 #define MAX_OBJECT_SIZE \
    33   ( arrayOopDesc::header_size(T_DOUBLE) * HeapWordSize \
    34     + ((julong)max_jint * sizeof(double)) )
    37 #define UNSAFE_ENTRY(result_type, header) \
    38   JVM_ENTRY(result_type, header)
    40 // Can't use UNSAFE_LEAF because it has the signature of a straight
    41 // call into the runtime (just like JVM_LEAF, funny that) but it's
    42 // called like a Java Native and thus the wrapper built for it passes
    43 // arguments like a JNI call.  It expects those arguments to be popped
    44 // from the stack on Intel like all good JNI args are, and adjusts the
    45 // stack according.  Since the JVM_LEAF call expects no extra
    46 // arguments the stack isn't popped in the C code, is pushed by the
    47 // wrapper and we get sick.
    48 //#define UNSAFE_LEAF(result_type, header) \
    49 //  JVM_LEAF(result_type, header)
    51 #define UNSAFE_END JVM_END
    53 #define UnsafeWrapper(arg) /*nothing, for the present*/
    56 inline void* addr_from_java(jlong addr) {
    57   // This assert fails in a variety of ways on 32-bit systems.
    58   // It is impossible to predict whether native code that converts
    59   // pointers to longs will sign-extend or zero-extend the addresses.
    60   //assert(addr == (uintptr_t)addr, "must not be odd high bits");
    61   return (void*)(uintptr_t)addr;
    62 }
    64 inline jlong addr_to_java(void* p) {
    65   assert(p == (void*)(uintptr_t)p, "must not be odd high bits");
    66   return (uintptr_t)p;
    67 }
    70 // Note: The VM's obj_field and related accessors use byte-scaled
    71 // ("unscaled") offsets, just as the unsafe methods do.
    73 // However, the method Unsafe.fieldOffset explicitly declines to
    74 // guarantee this.  The field offset values manipulated by the Java user
    75 // through the Unsafe API are opaque cookies that just happen to be byte
    76 // offsets.  We represent this state of affairs by passing the cookies
    77 // through conversion functions when going between the VM and the Unsafe API.
    78 // The conversion functions just happen to be no-ops at present.
    80 inline jlong field_offset_to_byte_offset(jlong field_offset) {
    81   return field_offset;
    82 }
    84 inline jlong field_offset_from_byte_offset(jlong byte_offset) {
    85   return byte_offset;
    86 }
    88 inline jint invocation_key_from_method_slot(jint slot) {
    89   return slot;
    90 }
    92 inline jint invocation_key_to_method_slot(jint key) {
    93   return key;
    94 }
    96 inline void* index_oop_from_field_offset_long(oop p, jlong field_offset) {
    97   jlong byte_offset = field_offset_to_byte_offset(field_offset);
    98 #ifdef ASSERT
    99   if (p != NULL) {
   100     assert(byte_offset >= 0 && byte_offset <= (jlong)MAX_OBJECT_SIZE, "sane offset");
   101     if (byte_offset == (jint)byte_offset) {
   102       void* ptr_plus_disp = (address)p + byte_offset;
   103       assert((void*)p->obj_field_addr<oop>((jint)byte_offset) == ptr_plus_disp,
   104              "raw [ptr+disp] must be consistent with oop::field_base");
   105     }
   106   }
   107 #endif
   108   if (sizeof(char*) == sizeof(jint))    // (this constant folds!)
   109     return (address)p + (jint) byte_offset;
   110   else
   111     return (address)p +        byte_offset;
   112 }
   114 // Externally callable versions:
   115 // (Use these in compiler intrinsics which emulate unsafe primitives.)
   116 jlong Unsafe_field_offset_to_byte_offset(jlong field_offset) {
   117   return field_offset;
   118 }
   119 jlong Unsafe_field_offset_from_byte_offset(jlong byte_offset) {
   120   return byte_offset;
   121 }
   122 jint Unsafe_invocation_key_from_method_slot(jint slot) {
   123   return invocation_key_from_method_slot(slot);
   124 }
   125 jint Unsafe_invocation_key_to_method_slot(jint key) {
   126   return invocation_key_to_method_slot(key);
   127 }
   130 ///// Data in the Java heap.
   132 #define GET_FIELD(obj, offset, type_name, v) \
   133   oop p = JNIHandles::resolve(obj); \
   134   type_name v = *(type_name*)index_oop_from_field_offset_long(p, offset)
   136 #define SET_FIELD(obj, offset, type_name, x) \
   137   oop p = JNIHandles::resolve(obj); \
   138   *(type_name*)index_oop_from_field_offset_long(p, offset) = x
   140 #define GET_FIELD_VOLATILE(obj, offset, type_name, v) \
   141   oop p = JNIHandles::resolve(obj); \
   142   volatile type_name v = *(volatile type_name*)index_oop_from_field_offset_long(p, offset)
   144 #define SET_FIELD_VOLATILE(obj, offset, type_name, x) \
   145   oop p = JNIHandles::resolve(obj); \
   146   *(volatile type_name*)index_oop_from_field_offset_long(p, offset) = x; \
   147   OrderAccess::fence();
   149 // Macros for oops that check UseCompressedOops
   151 #define GET_OOP_FIELD(obj, offset, v) \
   152   oop p = JNIHandles::resolve(obj);   \
   153   oop v;                              \
   154   if (UseCompressedOops) {            \
   155     narrowOop n = *(narrowOop*)index_oop_from_field_offset_long(p, offset); \
   156     v = oopDesc::decode_heap_oop(n);                                \
   157   } else {                            \
   158     v = *(oop*)index_oop_from_field_offset_long(p, offset);                 \
   159   }
   161 #define GET_OOP_FIELD_VOLATILE(obj, offset, v) \
   162   oop p = JNIHandles::resolve(obj);   \
   163   volatile oop v;                     \
   164   if (UseCompressedOops) {            \
   165     volatile narrowOop n = *(volatile narrowOop*)index_oop_from_field_offset_long(p, offset); \
   166     v = oopDesc::decode_heap_oop(n);                               \
   167   } else {                            \
   168     v = *(volatile oop*)index_oop_from_field_offset_long(p, offset);       \
   169   }
   172 // Get/SetObject must be special-cased, since it works with handles.
   174 // The xxx140 variants for backward compatibility do not allow a full-width offset.
   175 UNSAFE_ENTRY(jobject, Unsafe_GetObject140(JNIEnv *env, jobject unsafe, jobject obj, jint offset))
   176   UnsafeWrapper("Unsafe_GetObject");
   177   if (obj == NULL)  THROW_0(vmSymbols::java_lang_NullPointerException());
   178   GET_OOP_FIELD(obj, offset, v)
   179   return JNIHandles::make_local(env, v);
   180 UNSAFE_END
   182 UNSAFE_ENTRY(void, Unsafe_SetObject140(JNIEnv *env, jobject unsafe, jobject obj, jint offset, jobject x_h))
   183   UnsafeWrapper("Unsafe_SetObject");
   184   if (obj == NULL)  THROW(vmSymbols::java_lang_NullPointerException());
   185   oop x = JNIHandles::resolve(x_h);
   186   //SET_FIELD(obj, offset, oop, x);
   187   oop p = JNIHandles::resolve(obj);
   188   if (UseCompressedOops) {
   189     if (x != NULL) {
   190       // If there is a heap base pointer, we are obliged to emit a store barrier.
   191       oop_store((narrowOop*)index_oop_from_field_offset_long(p, offset), x);
   192     } else {
   193       narrowOop n = oopDesc::encode_heap_oop_not_null(x);
   194       *(narrowOop*)index_oop_from_field_offset_long(p, offset) = n;
   195     }
   196   } else {
   197     if (x != NULL) {
   198       // If there is a heap base pointer, we are obliged to emit a store barrier.
   199       oop_store((oop*)index_oop_from_field_offset_long(p, offset), x);
   200     } else {
   201       *(oop*)index_oop_from_field_offset_long(p, offset) = x;
   202     }
   203   }
   204 UNSAFE_END
   206 // The normal variants allow a null base pointer with an arbitrary address.
   207 // But if the base pointer is non-null, the offset should make some sense.
   208 // That is, it should be in the range [0, MAX_OBJECT_SIZE].
   209 UNSAFE_ENTRY(jobject, Unsafe_GetObject(JNIEnv *env, jobject unsafe, jobject obj, jlong offset))
   210   UnsafeWrapper("Unsafe_GetObject");
   211   GET_OOP_FIELD(obj, offset, v)
   212   return JNIHandles::make_local(env, v);
   213 UNSAFE_END
   215 UNSAFE_ENTRY(void, Unsafe_SetObject(JNIEnv *env, jobject unsafe, jobject obj, jlong offset, jobject x_h))
   216   UnsafeWrapper("Unsafe_SetObject");
   217   oop x = JNIHandles::resolve(x_h);
   218   oop p = JNIHandles::resolve(obj);
   219   if (UseCompressedOops) {
   220     oop_store((narrowOop*)index_oop_from_field_offset_long(p, offset), x);
   221   } else {
   222     oop_store((oop*)index_oop_from_field_offset_long(p, offset), x);
   223   }
   224 UNSAFE_END
   226 UNSAFE_ENTRY(jobject, Unsafe_GetObjectVolatile(JNIEnv *env, jobject unsafe, jobject obj, jlong offset))
   227   UnsafeWrapper("Unsafe_GetObjectVolatile");
   228   GET_OOP_FIELD_VOLATILE(obj, offset, v)
   229   return JNIHandles::make_local(env, v);
   230 UNSAFE_END
   232 UNSAFE_ENTRY(void, Unsafe_SetObjectVolatile(JNIEnv *env, jobject unsafe, jobject obj, jlong offset, jobject x_h))
   233   UnsafeWrapper("Unsafe_SetObjectVolatile");
   234   oop x = JNIHandles::resolve(x_h);
   235   oop p = JNIHandles::resolve(obj);
   236   if (UseCompressedOops) {
   237     oop_store((narrowOop*)index_oop_from_field_offset_long(p, offset), x);
   238   } else {
   239     oop_store((oop*)index_oop_from_field_offset_long(p, offset), x);
   240   }
   241   OrderAccess::fence();
   242 UNSAFE_END
   244 // Volatile long versions must use locks if !VM_Version::supports_cx8().
   245 // support_cx8 is a surrogate for 'supports atomic long memory ops'.
   247 UNSAFE_ENTRY(jlong, Unsafe_GetLongVolatile(JNIEnv *env, jobject unsafe, jobject obj, jlong offset))
   248   UnsafeWrapper("Unsafe_GetLongVolatile");
   249   {
   250     if (VM_Version::supports_cx8()) {
   251       GET_FIELD_VOLATILE(obj, offset, jlong, v);
   252       return v;
   253     }
   254     else {
   255       Handle p (THREAD, JNIHandles::resolve(obj));
   256       jlong* addr = (jlong*)(index_oop_from_field_offset_long(p(), offset));
   257       ObjectLocker ol(p, THREAD);
   258       jlong value = *addr;
   259       return value;
   260     }
   261   }
   262 UNSAFE_END
   264 UNSAFE_ENTRY(void, Unsafe_SetLongVolatile(JNIEnv *env, jobject unsafe, jobject obj, jlong offset, jlong x))
   265   UnsafeWrapper("Unsafe_SetLongVolatile");
   266   {
   267     if (VM_Version::supports_cx8()) {
   268       SET_FIELD_VOLATILE(obj, offset, jlong, x);
   269     }
   270     else {
   271       Handle p (THREAD, JNIHandles::resolve(obj));
   272       jlong* addr = (jlong*)(index_oop_from_field_offset_long(p(), offset));
   273       ObjectLocker ol(p, THREAD);
   274       *addr = x;
   275     }
   276   }
   277 UNSAFE_END
   280 #define DEFINE_GETSETOOP(jboolean, Boolean) \
   281  \
   282 UNSAFE_ENTRY(jboolean, Unsafe_Get##Boolean##140(JNIEnv *env, jobject unsafe, jobject obj, jint offset)) \
   283   UnsafeWrapper("Unsafe_Get"#Boolean); \
   284   if (obj == NULL)  THROW_0(vmSymbols::java_lang_NullPointerException()); \
   285   GET_FIELD(obj, offset, jboolean, v); \
   286   return v; \
   287 UNSAFE_END \
   288  \
   289 UNSAFE_ENTRY(void, Unsafe_Set##Boolean##140(JNIEnv *env, jobject unsafe, jobject obj, jint offset, jboolean x)) \
   290   UnsafeWrapper("Unsafe_Set"#Boolean); \
   291   if (obj == NULL)  THROW(vmSymbols::java_lang_NullPointerException()); \
   292   SET_FIELD(obj, offset, jboolean, x); \
   293 UNSAFE_END \
   294  \
   295 UNSAFE_ENTRY(jboolean, Unsafe_Get##Boolean(JNIEnv *env, jobject unsafe, jobject obj, jlong offset)) \
   296   UnsafeWrapper("Unsafe_Get"#Boolean); \
   297   GET_FIELD(obj, offset, jboolean, v); \
   298   return v; \
   299 UNSAFE_END \
   300  \
   301 UNSAFE_ENTRY(void, Unsafe_Set##Boolean(JNIEnv *env, jobject unsafe, jobject obj, jlong offset, jboolean x)) \
   302   UnsafeWrapper("Unsafe_Set"#Boolean); \
   303   SET_FIELD(obj, offset, jboolean, x); \
   304 UNSAFE_END \
   305  \
   306 // END DEFINE_GETSETOOP.
   309 #define DEFINE_GETSETOOP_VOLATILE(jboolean, Boolean) \
   310  \
   311 UNSAFE_ENTRY(jboolean, Unsafe_Get##Boolean##Volatile(JNIEnv *env, jobject unsafe, jobject obj, jlong offset)) \
   312   UnsafeWrapper("Unsafe_Get"#Boolean); \
   313   GET_FIELD_VOLATILE(obj, offset, jboolean, v); \
   314   return v; \
   315 UNSAFE_END \
   316  \
   317 UNSAFE_ENTRY(void, Unsafe_Set##Boolean##Volatile(JNIEnv *env, jobject unsafe, jobject obj, jlong offset, jboolean x)) \
   318   UnsafeWrapper("Unsafe_Set"#Boolean); \
   319   SET_FIELD_VOLATILE(obj, offset, jboolean, x); \
   320 UNSAFE_END \
   321  \
   322 // END DEFINE_GETSETOOP_VOLATILE.
   324 DEFINE_GETSETOOP(jboolean, Boolean)
   325 DEFINE_GETSETOOP(jbyte, Byte)
   326 DEFINE_GETSETOOP(jshort, Short);
   327 DEFINE_GETSETOOP(jchar, Char);
   328 DEFINE_GETSETOOP(jint, Int);
   329 DEFINE_GETSETOOP(jlong, Long);
   330 DEFINE_GETSETOOP(jfloat, Float);
   331 DEFINE_GETSETOOP(jdouble, Double);
   333 DEFINE_GETSETOOP_VOLATILE(jboolean, Boolean)
   334 DEFINE_GETSETOOP_VOLATILE(jbyte, Byte)
   335 DEFINE_GETSETOOP_VOLATILE(jshort, Short);
   336 DEFINE_GETSETOOP_VOLATILE(jchar, Char);
   337 DEFINE_GETSETOOP_VOLATILE(jint, Int);
   338 // no long -- handled specially
   339 DEFINE_GETSETOOP_VOLATILE(jfloat, Float);
   340 DEFINE_GETSETOOP_VOLATILE(jdouble, Double);
   342 #undef DEFINE_GETSETOOP
   344 // The non-intrinsified versions of setOrdered just use setVolatile
   346 UNSAFE_ENTRY(void, Unsafe_SetOrderedInt(JNIEnv *env, jobject unsafe, jobject obj, jlong offset, jint x)) \
   347   UnsafeWrapper("Unsafe_SetOrderedInt"); \
   348   SET_FIELD_VOLATILE(obj, offset, jint, x); \
   349 UNSAFE_END
   351 UNSAFE_ENTRY(void, Unsafe_SetOrderedObject(JNIEnv *env, jobject unsafe, jobject obj, jlong offset, jobject x_h))
   352   UnsafeWrapper("Unsafe_SetOrderedObject");
   353   oop x = JNIHandles::resolve(x_h);
   354   oop p = JNIHandles::resolve(obj);
   355   if (UseCompressedOops) {
   356     oop_store((narrowOop*)index_oop_from_field_offset_long(p, offset), x);
   357   } else {
   358     oop_store((oop*)index_oop_from_field_offset_long(p, offset), x);
   359   }
   360   OrderAccess::fence();
   361 UNSAFE_END
   363 UNSAFE_ENTRY(void, Unsafe_SetOrderedLong(JNIEnv *env, jobject unsafe, jobject obj, jlong offset, jlong x))
   364   UnsafeWrapper("Unsafe_SetOrderedLong");
   365   {
   366     if (VM_Version::supports_cx8()) {
   367       SET_FIELD_VOLATILE(obj, offset, jlong, x);
   368     }
   369     else {
   370       Handle p (THREAD, JNIHandles::resolve(obj));
   371       jlong* addr = (jlong*)(index_oop_from_field_offset_long(p(), offset));
   372       ObjectLocker ol(p, THREAD);
   373       *addr = x;
   374     }
   375   }
   376 UNSAFE_END
   378 ////// Data in the C heap.
   380 // Note:  These do not throw NullPointerException for bad pointers.
   381 // They just crash.  Only a oop base pointer can generate a NullPointerException.
   382 //
   383 #define DEFINE_GETSETNATIVE(java_type, Type, native_type) \
   384  \
   385 UNSAFE_ENTRY(java_type, Unsafe_GetNative##Type(JNIEnv *env, jobject unsafe, jlong addr)) \
   386   UnsafeWrapper("Unsafe_GetNative"#Type); \
   387   void* p = addr_from_java(addr); \
   388   JavaThread* t = JavaThread::current(); \
   389   t->set_doing_unsafe_access(true); \
   390   java_type x = *(volatile native_type*)p; \
   391   t->set_doing_unsafe_access(false); \
   392   return x; \
   393 UNSAFE_END \
   394  \
   395 UNSAFE_ENTRY(void, Unsafe_SetNative##Type(JNIEnv *env, jobject unsafe, jlong addr, java_type x)) \
   396   UnsafeWrapper("Unsafe_SetNative"#Type); \
   397   JavaThread* t = JavaThread::current(); \
   398   t->set_doing_unsafe_access(true); \
   399   void* p = addr_from_java(addr); \
   400   *(volatile native_type*)p = x; \
   401   t->set_doing_unsafe_access(false); \
   402 UNSAFE_END \
   403  \
   404 // END DEFINE_GETSETNATIVE.
   406 DEFINE_GETSETNATIVE(jbyte, Byte, signed char)
   407 DEFINE_GETSETNATIVE(jshort, Short, signed short);
   408 DEFINE_GETSETNATIVE(jchar, Char, unsigned short);
   409 DEFINE_GETSETNATIVE(jint, Int, jint);
   410 // no long -- handled specially
   411 DEFINE_GETSETNATIVE(jfloat, Float, float);
   412 DEFINE_GETSETNATIVE(jdouble, Double, double);
   414 #undef DEFINE_GETSETNATIVE
   416 UNSAFE_ENTRY(jlong, Unsafe_GetNativeLong(JNIEnv *env, jobject unsafe, jlong addr))
   417   UnsafeWrapper("Unsafe_GetNativeLong");
   418   JavaThread* t = JavaThread::current();
   419   // We do it this way to avoid problems with access to heap using 64
   420   // bit loads, as jlong in heap could be not 64-bit aligned, and on
   421   // some CPUs (SPARC) it leads to SIGBUS.
   422   t->set_doing_unsafe_access(true);
   423   void* p = addr_from_java(addr);
   424   jlong x;
   425   if (((intptr_t)p & 7) == 0) {
   426     // jlong is aligned, do a volatile access
   427     x = *(volatile jlong*)p;
   428   } else {
   429     jlong_accessor acc;
   430     acc.words[0] = ((volatile jint*)p)[0];
   431     acc.words[1] = ((volatile jint*)p)[1];
   432     x = acc.long_value;
   433   }
   434   t->set_doing_unsafe_access(false);
   435   return x;
   436 UNSAFE_END
   438 UNSAFE_ENTRY(void, Unsafe_SetNativeLong(JNIEnv *env, jobject unsafe, jlong addr, jlong x))
   439   UnsafeWrapper("Unsafe_SetNativeLong");
   440   JavaThread* t = JavaThread::current();
   441   // see comment for Unsafe_GetNativeLong
   442   t->set_doing_unsafe_access(true);
   443   void* p = addr_from_java(addr);
   444   if (((intptr_t)p & 7) == 0) {
   445     // jlong is aligned, do a volatile access
   446     *(volatile jlong*)p = x;
   447   } else {
   448     jlong_accessor acc;
   449     acc.long_value = x;
   450     ((volatile jint*)p)[0] = acc.words[0];
   451     ((volatile jint*)p)[1] = acc.words[1];
   452   }
   453   t->set_doing_unsafe_access(false);
   454 UNSAFE_END
   457 UNSAFE_ENTRY(jlong, Unsafe_GetNativeAddress(JNIEnv *env, jobject unsafe, jlong addr))
   458   UnsafeWrapper("Unsafe_GetNativeAddress");
   459   void* p = addr_from_java(addr);
   460   return addr_to_java(*(void**)p);
   461 UNSAFE_END
   463 UNSAFE_ENTRY(void, Unsafe_SetNativeAddress(JNIEnv *env, jobject unsafe, jlong addr, jlong x))
   464   UnsafeWrapper("Unsafe_SetNativeAddress");
   465   void* p = addr_from_java(addr);
   466   *(void**)p = addr_from_java(x);
   467 UNSAFE_END
   470 ////// Allocation requests
   472 UNSAFE_ENTRY(jobject, Unsafe_AllocateInstance(JNIEnv *env, jobject unsafe, jclass cls))
   473   UnsafeWrapper("Unsafe_AllocateInstance");
   474   {
   475     ThreadToNativeFromVM ttnfv(thread);
   476     return env->AllocObject(cls);
   477   }
   478 UNSAFE_END
   480 UNSAFE_ENTRY(jlong, Unsafe_AllocateMemory(JNIEnv *env, jobject unsafe, jlong size))
   481   UnsafeWrapper("Unsafe_AllocateMemory");
   482   size_t sz = (size_t)size;
   483   if (sz != (julong)size || size < 0) {
   484     THROW_0(vmSymbols::java_lang_IllegalArgumentException());
   485   }
   486   if (sz == 0) {
   487     return 0;
   488   }
   489   sz = round_to(sz, HeapWordSize);
   490   void* x = os::malloc(sz);
   491   if (x == NULL) {
   492     THROW_0(vmSymbols::java_lang_OutOfMemoryError());
   493   }
   494   //Copy::fill_to_words((HeapWord*)x, sz / HeapWordSize);
   495   return addr_to_java(x);
   496 UNSAFE_END
   498 UNSAFE_ENTRY(jlong, Unsafe_ReallocateMemory(JNIEnv *env, jobject unsafe, jlong addr, jlong size))
   499   UnsafeWrapper("Unsafe_ReallocateMemory");
   500   void* p = addr_from_java(addr);
   501   size_t sz = (size_t)size;
   502   if (sz != (julong)size || size < 0) {
   503     THROW_0(vmSymbols::java_lang_IllegalArgumentException());
   504   }
   505   if (sz == 0) {
   506     os::free(p);
   507     return 0;
   508   }
   509   sz = round_to(sz, HeapWordSize);
   510   void* x = (p == NULL) ? os::malloc(sz) : os::realloc(p, sz);
   511   if (x == NULL) {
   512     THROW_0(vmSymbols::java_lang_OutOfMemoryError());
   513   }
   514   return addr_to_java(x);
   515 UNSAFE_END
   517 UNSAFE_ENTRY(void, Unsafe_FreeMemory(JNIEnv *env, jobject unsafe, jlong addr))
   518   UnsafeWrapper("Unsafe_FreeMemory");
   519   void* p = addr_from_java(addr);
   520   if (p == NULL) {
   521     return;
   522   }
   523   os::free(p);
   524 UNSAFE_END
   526 UNSAFE_ENTRY(void, Unsafe_SetMemory(JNIEnv *env, jobject unsafe, jlong addr, jlong size, jbyte value))
   527   UnsafeWrapper("Unsafe_SetMemory");
   528   size_t sz = (size_t)size;
   529   if (sz != (julong)size || size < 0) {
   530     THROW(vmSymbols::java_lang_IllegalArgumentException());
   531   }
   532   char* p = (char*) addr_from_java(addr);
   533   Copy::fill_to_memory_atomic(p, sz, value);
   534 UNSAFE_END
   536 UNSAFE_ENTRY(void, Unsafe_SetMemory2(JNIEnv *env, jobject unsafe, jobject obj, jlong offset, jlong size, jbyte value))
   537   UnsafeWrapper("Unsafe_SetMemory");
   538   size_t sz = (size_t)size;
   539   if (sz != (julong)size || size < 0) {
   540     THROW(vmSymbols::java_lang_IllegalArgumentException());
   541   }
   542   oop base = JNIHandles::resolve(obj);
   543   void* p = index_oop_from_field_offset_long(base, offset);
   544   Copy::fill_to_memory_atomic(p, sz, value);
   545 UNSAFE_END
   547 UNSAFE_ENTRY(void, Unsafe_CopyMemory(JNIEnv *env, jobject unsafe, jlong srcAddr, jlong dstAddr, jlong size))
   548   UnsafeWrapper("Unsafe_CopyMemory");
   549   if (size == 0) {
   550     return;
   551   }
   552   size_t sz = (size_t)size;
   553   if (sz != (julong)size || size < 0) {
   554     THROW(vmSymbols::java_lang_IllegalArgumentException());
   555   }
   556   void* src = addr_from_java(srcAddr);
   557   void* dst = addr_from_java(dstAddr);
   558   Copy::conjoint_memory_atomic(src, dst, sz);
   559 UNSAFE_END
   561 UNSAFE_ENTRY(void, Unsafe_CopyMemory2(JNIEnv *env, jobject unsafe, jobject srcObj, jlong srcOffset, jobject dstObj, jlong dstOffset, jlong size))
   562   UnsafeWrapper("Unsafe_CopyMemory");
   563   if (size == 0) {
   564     return;
   565   }
   566   size_t sz = (size_t)size;
   567   if (sz != (julong)size || size < 0) {
   568     THROW(vmSymbols::java_lang_IllegalArgumentException());
   569   }
   570   oop srcp = JNIHandles::resolve(srcObj);
   571   oop dstp = JNIHandles::resolve(dstObj);
   572   if (dstp != NULL && !dstp->is_typeArray()) {
   573     // NYI:  This works only for non-oop arrays at present.
   574     // Generalizing it would be reasonable, but requires card marking.
   575     // Also, autoboxing a Long from 0L in copyMemory(x,y, 0L,z, n) would be bad.
   576     THROW(vmSymbols::java_lang_IllegalArgumentException());
   577   }
   578   void* src = index_oop_from_field_offset_long(srcp, srcOffset);
   579   void* dst = index_oop_from_field_offset_long(dstp, dstOffset);
   580   Copy::conjoint_memory_atomic(src, dst, sz);
   581 UNSAFE_END
   584 ////// Random queries
   586 // See comment at file start about UNSAFE_LEAF
   587 //UNSAFE_LEAF(jint, Unsafe_AddressSize())
   588 UNSAFE_ENTRY(jint, Unsafe_AddressSize(JNIEnv *env, jobject unsafe))
   589   UnsafeWrapper("Unsafe_AddressSize");
   590   return sizeof(void*);
   591 UNSAFE_END
   593 // See comment at file start about UNSAFE_LEAF
   594 //UNSAFE_LEAF(jint, Unsafe_PageSize())
   595 UNSAFE_ENTRY(jint, Unsafe_PageSize(JNIEnv *env, jobject unsafe))
   596   UnsafeWrapper("Unsafe_PageSize");
   597   return os::vm_page_size();
   598 UNSAFE_END
   600 jint find_field_offset(jobject field, int must_be_static, TRAPS) {
   601   if (field == NULL) {
   602     THROW_0(vmSymbols::java_lang_NullPointerException());
   603   }
   605   oop reflected   = JNIHandles::resolve_non_null(field);
   606   oop mirror      = java_lang_reflect_Field::clazz(reflected);
   607   klassOop k      = java_lang_Class::as_klassOop(mirror);
   608   int slot        = java_lang_reflect_Field::slot(reflected);
   609   int modifiers   = java_lang_reflect_Field::modifiers(reflected);
   611   if (must_be_static >= 0) {
   612     int really_is_static = ((modifiers & JVM_ACC_STATIC) != 0);
   613     if (must_be_static != really_is_static) {
   614       THROW_0(vmSymbols::java_lang_IllegalArgumentException());
   615     }
   616   }
   618   int offset = instanceKlass::cast(k)->offset_from_fields(slot);
   619   return field_offset_from_byte_offset(offset);
   620 }
   622 UNSAFE_ENTRY(jlong, Unsafe_ObjectFieldOffset(JNIEnv *env, jobject unsafe, jobject field))
   623   UnsafeWrapper("Unsafe_ObjectFieldOffset");
   624   return find_field_offset(field, 0, THREAD);
   625 UNSAFE_END
   627 UNSAFE_ENTRY(jlong, Unsafe_StaticFieldOffset(JNIEnv *env, jobject unsafe, jobject field))
   628   UnsafeWrapper("Unsafe_StaticFieldOffset");
   629   return find_field_offset(field, 1, THREAD);
   630 UNSAFE_END
   632 UNSAFE_ENTRY(jobject, Unsafe_StaticFieldBaseFromField(JNIEnv *env, jobject unsafe, jobject field))
   633   UnsafeWrapper("Unsafe_StaticFieldBase");
   634   // Note:  In this VM implementation, a field address is always a short
   635   // offset from the base of a a klass metaobject.  Thus, the full dynamic
   636   // range of the return type is never used.  However, some implementations
   637   // might put the static field inside an array shared by many classes,
   638   // or even at a fixed address, in which case the address could be quite
   639   // large.  In that last case, this function would return NULL, since
   640   // the address would operate alone, without any base pointer.
   642   if (field == NULL)  THROW_0(vmSymbols::java_lang_NullPointerException());
   644   oop reflected   = JNIHandles::resolve_non_null(field);
   645   oop mirror      = java_lang_reflect_Field::clazz(reflected);
   646   int modifiers   = java_lang_reflect_Field::modifiers(reflected);
   648   if ((modifiers & JVM_ACC_STATIC) == 0) {
   649     THROW_0(vmSymbols::java_lang_IllegalArgumentException());
   650   }
   652   return JNIHandles::make_local(env, java_lang_Class::as_klassOop(mirror));
   653 UNSAFE_END
   655 //@deprecated
   656 UNSAFE_ENTRY(jint, Unsafe_FieldOffset(JNIEnv *env, jobject unsafe, jobject field))
   657   UnsafeWrapper("Unsafe_FieldOffset");
   658   // tries (but fails) to be polymorphic between static and non-static:
   659   jlong offset = find_field_offset(field, -1, THREAD);
   660   guarantee(offset == (jint)offset, "offset fits in 32 bits");
   661   return (jint)offset;
   662 UNSAFE_END
   664 //@deprecated
   665 UNSAFE_ENTRY(jobject, Unsafe_StaticFieldBaseFromClass(JNIEnv *env, jobject unsafe, jobject clazz))
   666   UnsafeWrapper("Unsafe_StaticFieldBase");
   667   if (clazz == NULL) {
   668     THROW_0(vmSymbols::java_lang_NullPointerException());
   669   }
   670   return JNIHandles::make_local(env, java_lang_Class::as_klassOop(JNIHandles::resolve_non_null(clazz)));
   671 UNSAFE_END
   673 UNSAFE_ENTRY(void, Unsafe_EnsureClassInitialized(JNIEnv *env, jobject unsafe, jobject clazz))
   674   UnsafeWrapper("Unsafe_EnsureClassInitialized");
   675   if (clazz == NULL) {
   676     THROW(vmSymbols::java_lang_NullPointerException());
   677   }
   678   oop mirror = JNIHandles::resolve_non_null(clazz);
   679   instanceKlass* k = instanceKlass::cast(java_lang_Class::as_klassOop(mirror));
   680   if (k != NULL) {
   681     k->initialize(CHECK);
   682   }
   683 UNSAFE_END
   685 static void getBaseAndScale(int& base, int& scale, jclass acls, TRAPS) {
   686   if (acls == NULL) {
   687     THROW(vmSymbols::java_lang_NullPointerException());
   688   }
   689   oop      mirror = JNIHandles::resolve_non_null(acls);
   690   klassOop k      = java_lang_Class::as_klassOop(mirror);
   691   if (k == NULL || !k->klass_part()->oop_is_array()) {
   692     THROW(vmSymbols::java_lang_InvalidClassException());
   693   } else if (k->klass_part()->oop_is_objArray()) {
   694     base  = arrayOopDesc::base_offset_in_bytes(T_OBJECT);
   695     scale = heapOopSize;
   696   } else if (k->klass_part()->oop_is_typeArray()) {
   697     typeArrayKlass* tak = typeArrayKlass::cast(k);
   698     base  = tak->array_header_in_bytes();
   699     assert(base == arrayOopDesc::base_offset_in_bytes(tak->element_type()), "array_header_size semantics ok");
   700     scale = (1 << tak->log2_element_size());
   701   } else {
   702     ShouldNotReachHere();
   703   }
   704 }
   706 UNSAFE_ENTRY(jint, Unsafe_ArrayBaseOffset(JNIEnv *env, jobject unsafe, jclass acls))
   707   UnsafeWrapper("Unsafe_ArrayBaseOffset");
   708   int base, scale;
   709   getBaseAndScale(base, scale, acls, CHECK_0);
   710   return field_offset_from_byte_offset(base);
   711 UNSAFE_END
   714 UNSAFE_ENTRY(jint, Unsafe_ArrayIndexScale(JNIEnv *env, jobject unsafe, jclass acls))
   715   UnsafeWrapper("Unsafe_ArrayIndexScale");
   716   int base, scale;
   717   getBaseAndScale(base, scale, acls, CHECK_0);
   718   // This VM packs both fields and array elements down to the byte.
   719   // But watch out:  If this changes, so that array references for
   720   // a given primitive type (say, T_BOOLEAN) use different memory units
   721   // than fields, this method MUST return zero for such arrays.
   722   // For example, the VM used to store sub-word sized fields in full
   723   // words in the object layout, so that accessors like getByte(Object,int)
   724   // did not really do what one might expect for arrays.  Therefore,
   725   // this function used to report a zero scale factor, so that the user
   726   // would know not to attempt to access sub-word array elements.
   727   // // Code for unpacked fields:
   728   // if (scale < wordSize)  return 0;
   730   // The following allows for a pretty general fieldOffset cookie scheme,
   731   // but requires it to be linear in byte offset.
   732   return field_offset_from_byte_offset(scale) - field_offset_from_byte_offset(0);
   733 UNSAFE_END
   736 static inline void throw_new(JNIEnv *env, const char *ename) {
   737   char buf[100];
   738   strcpy(buf, "java/lang/");
   739   strcat(buf, ename);
   740   jclass cls = env->FindClass(buf);
   741   char* msg = NULL;
   742   env->ThrowNew(cls, msg);
   743 }
   745 static jclass Unsafe_DefineClass(JNIEnv *env, jstring name, jbyteArray data, int offset, int length, jobject loader, jobject pd) {
   746   {
   747     // Code lifted from JDK 1.3 ClassLoader.c
   749     jbyte *body;
   750     char *utfName;
   751     jclass result = 0;
   752     char buf[128];
   754     if (UsePerfData) {
   755       ClassLoader::unsafe_defineClassCallCounter()->inc();
   756     }
   758     if (data == NULL) {
   759         throw_new(env, "NullPointerException");
   760         return 0;
   761     }
   763     /* Work around 4153825. malloc crashes on Solaris when passed a
   764      * negative size.
   765      */
   766     if (length < 0) {
   767         throw_new(env, "ArrayIndexOutOfBoundsException");
   768         return 0;
   769     }
   771     body = NEW_C_HEAP_ARRAY(jbyte, length);
   773     if (body == 0) {
   774         throw_new(env, "OutOfMemoryError");
   775         return 0;
   776     }
   778     env->GetByteArrayRegion(data, offset, length, body);
   780     if (env->ExceptionOccurred())
   781         goto free_body;
   783     if (name != NULL) {
   784         uint len = env->GetStringUTFLength(name);
   785         int unicode_len = env->GetStringLength(name);
   786         if (len >= sizeof(buf)) {
   787             utfName = NEW_C_HEAP_ARRAY(char, len + 1);
   788             if (utfName == NULL) {
   789                 throw_new(env, "OutOfMemoryError");
   790                 goto free_body;
   791             }
   792         } else {
   793             utfName = buf;
   794         }
   795         env->GetStringUTFRegion(name, 0, unicode_len, utfName);
   796         //VerifyFixClassname(utfName);
   797         for (uint i = 0; i < len; i++) {
   798           if (utfName[i] == '.')   utfName[i] = '/';
   799         }
   800     } else {
   801         utfName = NULL;
   802     }
   804     result = JVM_DefineClass(env, utfName, loader, body, length, pd);
   806     if (utfName && utfName != buf)
   807         FREE_C_HEAP_ARRAY(char, utfName);
   809  free_body:
   810     FREE_C_HEAP_ARRAY(jbyte, body);
   811     return result;
   812   }
   813 }
   816 UNSAFE_ENTRY(jclass, Unsafe_DefineClass0(JNIEnv *env, jobject unsafe, jstring name, jbyteArray data, int offset, int length))
   817   UnsafeWrapper("Unsafe_DefineClass");
   818   {
   819     ThreadToNativeFromVM ttnfv(thread);
   821     int depthFromDefineClass0 = 1;
   822     jclass  caller = JVM_GetCallerClass(env, depthFromDefineClass0);
   823     jobject loader = (caller == NULL) ? NULL : JVM_GetClassLoader(env, caller);
   824     jobject pd     = (caller == NULL) ? NULL : JVM_GetProtectionDomain(env, caller);
   826     return Unsafe_DefineClass(env, name, data, offset, length, loader, pd);
   827   }
   828 UNSAFE_END
   831 UNSAFE_ENTRY(jclass, Unsafe_DefineClass1(JNIEnv *env, jobject unsafe, jstring name, jbyteArray data, int offset, int length, jobject loader, jobject pd))
   832   UnsafeWrapper("Unsafe_DefineClass");
   833   {
   834     ThreadToNativeFromVM ttnfv(thread);
   836     return Unsafe_DefineClass(env, name, data, offset, length, loader, pd);
   837   }
   838 UNSAFE_END
   840 #define DAC_Args CLS"[B["OBJ
   841 // define a class but do not make it known to the class loader or system dictionary
   842 // - host_class:  supplies context for linkage, access control, protection domain, and class loader
   843 // - data:  bytes of a class file, a raw memory address (length gives the number of bytes)
   844 // - cp_patches:  where non-null entries exist, they replace corresponding CP entries in data
   846 // When you load an anonymous class U, it works as if you changed its name just before loading,
   847 // to a name that you will never use again.  Since the name is lost, no other class can directly
   848 // link to any member of U.  Just after U is loaded, the only way to use it is reflectively,
   849 // through java.lang.Class methods like Class.newInstance.
   851 // Access checks for linkage sites within U continue to follow the same rules as for named classes.
   852 // The package of an anonymous class is given by the package qualifier on the name under which it was loaded.
   853 // An anonymous class also has special privileges to access any member of its host class.
   854 // This is the main reason why this loading operation is unsafe.  The purpose of this is to
   855 // allow language implementations to simulate "open classes"; a host class in effect gets
   856 // new code when an anonymous class is loaded alongside it.  A less convenient but more
   857 // standard way to do this is with reflection, which can also be set to ignore access
   858 // restrictions.
   860 // Access into an anonymous class is possible only through reflection.  Therefore, there
   861 // are no special access rules for calling into an anonymous class.  The relaxed access
   862 // rule for the host class is applied in the opposite direction:  A host class reflectively
   863 // access one of its anonymous classes.
   865 // If you load the same bytecodes twice, you get two different classes.  You can reload
   866 // the same bytecodes with or without varying CP patches.
   868 // By using the CP patching array, you can have a new anonymous class U2 refer to an older one U1.
   869 // The bytecodes for U2 should refer to U1 by a symbolic name (doesn't matter what the name is).
   870 // The CONSTANT_Class entry for that name can be patched to refer directly to U1.
   872 // This allows, for example, U2 to use U1 as a superclass or super-interface, or as
   873 // an outer class (so that U2 is an anonymous inner class of anonymous U1).
   874 // It is not possible for a named class, or an older anonymous class, to refer by
   875 // name (via its CP) to a newer anonymous class.
   877 // CP patching may also be used to modify (i.e., hack) the names of methods, classes,
   878 // or type descriptors used in the loaded anonymous class.
   880 // Finally, CP patching may be used to introduce "live" objects into the constant pool,
   881 // instead of "dead" strings.  A compiled statement like println((Object)"hello") can
   882 // be changed to println(greeting), where greeting is an arbitrary object created before
   883 // the anonymous class is loaded.  This is useful in dynamic languages, in which
   884 // various kinds of metaobjects must be introduced as constants into bytecode.
   885 // Note the cast (Object), which tells the verifier to expect an arbitrary object,
   886 // not just a literal string.  For such ldc instructions, the verifier uses the
   887 // type Object instead of String, if the loaded constant is not in fact a String.
   889 static oop
   890 Unsafe_DefineAnonymousClass_impl(JNIEnv *env,
   891                                  jclass host_class, jbyteArray data, jobjectArray cp_patches_jh,
   892                                  HeapWord* *temp_alloc,
   893                                  TRAPS) {
   895   if (UsePerfData) {
   896     ClassLoader::unsafe_defineClassCallCounter()->inc();
   897   }
   899   if (data == NULL) {
   900     THROW_0(vmSymbols::java_lang_NullPointerException());
   901   }
   903   jint length = typeArrayOop(JNIHandles::resolve_non_null(data))->length();
   904   jint word_length = (length + sizeof(HeapWord)-1) / sizeof(HeapWord);
   905   HeapWord* body = NEW_C_HEAP_ARRAY(HeapWord, word_length);
   906   if (body == NULL) {
   907     THROW_0(vmSymbols::java_lang_OutOfMemoryError());
   908   }
   910   // caller responsible to free it:
   911   (*temp_alloc) = body;
   913   {
   914     jbyte* array_base = typeArrayOop(JNIHandles::resolve_non_null(data))->byte_at_addr(0);
   915     Copy::conjoint_words((HeapWord*) array_base, body, word_length);
   916   }
   918   u1* class_bytes = (u1*) body;
   919   int class_bytes_length = (int) length;
   920   if (class_bytes_length < 0)  class_bytes_length = 0;
   921   if (class_bytes == NULL
   922       || host_class == NULL
   923       || length != class_bytes_length)
   924     THROW_0(vmSymbols::java_lang_IllegalArgumentException());
   926   objArrayHandle cp_patches_h;
   927   if (cp_patches_jh != NULL) {
   928     oop p = JNIHandles::resolve_non_null(cp_patches_jh);
   929     if (!p->is_objArray())
   930       THROW_0(vmSymbols::java_lang_IllegalArgumentException());
   931     cp_patches_h = objArrayHandle(THREAD, (objArrayOop)p);
   932   }
   934   KlassHandle host_klass(THREAD, java_lang_Class::as_klassOop(JNIHandles::resolve_non_null(host_class)));
   935   const char* host_source = host_klass->external_name();
   936   Handle      host_loader(THREAD, host_klass->class_loader());
   937   Handle      host_domain(THREAD, host_klass->protection_domain());
   939   GrowableArray<Handle>* cp_patches = NULL;
   940   if (cp_patches_h.not_null()) {
   941     int alen = cp_patches_h->length();
   942     for (int i = alen-1; i >= 0; i--) {
   943       oop p = cp_patches_h->obj_at(i);
   944       if (p != NULL) {
   945         Handle patch(THREAD, p);
   946         if (cp_patches == NULL)
   947           cp_patches = new GrowableArray<Handle>(i+1, i+1, Handle());
   948         cp_patches->at_put(i, patch);
   949       }
   950     }
   951   }
   953   ClassFileStream st(class_bytes, class_bytes_length, (char*) host_source);
   955   instanceKlassHandle anon_klass;
   956   {
   957     symbolHandle no_class_name;
   958     klassOop anonk = SystemDictionary::parse_stream(no_class_name,
   959                                                     host_loader, host_domain,
   960                                                     &st, host_klass, cp_patches,
   961                                                     CHECK_NULL);
   962     if (anonk == NULL)  return NULL;
   963     anon_klass = instanceKlassHandle(THREAD, anonk);
   964   }
   966   // let caller initialize it as needed...
   968   return anon_klass->java_mirror();
   969 }
   971 UNSAFE_ENTRY(jclass, Unsafe_DefineAnonymousClass(JNIEnv *env, jobject unsafe, jclass host_class, jbyteArray data, jobjectArray cp_patches_jh))
   972 {
   973   UnsafeWrapper("Unsafe_DefineAnonymousClass");
   974   ResourceMark rm(THREAD);
   976   HeapWord* temp_alloc = NULL;
   978   jobject res_jh = NULL;
   980   { oop res_oop = Unsafe_DefineAnonymousClass_impl(env,
   981                                                    host_class, data, cp_patches_jh,
   982                                                    &temp_alloc, THREAD);
   983     if (res_oop != NULL)
   984       res_jh = JNIHandles::make_local(env, res_oop);
   985   }
   987   // try/finally clause:
   988   if (temp_alloc != NULL) {
   989     FREE_C_HEAP_ARRAY(HeapWord, temp_alloc);
   990   }
   992   return (jclass) res_jh;
   993 }
   994 UNSAFE_END
   998 UNSAFE_ENTRY(void, Unsafe_MonitorEnter(JNIEnv *env, jobject unsafe, jobject jobj))
   999   UnsafeWrapper("Unsafe_MonitorEnter");
  1001     if (jobj == NULL) {
  1002       THROW(vmSymbols::java_lang_NullPointerException());
  1004     Handle obj(thread, JNIHandles::resolve_non_null(jobj));
  1005     ObjectSynchronizer::jni_enter(obj, CHECK);
  1007 UNSAFE_END
  1010 UNSAFE_ENTRY(jboolean, Unsafe_TryMonitorEnter(JNIEnv *env, jobject unsafe, jobject jobj))
  1011   UnsafeWrapper("Unsafe_TryMonitorEnter");
  1013     if (jobj == NULL) {
  1014       THROW_(vmSymbols::java_lang_NullPointerException(), JNI_FALSE);
  1016     Handle obj(thread, JNIHandles::resolve_non_null(jobj));
  1017     bool res = ObjectSynchronizer::jni_try_enter(obj, CHECK_0);
  1018     return (res ? JNI_TRUE : JNI_FALSE);
  1020 UNSAFE_END
  1023 UNSAFE_ENTRY(void, Unsafe_MonitorExit(JNIEnv *env, jobject unsafe, jobject jobj))
  1024   UnsafeWrapper("Unsafe_MonitorExit");
  1026     if (jobj == NULL) {
  1027       THROW(vmSymbols::java_lang_NullPointerException());
  1029     Handle obj(THREAD, JNIHandles::resolve_non_null(jobj));
  1030     ObjectSynchronizer::jni_exit(obj(), CHECK);
  1032 UNSAFE_END
  1035 UNSAFE_ENTRY(void, Unsafe_ThrowException(JNIEnv *env, jobject unsafe, jthrowable thr))
  1036   UnsafeWrapper("Unsafe_ThrowException");
  1038     ThreadToNativeFromVM ttnfv(thread);
  1039     env->Throw(thr);
  1041 UNSAFE_END
  1043 // JSR166 ------------------------------------------------------------------
  1045 UNSAFE_ENTRY(jboolean, Unsafe_CompareAndSwapObject(JNIEnv *env, jobject unsafe, jobject obj, jlong offset, jobject e_h, jobject x_h))
  1046   UnsafeWrapper("Unsafe_CompareAndSwapObject");
  1047   oop x = JNIHandles::resolve(x_h);
  1048   oop e = JNIHandles::resolve(e_h);
  1049   oop p = JNIHandles::resolve(obj);
  1050   HeapWord* addr = (HeapWord *)index_oop_from_field_offset_long(p, offset);
  1051   update_barrier_set_pre((void*)addr, e);
  1052   oop res = oopDesc::atomic_compare_exchange_oop(x, addr, e);
  1053   jboolean success  = (res == e);
  1054   if (success)
  1055     update_barrier_set((void*)addr, x);
  1056   return success;
  1057 UNSAFE_END
  1059 UNSAFE_ENTRY(jboolean, Unsafe_CompareAndSwapInt(JNIEnv *env, jobject unsafe, jobject obj, jlong offset, jint e, jint x))
  1060   UnsafeWrapper("Unsafe_CompareAndSwapInt");
  1061   oop p = JNIHandles::resolve(obj);
  1062   jint* addr = (jint *) index_oop_from_field_offset_long(p, offset);
  1063   return (jint)(Atomic::cmpxchg(x, addr, e)) == e;
  1064 UNSAFE_END
  1066 UNSAFE_ENTRY(jboolean, Unsafe_CompareAndSwapLong(JNIEnv *env, jobject unsafe, jobject obj, jlong offset, jlong e, jlong x))
  1067   UnsafeWrapper("Unsafe_CompareAndSwapLong");
  1068   Handle p (THREAD, JNIHandles::resolve(obj));
  1069   jlong* addr = (jlong*)(index_oop_from_field_offset_long(p(), offset));
  1070   if (VM_Version::supports_cx8())
  1071     return (jlong)(Atomic::cmpxchg(x, addr, e)) == e;
  1072   else {
  1073     jboolean success = false;
  1074     ObjectLocker ol(p, THREAD);
  1075     if (*addr == e) { *addr = x; success = true; }
  1076     return success;
  1078 UNSAFE_END
  1080 UNSAFE_ENTRY(void, Unsafe_Park(JNIEnv *env, jobject unsafe, jboolean isAbsolute, jlong time))
  1081   UnsafeWrapper("Unsafe_Park");
  1082   JavaThreadParkedState jtps(thread, time != 0);
  1083   thread->parker()->park(isAbsolute != 0, time);
  1084 UNSAFE_END
  1086 UNSAFE_ENTRY(void, Unsafe_Unpark(JNIEnv *env, jobject unsafe, jobject jthread))
  1087   UnsafeWrapper("Unsafe_Unpark");
  1088   Parker* p = NULL;
  1089   if (jthread != NULL) {
  1090     oop java_thread = JNIHandles::resolve_non_null(jthread);
  1091     if (java_thread != NULL) {
  1092       jlong lp = java_lang_Thread::park_event(java_thread);
  1093       if (lp != 0) {
  1094         // This cast is OK even though the jlong might have been read
  1095         // non-atomically on 32bit systems, since there, one word will
  1096         // always be zero anyway and the value set is always the same
  1097         p = (Parker*)addr_from_java(lp);
  1098       } else {
  1099         // Grab lock if apparently null or using older version of library
  1100         MutexLocker mu(Threads_lock);
  1101         java_thread = JNIHandles::resolve_non_null(jthread);
  1102         if (java_thread != NULL) {
  1103           JavaThread* thr = java_lang_Thread::thread(java_thread);
  1104           if (thr != NULL) {
  1105             p = thr->parker();
  1106             if (p != NULL) { // Bind to Java thread for next time.
  1107               java_lang_Thread::set_park_event(java_thread, addr_to_java(p));
  1114   if (p != NULL) {
  1115     p->unpark();
  1117 UNSAFE_END
  1119 UNSAFE_ENTRY(jint, Unsafe_Loadavg(JNIEnv *env, jobject unsafe, jdoubleArray loadavg, jint nelem))
  1120   UnsafeWrapper("Unsafe_Loadavg");
  1121   const int max_nelem = 3;
  1122   double la[max_nelem];
  1123   jint ret;
  1125   typeArrayOop a = typeArrayOop(JNIHandles::resolve_non_null(loadavg));
  1126   assert(a->is_typeArray(), "must be type array");
  1128   if (nelem < 0 || nelem > max_nelem || a->length() < nelem) {
  1129     ThreadToNativeFromVM ttnfv(thread);
  1130     throw_new(env, "ArrayIndexOutOfBoundsException");
  1131     return -1;
  1134   ret = os::loadavg(la, nelem);
  1135   if (ret == -1) return -1;
  1137   // if successful, ret is the number of samples actually retrieved.
  1138   assert(ret >= 0 && ret <= max_nelem, "Unexpected loadavg return value");
  1139   switch(ret) {
  1140     case 3: a->double_at_put(2, (jdouble)la[2]); // fall through
  1141     case 2: a->double_at_put(1, (jdouble)la[1]); // fall through
  1142     case 1: a->double_at_put(0, (jdouble)la[0]); break;
  1144   return ret;
  1145 UNSAFE_END
  1147 UNSAFE_ENTRY(void, Unsafe_PrefetchRead(JNIEnv* env, jclass ignored, jobject obj, jlong offset))
  1148   UnsafeWrapper("Unsafe_PrefetchRead");
  1149   oop p = JNIHandles::resolve(obj);
  1150   void* addr = index_oop_from_field_offset_long(p, 0);
  1151   Prefetch::read(addr, (intx)offset);
  1152 UNSAFE_END
  1154 UNSAFE_ENTRY(void, Unsafe_PrefetchWrite(JNIEnv* env, jclass ignored, jobject obj, jlong offset))
  1155   UnsafeWrapper("Unsafe_PrefetchWrite");
  1156   oop p = JNIHandles::resolve(obj);
  1157   void* addr = index_oop_from_field_offset_long(p, 0);
  1158   Prefetch::write(addr, (intx)offset);
  1159 UNSAFE_END
  1162 /// JVM_RegisterUnsafeMethods
  1164 #define ADR "J"
  1166 #define LANG "Ljava/lang/"
  1168 #define OBJ LANG"Object;"
  1169 #define CLS LANG"Class;"
  1170 #define CTR LANG"reflect/Constructor;"
  1171 #define FLD LANG"reflect/Field;"
  1172 #define MTH LANG"reflect/Method;"
  1173 #define THR LANG"Throwable;"
  1175 #define DC0_Args LANG"String;[BII"
  1176 #define DC1_Args DC0_Args LANG"ClassLoader;" "Ljava/security/ProtectionDomain;"
  1178 #define CC (char*)  /*cast a literal from (const char*)*/
  1179 #define FN_PTR(f) CAST_FROM_FN_PTR(void*, &f)
  1181 // define deprecated accessors for compabitility with 1.4.0
  1182 #define DECLARE_GETSETOOP_140(Boolean, Z) \
  1183     {CC"get"#Boolean,      CC"("OBJ"I)"#Z,      FN_PTR(Unsafe_Get##Boolean##140)}, \
  1184     {CC"put"#Boolean,      CC"("OBJ"I"#Z")V",   FN_PTR(Unsafe_Set##Boolean##140)}
  1186 // Note:  In 1.4.1, getObject and kin take both int and long offsets.
  1187 #define DECLARE_GETSETOOP_141(Boolean, Z) \
  1188     {CC"get"#Boolean,      CC"("OBJ"J)"#Z,      FN_PTR(Unsafe_Get##Boolean)}, \
  1189     {CC"put"#Boolean,      CC"("OBJ"J"#Z")V",   FN_PTR(Unsafe_Set##Boolean)}
  1191 // Note:  In 1.5.0, there are volatile versions too
  1192 #define DECLARE_GETSETOOP(Boolean, Z) \
  1193     {CC"get"#Boolean,      CC"("OBJ"J)"#Z,      FN_PTR(Unsafe_Get##Boolean)}, \
  1194     {CC"put"#Boolean,      CC"("OBJ"J"#Z")V",   FN_PTR(Unsafe_Set##Boolean)}, \
  1195     {CC"get"#Boolean"Volatile",      CC"("OBJ"J)"#Z,      FN_PTR(Unsafe_Get##Boolean##Volatile)}, \
  1196     {CC"put"#Boolean"Volatile",      CC"("OBJ"J"#Z")V",   FN_PTR(Unsafe_Set##Boolean##Volatile)}
  1199 #define DECLARE_GETSETNATIVE(Byte, B) \
  1200     {CC"get"#Byte,         CC"("ADR")"#B,       FN_PTR(Unsafe_GetNative##Byte)}, \
  1201     {CC"put"#Byte,         CC"("ADR#B")V",      FN_PTR(Unsafe_SetNative##Byte)}
  1205 // %%% These are temporarily supported until the SDK sources
  1206 // contain the necessarily updated Unsafe.java.
  1207 static JNINativeMethod methods_140[] = {
  1209     {CC"getObject",        CC"("OBJ"I)"OBJ"",   FN_PTR(Unsafe_GetObject140)},
  1210     {CC"putObject",        CC"("OBJ"I"OBJ")V",  FN_PTR(Unsafe_SetObject140)},
  1212     DECLARE_GETSETOOP_140(Boolean, Z),
  1213     DECLARE_GETSETOOP_140(Byte, B),
  1214     DECLARE_GETSETOOP_140(Short, S),
  1215     DECLARE_GETSETOOP_140(Char, C),
  1216     DECLARE_GETSETOOP_140(Int, I),
  1217     DECLARE_GETSETOOP_140(Long, J),
  1218     DECLARE_GETSETOOP_140(Float, F),
  1219     DECLARE_GETSETOOP_140(Double, D),
  1221     DECLARE_GETSETNATIVE(Byte, B),
  1222     DECLARE_GETSETNATIVE(Short, S),
  1223     DECLARE_GETSETNATIVE(Char, C),
  1224     DECLARE_GETSETNATIVE(Int, I),
  1225     DECLARE_GETSETNATIVE(Long, J),
  1226     DECLARE_GETSETNATIVE(Float, F),
  1227     DECLARE_GETSETNATIVE(Double, D),
  1229     {CC"getAddress",         CC"("ADR")"ADR,             FN_PTR(Unsafe_GetNativeAddress)},
  1230     {CC"putAddress",         CC"("ADR""ADR")V",          FN_PTR(Unsafe_SetNativeAddress)},
  1232     {CC"allocateMemory",     CC"(J)"ADR,                 FN_PTR(Unsafe_AllocateMemory)},
  1233     {CC"reallocateMemory",   CC"("ADR"J)"ADR,            FN_PTR(Unsafe_ReallocateMemory)},
  1234 //  {CC"setMemory",          CC"("ADR"JB)V",             FN_PTR(Unsafe_SetMemory)},
  1235 //  {CC"copyMemory",         CC"("ADR ADR"J)V",          FN_PTR(Unsafe_CopyMemory)},
  1236     {CC"freeMemory",         CC"("ADR")V",               FN_PTR(Unsafe_FreeMemory)},
  1238     {CC"fieldOffset",        CC"("FLD")I",               FN_PTR(Unsafe_FieldOffset)}, //deprecated
  1239     {CC"staticFieldBase",    CC"("CLS")"OBJ,             FN_PTR(Unsafe_StaticFieldBaseFromClass)}, //deprecated
  1240     {CC"ensureClassInitialized",CC"("CLS")V",            FN_PTR(Unsafe_EnsureClassInitialized)},
  1241     {CC"arrayBaseOffset",    CC"("CLS")I",               FN_PTR(Unsafe_ArrayBaseOffset)},
  1242     {CC"arrayIndexScale",    CC"("CLS")I",               FN_PTR(Unsafe_ArrayIndexScale)},
  1243     {CC"addressSize",        CC"()I",                    FN_PTR(Unsafe_AddressSize)},
  1244     {CC"pageSize",           CC"()I",                    FN_PTR(Unsafe_PageSize)},
  1246     {CC"defineClass",        CC"("DC0_Args")"CLS,        FN_PTR(Unsafe_DefineClass0)},
  1247     {CC"defineClass",        CC"("DC1_Args")"CLS,        FN_PTR(Unsafe_DefineClass1)},
  1248     {CC"allocateInstance",   CC"("CLS")"OBJ,             FN_PTR(Unsafe_AllocateInstance)},
  1249     {CC"monitorEnter",       CC"("OBJ")V",               FN_PTR(Unsafe_MonitorEnter)},
  1250     {CC"monitorExit",        CC"("OBJ")V",               FN_PTR(Unsafe_MonitorExit)},
  1251     {CC"throwException",     CC"("THR")V",               FN_PTR(Unsafe_ThrowException)}
  1252 };
  1254 // These are the old methods prior to the JSR 166 changes in 1.5.0
  1255 static JNINativeMethod methods_141[] = {
  1257     {CC"getObject",        CC"("OBJ"J)"OBJ"",   FN_PTR(Unsafe_GetObject)},
  1258     {CC"putObject",        CC"("OBJ"J"OBJ")V",  FN_PTR(Unsafe_SetObject)},
  1260     DECLARE_GETSETOOP_141(Boolean, Z),
  1261     DECLARE_GETSETOOP_141(Byte, B),
  1262     DECLARE_GETSETOOP_141(Short, S),
  1263     DECLARE_GETSETOOP_141(Char, C),
  1264     DECLARE_GETSETOOP_141(Int, I),
  1265     DECLARE_GETSETOOP_141(Long, J),
  1266     DECLARE_GETSETOOP_141(Float, F),
  1267     DECLARE_GETSETOOP_141(Double, D),
  1269     DECLARE_GETSETNATIVE(Byte, B),
  1270     DECLARE_GETSETNATIVE(Short, S),
  1271     DECLARE_GETSETNATIVE(Char, C),
  1272     DECLARE_GETSETNATIVE(Int, I),
  1273     DECLARE_GETSETNATIVE(Long, J),
  1274     DECLARE_GETSETNATIVE(Float, F),
  1275     DECLARE_GETSETNATIVE(Double, D),
  1277     {CC"getAddress",         CC"("ADR")"ADR,             FN_PTR(Unsafe_GetNativeAddress)},
  1278     {CC"putAddress",         CC"("ADR""ADR")V",          FN_PTR(Unsafe_SetNativeAddress)},
  1280     {CC"allocateMemory",     CC"(J)"ADR,                 FN_PTR(Unsafe_AllocateMemory)},
  1281     {CC"reallocateMemory",   CC"("ADR"J)"ADR,            FN_PTR(Unsafe_ReallocateMemory)},
  1282 //  {CC"setMemory",          CC"("ADR"JB)V",             FN_PTR(Unsafe_SetMemory)},
  1283 //  {CC"copyMemory",         CC"("ADR ADR"J)V",          FN_PTR(Unsafe_CopyMemory)},
  1284     {CC"freeMemory",         CC"("ADR")V",               FN_PTR(Unsafe_FreeMemory)},
  1286     {CC"objectFieldOffset",  CC"("FLD")J",               FN_PTR(Unsafe_ObjectFieldOffset)},
  1287     {CC"staticFieldOffset",  CC"("FLD")J",               FN_PTR(Unsafe_StaticFieldOffset)},
  1288     {CC"staticFieldBase",    CC"("FLD")"OBJ,             FN_PTR(Unsafe_StaticFieldBaseFromField)},
  1289     {CC"ensureClassInitialized",CC"("CLS")V",            FN_PTR(Unsafe_EnsureClassInitialized)},
  1290     {CC"arrayBaseOffset",    CC"("CLS")I",               FN_PTR(Unsafe_ArrayBaseOffset)},
  1291     {CC"arrayIndexScale",    CC"("CLS")I",               FN_PTR(Unsafe_ArrayIndexScale)},
  1292     {CC"addressSize",        CC"()I",                    FN_PTR(Unsafe_AddressSize)},
  1293     {CC"pageSize",           CC"()I",                    FN_PTR(Unsafe_PageSize)},
  1295     {CC"defineClass",        CC"("DC0_Args")"CLS,        FN_PTR(Unsafe_DefineClass0)},
  1296     {CC"defineClass",        CC"("DC1_Args")"CLS,        FN_PTR(Unsafe_DefineClass1)},
  1297     {CC"allocateInstance",   CC"("CLS")"OBJ,             FN_PTR(Unsafe_AllocateInstance)},
  1298     {CC"monitorEnter",       CC"("OBJ")V",               FN_PTR(Unsafe_MonitorEnter)},
  1299     {CC"monitorExit",        CC"("OBJ")V",               FN_PTR(Unsafe_MonitorExit)},
  1300     {CC"throwException",     CC"("THR")V",               FN_PTR(Unsafe_ThrowException)}
  1302 };
  1304 // These are the old methods prior to the JSR 166 changes in 1.6.0
  1305 static JNINativeMethod methods_15[] = {
  1307     {CC"getObject",        CC"("OBJ"J)"OBJ"",   FN_PTR(Unsafe_GetObject)},
  1308     {CC"putObject",        CC"("OBJ"J"OBJ")V",  FN_PTR(Unsafe_SetObject)},
  1309     {CC"getObjectVolatile",CC"("OBJ"J)"OBJ"",   FN_PTR(Unsafe_GetObjectVolatile)},
  1310     {CC"putObjectVolatile",CC"("OBJ"J"OBJ")V",  FN_PTR(Unsafe_SetObjectVolatile)},
  1313     DECLARE_GETSETOOP(Boolean, Z),
  1314     DECLARE_GETSETOOP(Byte, B),
  1315     DECLARE_GETSETOOP(Short, S),
  1316     DECLARE_GETSETOOP(Char, C),
  1317     DECLARE_GETSETOOP(Int, I),
  1318     DECLARE_GETSETOOP(Long, J),
  1319     DECLARE_GETSETOOP(Float, F),
  1320     DECLARE_GETSETOOP(Double, D),
  1322     DECLARE_GETSETNATIVE(Byte, B),
  1323     DECLARE_GETSETNATIVE(Short, S),
  1324     DECLARE_GETSETNATIVE(Char, C),
  1325     DECLARE_GETSETNATIVE(Int, I),
  1326     DECLARE_GETSETNATIVE(Long, J),
  1327     DECLARE_GETSETNATIVE(Float, F),
  1328     DECLARE_GETSETNATIVE(Double, D),
  1330     {CC"getAddress",         CC"("ADR")"ADR,             FN_PTR(Unsafe_GetNativeAddress)},
  1331     {CC"putAddress",         CC"("ADR""ADR")V",          FN_PTR(Unsafe_SetNativeAddress)},
  1333     {CC"allocateMemory",     CC"(J)"ADR,                 FN_PTR(Unsafe_AllocateMemory)},
  1334     {CC"reallocateMemory",   CC"("ADR"J)"ADR,            FN_PTR(Unsafe_ReallocateMemory)},
  1335 //  {CC"setMemory",          CC"("ADR"JB)V",             FN_PTR(Unsafe_SetMemory)},
  1336 //  {CC"copyMemory",         CC"("ADR ADR"J)V",          FN_PTR(Unsafe_CopyMemory)},
  1337     {CC"freeMemory",         CC"("ADR")V",               FN_PTR(Unsafe_FreeMemory)},
  1339     {CC"objectFieldOffset",  CC"("FLD")J",               FN_PTR(Unsafe_ObjectFieldOffset)},
  1340     {CC"staticFieldOffset",  CC"("FLD")J",               FN_PTR(Unsafe_StaticFieldOffset)},
  1341     {CC"staticFieldBase",    CC"("FLD")"OBJ,             FN_PTR(Unsafe_StaticFieldBaseFromField)},
  1342     {CC"ensureClassInitialized",CC"("CLS")V",            FN_PTR(Unsafe_EnsureClassInitialized)},
  1343     {CC"arrayBaseOffset",    CC"("CLS")I",               FN_PTR(Unsafe_ArrayBaseOffset)},
  1344     {CC"arrayIndexScale",    CC"("CLS")I",               FN_PTR(Unsafe_ArrayIndexScale)},
  1345     {CC"addressSize",        CC"()I",                    FN_PTR(Unsafe_AddressSize)},
  1346     {CC"pageSize",           CC"()I",                    FN_PTR(Unsafe_PageSize)},
  1348     {CC"defineClass",        CC"("DC0_Args")"CLS,        FN_PTR(Unsafe_DefineClass0)},
  1349     {CC"defineClass",        CC"("DC1_Args")"CLS,        FN_PTR(Unsafe_DefineClass1)},
  1350     {CC"allocateInstance",   CC"("CLS")"OBJ,             FN_PTR(Unsafe_AllocateInstance)},
  1351     {CC"monitorEnter",       CC"("OBJ")V",               FN_PTR(Unsafe_MonitorEnter)},
  1352     {CC"monitorExit",        CC"("OBJ")V",               FN_PTR(Unsafe_MonitorExit)},
  1353     {CC"throwException",     CC"("THR")V",               FN_PTR(Unsafe_ThrowException)},
  1354     {CC"compareAndSwapObject", CC"("OBJ"J"OBJ""OBJ")Z",  FN_PTR(Unsafe_CompareAndSwapObject)},
  1355     {CC"compareAndSwapInt",  CC"("OBJ"J""I""I"")Z",      FN_PTR(Unsafe_CompareAndSwapInt)},
  1356     {CC"compareAndSwapLong", CC"("OBJ"J""J""J"")Z",      FN_PTR(Unsafe_CompareAndSwapLong)},
  1357     {CC"park",               CC"(ZJ)V",                  FN_PTR(Unsafe_Park)},
  1358     {CC"unpark",             CC"("OBJ")V",               FN_PTR(Unsafe_Unpark)}
  1360 };
  1362 // These are the correct methods, moving forward:
  1363 static JNINativeMethod methods[] = {
  1365     {CC"getObject",        CC"("OBJ"J)"OBJ"",   FN_PTR(Unsafe_GetObject)},
  1366     {CC"putObject",        CC"("OBJ"J"OBJ")V",  FN_PTR(Unsafe_SetObject)},
  1367     {CC"getObjectVolatile",CC"("OBJ"J)"OBJ"",   FN_PTR(Unsafe_GetObjectVolatile)},
  1368     {CC"putObjectVolatile",CC"("OBJ"J"OBJ")V",  FN_PTR(Unsafe_SetObjectVolatile)},
  1371     DECLARE_GETSETOOP(Boolean, Z),
  1372     DECLARE_GETSETOOP(Byte, B),
  1373     DECLARE_GETSETOOP(Short, S),
  1374     DECLARE_GETSETOOP(Char, C),
  1375     DECLARE_GETSETOOP(Int, I),
  1376     DECLARE_GETSETOOP(Long, J),
  1377     DECLARE_GETSETOOP(Float, F),
  1378     DECLARE_GETSETOOP(Double, D),
  1380     DECLARE_GETSETNATIVE(Byte, B),
  1381     DECLARE_GETSETNATIVE(Short, S),
  1382     DECLARE_GETSETNATIVE(Char, C),
  1383     DECLARE_GETSETNATIVE(Int, I),
  1384     DECLARE_GETSETNATIVE(Long, J),
  1385     DECLARE_GETSETNATIVE(Float, F),
  1386     DECLARE_GETSETNATIVE(Double, D),
  1388     {CC"getAddress",         CC"("ADR")"ADR,             FN_PTR(Unsafe_GetNativeAddress)},
  1389     {CC"putAddress",         CC"("ADR""ADR")V",          FN_PTR(Unsafe_SetNativeAddress)},
  1391     {CC"allocateMemory",     CC"(J)"ADR,                 FN_PTR(Unsafe_AllocateMemory)},
  1392     {CC"reallocateMemory",   CC"("ADR"J)"ADR,            FN_PTR(Unsafe_ReallocateMemory)},
  1393 //  {CC"setMemory",          CC"("ADR"JB)V",             FN_PTR(Unsafe_SetMemory)},
  1394 //  {CC"copyMemory",         CC"("ADR ADR"J)V",          FN_PTR(Unsafe_CopyMemory)},
  1395     {CC"freeMemory",         CC"("ADR")V",               FN_PTR(Unsafe_FreeMemory)},
  1397     {CC"objectFieldOffset",  CC"("FLD")J",               FN_PTR(Unsafe_ObjectFieldOffset)},
  1398     {CC"staticFieldOffset",  CC"("FLD")J",               FN_PTR(Unsafe_StaticFieldOffset)},
  1399     {CC"staticFieldBase",    CC"("FLD")"OBJ,             FN_PTR(Unsafe_StaticFieldBaseFromField)},
  1400     {CC"ensureClassInitialized",CC"("CLS")V",            FN_PTR(Unsafe_EnsureClassInitialized)},
  1401     {CC"arrayBaseOffset",    CC"("CLS")I",               FN_PTR(Unsafe_ArrayBaseOffset)},
  1402     {CC"arrayIndexScale",    CC"("CLS")I",               FN_PTR(Unsafe_ArrayIndexScale)},
  1403     {CC"addressSize",        CC"()I",                    FN_PTR(Unsafe_AddressSize)},
  1404     {CC"pageSize",           CC"()I",                    FN_PTR(Unsafe_PageSize)},
  1406     {CC"defineClass",        CC"("DC0_Args")"CLS,        FN_PTR(Unsafe_DefineClass0)},
  1407     {CC"defineClass",        CC"("DC1_Args")"CLS,        FN_PTR(Unsafe_DefineClass1)},
  1408     {CC"allocateInstance",   CC"("CLS")"OBJ,             FN_PTR(Unsafe_AllocateInstance)},
  1409     {CC"monitorEnter",       CC"("OBJ")V",               FN_PTR(Unsafe_MonitorEnter)},
  1410     {CC"monitorExit",        CC"("OBJ")V",               FN_PTR(Unsafe_MonitorExit)},
  1411     {CC"tryMonitorEnter",    CC"("OBJ")Z",               FN_PTR(Unsafe_TryMonitorEnter)},
  1412     {CC"throwException",     CC"("THR")V",               FN_PTR(Unsafe_ThrowException)},
  1413     {CC"compareAndSwapObject", CC"("OBJ"J"OBJ""OBJ")Z",  FN_PTR(Unsafe_CompareAndSwapObject)},
  1414     {CC"compareAndSwapInt",  CC"("OBJ"J""I""I"")Z",      FN_PTR(Unsafe_CompareAndSwapInt)},
  1415     {CC"compareAndSwapLong", CC"("OBJ"J""J""J"")Z",      FN_PTR(Unsafe_CompareAndSwapLong)},
  1416     {CC"putOrderedObject",   CC"("OBJ"J"OBJ")V",         FN_PTR(Unsafe_SetOrderedObject)},
  1417     {CC"putOrderedInt",      CC"("OBJ"JI)V",             FN_PTR(Unsafe_SetOrderedInt)},
  1418     {CC"putOrderedLong",     CC"("OBJ"JJ)V",             FN_PTR(Unsafe_SetOrderedLong)},
  1419     {CC"park",               CC"(ZJ)V",                  FN_PTR(Unsafe_Park)},
  1420     {CC"unpark",             CC"("OBJ")V",               FN_PTR(Unsafe_Unpark)}
  1422 //    {CC"getLoadAverage",     CC"([DI)I",                 FN_PTR(Unsafe_Loadavg)},
  1424 //    {CC"prefetchRead",       CC"("OBJ"J)V",              FN_PTR(Unsafe_PrefetchRead)},
  1425 //    {CC"prefetchWrite",      CC"("OBJ"J)V",              FN_PTR(Unsafe_PrefetchWrite)}
  1426 //    {CC"prefetchReadStatic", CC"("OBJ"J)V",              FN_PTR(Unsafe_PrefetchRead)},
  1427 //    {CC"prefetchWriteStatic",CC"("OBJ"J)V",              FN_PTR(Unsafe_PrefetchWrite)}
  1429 };
  1431 JNINativeMethod loadavg_method[] = {
  1432     {CC"getLoadAverage",            CC"([DI)I",                 FN_PTR(Unsafe_Loadavg)}
  1433 };
  1435 JNINativeMethod prefetch_methods[] = {
  1436     {CC"prefetchRead",       CC"("OBJ"J)V",              FN_PTR(Unsafe_PrefetchRead)},
  1437     {CC"prefetchWrite",      CC"("OBJ"J)V",              FN_PTR(Unsafe_PrefetchWrite)},
  1438     {CC"prefetchReadStatic", CC"("OBJ"J)V",              FN_PTR(Unsafe_PrefetchRead)},
  1439     {CC"prefetchWriteStatic",CC"("OBJ"J)V",              FN_PTR(Unsafe_PrefetchWrite)}
  1440 };
  1442 JNINativeMethod memcopy_methods[] = {
  1443     {CC"copyMemory",         CC"("OBJ"J"OBJ"JJ)V",       FN_PTR(Unsafe_CopyMemory2)},
  1444     {CC"setMemory",          CC"("OBJ"JJB)V",            FN_PTR(Unsafe_SetMemory2)}
  1445 };
  1447 JNINativeMethod memcopy_methods_15[] = {
  1448     {CC"setMemory",          CC"("ADR"JB)V",             FN_PTR(Unsafe_SetMemory)},
  1449     {CC"copyMemory",         CC"("ADR ADR"J)V",          FN_PTR(Unsafe_CopyMemory)}
  1450 };
  1452 JNINativeMethod anonk_methods[] = {
  1453     {CC"defineAnonymousClass", CC"("DAC_Args")"CLS,      FN_PTR(Unsafe_DefineAnonymousClass)},
  1454 };
  1456 #undef CC
  1457 #undef FN_PTR
  1459 #undef ADR
  1460 #undef LANG
  1461 #undef OBJ
  1462 #undef CLS
  1463 #undef CTR
  1464 #undef FLD
  1465 #undef MTH
  1466 #undef THR
  1467 #undef DC0_Args
  1468 #undef DC1_Args
  1470 #undef DECLARE_GETSETOOP
  1471 #undef DECLARE_GETSETNATIVE
  1474 // This one function is exported, used by NativeLookup.
  1475 // The Unsafe_xxx functions above are called only from the interpreter.
  1476 // The optimizer looks at names and signatures to recognize
  1477 // individual functions.
  1479 JVM_ENTRY(void, JVM_RegisterUnsafeMethods(JNIEnv *env, jclass unsafecls))
  1480   UnsafeWrapper("JVM_RegisterUnsafeMethods");
  1482     ThreadToNativeFromVM ttnfv(thread);
  1484       env->RegisterNatives(unsafecls, loadavg_method, sizeof(loadavg_method)/sizeof(JNINativeMethod));
  1485       if (env->ExceptionOccurred()) {
  1486         if (PrintMiscellaneous && (Verbose || WizardMode)) {
  1487           tty->print_cr("Warning:  SDK 1.6 Unsafe.loadavg not found.");
  1489         env->ExceptionClear();
  1493       env->RegisterNatives(unsafecls, prefetch_methods, sizeof(prefetch_methods)/sizeof(JNINativeMethod));
  1494       if (env->ExceptionOccurred()) {
  1495         if (PrintMiscellaneous && (Verbose || WizardMode)) {
  1496           tty->print_cr("Warning:  SDK 1.6 Unsafe.prefetchRead/Write not found.");
  1498         env->ExceptionClear();
  1502       env->RegisterNatives(unsafecls, memcopy_methods, sizeof(memcopy_methods)/sizeof(JNINativeMethod));
  1503       if (env->ExceptionOccurred()) {
  1504         if (PrintMiscellaneous && (Verbose || WizardMode)) {
  1505           tty->print_cr("Warning:  SDK 1.7 Unsafe.copyMemory not found.");
  1507         env->ExceptionClear();
  1508         env->RegisterNatives(unsafecls, memcopy_methods_15, sizeof(memcopy_methods_15)/sizeof(JNINativeMethod));
  1509         if (env->ExceptionOccurred()) {
  1510           if (PrintMiscellaneous && (Verbose || WizardMode)) {
  1511             tty->print_cr("Warning:  SDK 1.5 Unsafe.copyMemory not found.");
  1513           env->ExceptionClear();
  1517     if (AnonymousClasses) {
  1518       env->RegisterNatives(unsafecls, anonk_methods, sizeof(anonk_methods)/sizeof(JNINativeMethod));
  1519       if (env->ExceptionOccurred()) {
  1520         if (PrintMiscellaneous && (Verbose || WizardMode)) {
  1521           tty->print_cr("Warning:  SDK 1.7 Unsafe.defineClass (anonymous version) not found.");
  1523         env->ExceptionClear();
  1526     int status = env->RegisterNatives(unsafecls, methods, sizeof(methods)/sizeof(JNINativeMethod));
  1527     if (env->ExceptionOccurred()) {
  1528       if (PrintMiscellaneous && (Verbose || WizardMode)) {
  1529         tty->print_cr("Warning:  SDK 1.6 version of Unsafe not found.");
  1531       env->ExceptionClear();
  1532       // %%% For now, be backward compatible with an older class:
  1533       status = env->RegisterNatives(unsafecls, methods_15, sizeof(methods_15)/sizeof(JNINativeMethod));
  1535     if (env->ExceptionOccurred()) {
  1536       if (PrintMiscellaneous && (Verbose || WizardMode)) {
  1537         tty->print_cr("Warning:  SDK 1.5 version of Unsafe not found.");
  1539       env->ExceptionClear();
  1540       // %%% For now, be backward compatible with an older class:
  1541       status = env->RegisterNatives(unsafecls, methods_141, sizeof(methods_141)/sizeof(JNINativeMethod));
  1543     if (env->ExceptionOccurred()) {
  1544       if (PrintMiscellaneous && (Verbose || WizardMode)) {
  1545         tty->print_cr("Warning:  SDK 1.4.1 version of Unsafe not found.");
  1547       env->ExceptionClear();
  1548       // %%% For now, be backward compatible with an older class:
  1549       status = env->RegisterNatives(unsafecls, methods_140, sizeof(methods_140)/sizeof(JNINativeMethod));
  1551     guarantee(status == 0, "register unsafe natives");
  1553 JVM_END

mercurial