1 /* src/native/vm/sun_misc_Unsafe.c - sun/misc/Unsafe
3 Copyright (C) 2006, 2007 R. Grafl, A. Krall, C. Kruegel, C. Oates,
4 R. Obermaisser, M. Platter, M. Probst, S. Ring, E. Steiner,
5 C. Thalinger, D. Thuernbeck, P. Tomsich, C. Ullrich, J. Wenninger,
6 Institut f. Computersprachen - TU Wien
8 This file is part of CACAO.
10 This program is free software; you can redistribute it and/or
11 modify it under the terms of the GNU General Public License as
12 published by the Free Software Foundation; either version 2, or (at
13 your option) any later version.
15 This program is distributed in the hope that it will be useful, but
16 WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with this program; if not, write to the Free Software
22 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
25 $Id: java_lang_VMObject.c 5153 2006-07-18 08:19:24Z twisti $
34 #include "mm/memory.h"
36 #include "native/jni.h"
37 #include "native/llni.h"
38 #include "native/native.h"
40 #include "native/include/java_lang_Object.h" /* before c.l.C */
41 #include "native/include/java_lang_String.h" /* required by j.l.CL */
43 #if defined(WITH_CLASSPATH_SUN)
44 # include "native/include/java_nio_ByteBuffer.h" /* required by j.l.CL */
47 #include "native/include/java_lang_ClassLoader.h" /* required by j.l.C */
48 #include "native/include/java_lang_Class.h"
49 #include "native/include/java_lang_reflect_Field.h"
50 #include "native/include/java_lang_Thread.h" /* required by s.m.U */
51 #include "native/include/java_lang_Throwable.h"
53 #include "native/include/java_security_ProtectionDomain.h" /* required by smU */
55 #include "native/include/sun_misc_Unsafe.h"
57 #include "vm/exceptions.h"
58 #include "vm/initialize.h"
59 #include "vm/stringlocal.h"
61 #include "vmcore/utf8.h"
64 /* native methods implemented by this file ************************************/
66 static JNINativeMethod methods[] = {
67 { "registerNatives", "()V", (void *) (intptr_t) &Java_sun_misc_Unsafe_registerNatives },
68 { "getInt", "(Ljava/lang/Object;J)I", (void *) (intptr_t) &Java_sun_misc_Unsafe_getInt__Ljava_lang_Object_2J },
69 { "putInt", "(Ljava/lang/Object;JI)V", (void *) (intptr_t) &Java_sun_misc_Unsafe_putInt__Ljava_lang_Object_2JI },
70 { "getObject", "(Ljava/lang/Object;J)Ljava/lang/Object;", (void *) (intptr_t) &Java_sun_misc_Unsafe_getObject },
71 { "putObject", "(Ljava/lang/Object;JLjava/lang/Object;)V", (void *) (intptr_t) &Java_sun_misc_Unsafe_putObject },
72 { "getBoolean", "(Ljava/lang/Object;J)Z", (void *) (intptr_t) &Java_sun_misc_Unsafe_getBoolean },
73 { "putBoolean", "(Ljava/lang/Object;JZ)V", (void *) (intptr_t) &Java_sun_misc_Unsafe_putBoolean },
74 { "getByte", "(Ljava/lang/Object;J)B", (void *) (intptr_t) &Java_sun_misc_Unsafe_getByte__Ljava_lang_Object_2J },
75 { "putByte", "(Ljava/lang/Object;JB)V", (void *) (intptr_t) &Java_sun_misc_Unsafe_putByte__Ljava_lang_Object_2JB },
76 { "getChar", "(Ljava/lang/Object;J)C", (void *) (intptr_t) &Java_sun_misc_Unsafe_getChar__Ljava_lang_Object_2J },
77 { "putChar", "(Ljava/lang/Object;JC)V", (void *) (intptr_t) &Java_sun_misc_Unsafe_putChar__Ljava_lang_Object_2JC },
78 { "getByte", "(J)B", (void *) (intptr_t) &Java_sun_misc_Unsafe_getByte__J },
79 { "getInt", "(J)I", (void *) (intptr_t) &Java_sun_misc_Unsafe_getInt__J },
80 { "getLong", "(J)J", (void *) (intptr_t) &Java_sun_misc_Unsafe_getLong__J },
81 { "putLong", "(JJ)V", (void *) (intptr_t) &Java_sun_misc_Unsafe_putLong__JJ },
82 { "objectFieldOffset", "(Ljava/lang/reflect/Field;)J", (void *) (intptr_t) &Java_sun_misc_Unsafe_objectFieldOffset },
83 { "allocateMemory", "(J)J", (void *) (intptr_t) &Java_sun_misc_Unsafe_allocateMemory },
84 { "freeMemory", "(J)V", (void *) (intptr_t) &Java_sun_misc_Unsafe_freeMemory },
85 { "staticFieldOffset", "(Ljava/lang/reflect/Field;)J", (void *) (intptr_t) &Java_sun_misc_Unsafe_staticFieldOffset },
86 { "staticFieldBase", "(Ljava/lang/reflect/Field;)Ljava/lang/Object;", (void *) (intptr_t) &Java_sun_misc_Unsafe_staticFieldBase },
87 { "ensureClassInitialized", "(Ljava/lang/Class;)V", (void *) (intptr_t) &Java_sun_misc_Unsafe_ensureClassInitialized },
88 { "arrayBaseOffset", "(Ljava/lang/Class;)I", (void *) (intptr_t) &Java_sun_misc_Unsafe_arrayBaseOffset },
89 { "arrayIndexScale", "(Ljava/lang/Class;)I", (void *) (intptr_t) &Java_sun_misc_Unsafe_arrayIndexScale },
90 { "addressSize", "()I", (void *) (intptr_t) &Java_sun_misc_Unsafe_addressSize },
91 { "defineClass", "(Ljava/lang/String;[BIILjava/lang/ClassLoader;Ljava/security/ProtectionDomain;)Ljava/lang/Class;", (void *) (intptr_t) &Java_sun_misc_Unsafe_defineClass__Ljava_lang_String_2_3BIILjava_lang_ClassLoader_2Ljava_security_ProtectionDomain_2 },
92 { "throwException", "(Ljava/lang/Throwable;)V", (void *) (intptr_t) &Java_sun_misc_Unsafe_throwException },
93 { "compareAndSwapObject", "(Ljava/lang/Object;JLjava/lang/Object;Ljava/lang/Object;)Z", (void *) (intptr_t) &Java_sun_misc_Unsafe_compareAndSwapObject },
94 { "compareAndSwapInt", "(Ljava/lang/Object;JII)Z", (void *) (intptr_t) &Java_sun_misc_Unsafe_compareAndSwapInt },
95 { "compareAndSwapLong", "(Ljava/lang/Object;JJJ)Z", (void *) (intptr_t) &Java_sun_misc_Unsafe_compareAndSwapLong },
96 { "getObjectVolatile", "(Ljava/lang/Object;J)Ljava/lang/Object;", (void *) (intptr_t) &Java_sun_misc_Unsafe_getObjectVolatile },
97 { "getIntVolatile", "(Ljava/lang/Object;J)I", (void *) (intptr_t) &Java_sun_misc_Unsafe_getIntVolatile },
98 { "unpark", "(Ljava/lang/Object;)V", (void *) (intptr_t) &Java_sun_misc_Unsafe_unpark },
99 { "park", "(ZJ)V", (void *) (intptr_t) &Java_sun_misc_Unsafe_park },
103 /* _Jv_sun_misc_Unsafe_init ****************************************************
105 Register native functions.
107 *******************************************************************************/
109 void _Jv_sun_misc_Unsafe_init(void)
113 u = utf_new_char("sun/misc/Unsafe");
115 native_method_register(u, methods, NATIVE_METHODS_COUNT);
120 * Class: sun/misc/Unsafe
121 * Method: registerNatives
124 JNIEXPORT void JNICALL Java_sun_misc_Unsafe_registerNatives(JNIEnv *env, jclass clazz)
126 /* The native methods of this function are already registered in
127 _Jv_sun_misc_Unsafe_init() which is called during VM
133 * Class: sun/misc/Unsafe
135 * Signature: (Ljava/lang/Object;J)I
137 JNIEXPORT int32_t JNICALL Java_sun_misc_Unsafe_getInt__Ljava_lang_Object_2J(JNIEnv *env, sun_misc_Unsafe *this, java_lang_Object *o, int64_t offset)
142 p = (int32_t *) (((uint8_t *) o) + offset);
151 * Class: sun/misc/Unsafe
153 * Signature: (Ljava/lang/Object;JI)V
155 JNIEXPORT void JNICALL Java_sun_misc_Unsafe_putInt__Ljava_lang_Object_2JI(JNIEnv *env, sun_misc_Unsafe *this, java_lang_Object *o, int64_t offset, int32_t x)
159 p = (int32_t *) (((uint8_t *) o) + offset);
166 * Class: sun/misc/Unsafe
168 * Signature: (Ljava/lang/Object;J)Ljava/lang/Object;
170 JNIEXPORT java_lang_Object* JNICALL Java_sun_misc_Unsafe_getObject(JNIEnv *env, sun_misc_Unsafe *this, java_lang_Object *o, int64_t offset)
175 p = (void **) (((uint8_t *) o) + offset);
184 * Class: sun/misc/Unsafe
186 * Signature: (Ljava/lang/Object;JLjava/lang/Object;)V
188 JNIEXPORT void JNICALL Java_sun_misc_Unsafe_putObject(JNIEnv *env, sun_misc_Unsafe *this, java_lang_Object *o, int64_t offset, java_lang_Object *x)
192 p = (void **) (((uint8_t *) o) + offset);
199 * Class: sun/misc/Unsafe
201 * Signature: (Ljava/lang/Object;J)Z
203 JNIEXPORT int32_t JNICALL Java_sun_misc_Unsafe_getBoolean(JNIEnv *env, sun_misc_Unsafe *this, java_lang_Object *o, int64_t offset)
208 p = (int32_t *) (((uint8_t *) o) + offset);
217 * Class: sun/misc/Unsafe
219 * Signature: (Ljava/lang/Object;JZ)V
221 JNIEXPORT void JNICALL Java_sun_misc_Unsafe_putBoolean(JNIEnv *env, sun_misc_Unsafe *this, java_lang_Object *o, int64_t offset, int32_t x)
225 p = (int32_t *) (((uint8_t *) o) + offset);
232 * Class: sun/misc/Unsafe
234 * Signature: (Ljava/lang/Object;J)B
236 JNIEXPORT int32_t JNICALL Java_sun_misc_Unsafe_getByte__Ljava_lang_Object_2J(JNIEnv *env, sun_misc_Unsafe *this, java_lang_Object *o, int64_t offset)
241 p = (int32_t *) (((uint8_t *) o) + offset);
250 * Class: sun/misc/Unsafe
252 * Signature: (Ljava/lang/Object;JB)V
254 JNIEXPORT void JNICALL Java_sun_misc_Unsafe_putByte__Ljava_lang_Object_2JB(JNIEnv *env, sun_misc_Unsafe *this, java_lang_Object *o, int64_t offset, int32_t x)
258 p = (int32_t *) (((uint8_t *) o) + offset);
265 * Class: sun/misc/Unsafe
267 * Signature: (Ljava/lang/Object;J)C
269 JNIEXPORT int32_t JNICALL Java_sun_misc_Unsafe_getChar__Ljava_lang_Object_2J(JNIEnv *env, sun_misc_Unsafe *this, java_lang_Object *o, int64_t offset)
274 p = (int32_t *) (((uint8_t *) o) + offset);
283 * Class: sun/misc/Unsafe
285 * Signature: (Ljava/lang/Object;JC)V
287 JNIEXPORT void JNICALL Java_sun_misc_Unsafe_putChar__Ljava_lang_Object_2JC(JNIEnv *env, sun_misc_Unsafe *this, java_lang_Object *o, int64_t offset, int32_t x)
291 p = (int32_t *) (((uint8_t *) o) + offset);
298 * Class: sun/misc/Unsafe
302 JNIEXPORT int32_t JNICALL Java_sun_misc_Unsafe_getByte__J(JNIEnv *env, sun_misc_Unsafe *this, int64_t address)
307 p = (int8_t *) (intptr_t) address;
311 return (int32_t) value;
316 * Class: sun/misc/Unsafe
320 JNIEXPORT int32_t JNICALL Java_sun_misc_Unsafe_getInt__J(JNIEnv *env, sun_misc_Unsafe *this, int64_t address)
325 p = (int32_t *) (intptr_t) address;
334 * Class: sun/misc/Unsafe
338 JNIEXPORT int64_t JNICALL Java_sun_misc_Unsafe_getLong__J(JNIEnv *env, sun_misc_Unsafe *this, int64_t address)
343 p = (int64_t *) (intptr_t) address;
352 * Class: sun/misc/Unsafe
356 JNIEXPORT void JNICALL Java_sun_misc_Unsafe_putLong__JJ(JNIEnv *env, sun_misc_Unsafe *this, int64_t address, int64_t value)
360 p = (int64_t *) (intptr_t) address;
367 * Class: sun/misc/Unsafe
368 * Method: objectFieldOffset
369 * Signature: (Ljava/lang/reflect/Field;)J
371 JNIEXPORT int64_t JNICALL Java_sun_misc_Unsafe_objectFieldOffset(JNIEnv *env, sun_misc_Unsafe* this, java_lang_reflect_Field* field)
377 LLNI_field_get_cls(field, clazz, c);
378 LLNI_field_get_val(field, slot , slot);
379 f = &c->fields[slot];
381 return (int64_t) f->offset;
386 * Class: sun/misc/Unsafe
387 * Method: allocateMemory
390 JNIEXPORT int64_t JNICALL Java_sun_misc_Unsafe_allocateMemory(JNIEnv *env, sun_misc_Unsafe *this, int64_t bytes)
395 length = (size_t) bytes;
397 if ((length != (uint64_t) bytes) || (bytes < 0)) {
398 exceptions_throw_illegalargumentexception();
402 p = MNEW(uint8_t, length);
404 return (int64_t) (intptr_t) p;
409 * Class: sun/misc/Unsafe
413 JNIEXPORT void JNICALL Java_sun_misc_Unsafe_freeMemory(JNIEnv *env, sun_misc_Unsafe *this, int64_t address)
417 p = (void *) (intptr_t) address;
422 /* we pass length 1 to trick the free function */
424 MFREE(p, uint8_t, 1);
429 * Class: sun/misc/Unsafe
430 * Method: staticFieldOffset
431 * Signature: (Ljava/lang/reflect/Field;)J
433 JNIEXPORT int64_t JNICALL Java_sun_misc_Unsafe_staticFieldOffset(JNIEnv *env, sun_misc_Unsafe *this, java_lang_reflect_Field *field)
439 LLNI_field_get_cls(field, clazz, c);
440 LLNI_field_get_val(field, slot , slot);
441 f = &(c->fields[slot]);
443 return (int64_t) (intptr_t) f->value;
448 * Class: sun/misc/Unsafe
449 * Method: staticFieldBase
450 * Signature: (Ljava/lang/reflect/Field;)Ljava/lang/Object;
452 JNIEXPORT java_lang_Object* JNICALL Java_sun_misc_Unsafe_staticFieldBase(JNIEnv *env, sun_misc_Unsafe *this, java_lang_reflect_Field *f)
454 /* In CACAO we return the absolute address in staticFieldOffset. */
461 * Class: sun/misc/Unsafe
462 * Method: ensureClassInitialized
463 * Signature: (Ljava/lang/Class;)V
465 JNIEXPORT void JNICALL Java_sun_misc_Unsafe_ensureClassInitialized(JNIEnv *env, sun_misc_Unsafe *this, java_lang_Class *class)
469 c = (classinfo *) class;
471 if (!(c->state & CLASS_INITIALIZED))
477 * Class: sun/misc/Unsafe
478 * Method: arrayBaseOffset
479 * Signature: (Ljava/lang/Class;)I
481 JNIEXPORT int32_t JNICALL Java_sun_misc_Unsafe_arrayBaseOffset(JNIEnv *env, sun_misc_Unsafe *this, java_lang_Class *arrayClass)
486 c = (classinfo *) arrayClass;
487 ad = c->vftbl->arraydesc;
490 /* XXX does that exception exist? */
491 exceptions_throw_internalerror("java/lang/InvalidClassException");
495 return ad->dataoffset;
500 * Class: sun/misc/Unsafe
501 * Method: arrayIndexScale
502 * Signature: (Ljava/lang/Class;)I
504 JNIEXPORT int32_t JNICALL Java_sun_misc_Unsafe_arrayIndexScale(JNIEnv *env, sun_misc_Unsafe *this, java_lang_Class *arrayClass)
509 c = (classinfo *) arrayClass;
510 ad = c->vftbl->arraydesc;
513 /* XXX does that exception exist? */
514 exceptions_throw_internalerror("java/lang/InvalidClassException");
518 return ad->componentsize;
523 * Class: sun/misc/Unsafe
524 * Method: addressSize
527 JNIEXPORT int32_t JNICALL Java_sun_misc_Unsafe_addressSize(JNIEnv *env, sun_misc_Unsafe *this)
529 return SIZEOF_VOID_P;
534 * Class: sun/misc/Unsafe
535 * Method: defineClass
536 * Signature: (Ljava/lang/String;[BIILjava/lang/ClassLoader;Ljava/security/ProtectionDomain;)Ljava/lang/Class;
538 JNIEXPORT java_lang_Class* JNICALL Java_sun_misc_Unsafe_defineClass__Ljava_lang_String_2_3BIILjava_lang_ClassLoader_2Ljava_security_ProtectionDomain_2(JNIEnv *env, sun_misc_Unsafe *this, java_lang_String *name, java_handle_bytearray_t *b, int32_t off, int32_t len, java_lang_ClassLoader *loader, java_security_ProtectionDomain *protectionDomain)
545 cl = (classloader *) loader;
547 /* check if data was passed */
550 exceptions_throw_nullpointerexception();
554 /* check the indexes passed */
556 if ((off < 0) || (len < 0) || ((off + len) > LLNI_array_size(b))) {
557 exceptions_throw_arrayindexoutofboundsexception();
562 /* convert '.' to '/' in java string */
564 utfname = javastring_toutf((java_handle_t *) name, true);
570 /* define the class */
572 c = class_define(utfname, cl, len, (const uint8_t *) &b->data[off]);
577 /* for convenience */
579 o = (java_lang_Class *) c;
581 #if defined(WITH_CLASSPATH_GNU)
582 /* set ProtectionDomain */
584 LLNI_field_set_ref(o, pd, protectionDomain);
592 * Class: sun/misc/Unsafe
593 * Method: throwException
594 * Signature: (Ljava/lang/Throwable;)V
596 JNIEXPORT void JNICALL Java_sun_misc_Unsafe_throwException(JNIEnv *env, sun_misc_Unsafe *this, java_lang_Throwable *ee)
600 o = (java_handle_t *) ee;
602 exceptions_set_exception(o);
607 * Class: sun/misc/Unsafe
608 * Method: compareAndSwapObject
609 * Signature: (Ljava/lang/Object;JLjava/lang/Object;Ljava/lang/Object;)Z
611 JNIEXPORT int32_t JNICALL Java_sun_misc_Unsafe_compareAndSwapObject(JNIEnv *env, sun_misc_Unsafe *this, java_lang_Object *o, int64_t offset, java_lang_Object *expected, java_lang_Object *x)
616 p = (void **) (((uint8_t *) o) + offset);
618 /* XXX this should be atomic */
622 if (value == expected) {
633 * Class: sun/misc/Unsafe
634 * Method: compareAndSwapInt
635 * Signature: (Ljava/lang/Object;JII)Z
637 JNIEXPORT int32_t JNICALL Java_sun_misc_Unsafe_compareAndSwapInt(JNIEnv *env, sun_misc_Unsafe* this, java_lang_Object* obj, int64_t offset, int32_t expect, int32_t update)
642 p = (int32_t *) (((uint8_t *) obj) + offset);
644 /* XXX this should be atomic */
648 if (value == expect) {
659 * Class: sun/misc/Unsafe
660 * Method: compareAndSwapLong
661 * Signature: (Ljava/lang/Object;JJJ)Z
663 JNIEXPORT int32_t JNICALL Java_sun_misc_Unsafe_compareAndSwapLong(JNIEnv *env, sun_misc_Unsafe *this, java_lang_Object *o, int64_t offset, int64_t expected, int64_t x)
668 p = (int64_t *) (((uint8_t *) o) + offset);
670 /* XXX this should be atomic */
674 if (value == expected) {
685 * Class: sun/misc/Unsafe
686 * Method: getObjectVolatile
687 * Signature: (Ljava/lang/Object;J)Ljava/lang/Object;
689 JNIEXPORT java_lang_Object* JNICALL Java_sun_misc_Unsafe_getObjectVolatile(JNIEnv *env, sun_misc_Unsafe *this, java_lang_Object *o, int64_t offset)
692 volatile void *value;
694 p = (volatile void **) (((uint8_t *) o) + offset);
698 return (java_lang_Object *) value;
703 * Class: sun/misc/Unsafe
704 * Method: getIntVolatile
705 * Signature: (Ljava/lang/Object;J)I
707 JNIEXPORT int32_t JNICALL Java_sun_misc_Unsafe_getIntVolatile(JNIEnv *env, sun_misc_Unsafe *this, java_lang_Object *o, int64_t offset)
710 volatile int32_t value;
712 p = (volatile int32_t *) (((uint8_t *) o) + offset);
721 * Class: sun/misc/Unsafe
723 * Signature: (Ljava/lang/Object;)V
725 JNIEXPORT void JNICALL Java_sun_misc_Unsafe_unpark(JNIEnv *env, sun_misc_Unsafe *this, java_lang_Object *thread)
727 /* XXX IMPLEMENT ME */
732 * Class: sun/misc/Unsafe
736 JNIEXPORT void JNICALL Java_sun_misc_Unsafe_park(JNIEnv *env, sun_misc_Unsafe *this, int32_t isAbsolute, int64_t time)
738 /* XXX IMPLEMENT ME */
743 * These are local overrides for various environment variables in Emacs.
744 * Please do not remove this and leave it at the end of the file, where
745 * Emacs will automagically detect them.
746 * ---------------------------------------------------------------------
749 * indent-tabs-mode: t