1 // jni.cc - JNI implementation, including the jump table.
3 /* Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation
5 This file is part of libgcj.
7 This software is copyrighted work licensed under the terms of the
8 Libgcj License. Please consult the file "LIBGCJ_LICENSE" for
16 // Define this before including jni.h.
17 #define __GCJ_JNI_IMPL__
21 #include <java-assert.h>
27 #include <java/lang/Class.h>
28 #include <java/lang/ClassLoader.h>
29 #include <java/lang/Throwable.h>
30 #include <java/lang/ArrayIndexOutOfBoundsException.h>
31 #include <java/lang/StringIndexOutOfBoundsException.h>
32 #include <java/lang/AbstractMethodError.h>
33 #include <java/lang/InstantiationException.h>
34 #include <java/lang/NoSuchFieldError.h>
35 #include <java/lang/NoSuchMethodError.h>
36 #include <java/lang/reflect/Constructor.h>
37 #include <java/lang/reflect/Method.h>
38 #include <java/lang/reflect/Modifier.h>
39 #include <java/lang/OutOfMemoryError.h>
40 #include <java/util/IdentityHashMap.h>
41 #include <java/lang/Integer.h>
42 #include <java/lang/ThreadGroup.h>
43 #include <java/lang/Thread.h>
45 #include <gcj/method.h>
46 #include <gcj/field.h>
48 #include <java-interp.h>
49 #include <java-threads.h>
53 // This enum is used to select different template instantiations in
54 // the invocation code.
63 // Forward declarations.
64 extern struct JNINativeInterface _Jv_JNIFunctions;
65 extern struct JNIInvokeInterface _Jv_JNI_InvokeFunctions;
67 // Number of slots in the default frame. The VM must allow at least
71 // Mark value indicating this is an overflow frame.
73 // Mark value indicating this is a user frame.
75 // Mark value indicating this is a system frame.
78 // This structure is used to keep track of local references.
79 struct _Jv_JNI_LocalFrame
81 // This is true if this frame object represents a pushed frame (eg
82 // from PushLocalFrame).
85 // Number of elements in frame.
88 // Next frame in chain.
89 _Jv_JNI_LocalFrame *next;
91 // The elements. These are allocated using the C "struct hack".
95 // This holds a reference count for all local references.
96 static java::util::IdentityHashMap *local_ref_table;
97 // This holds a reference count for all global references.
98 static java::util::IdentityHashMap *global_ref_table;
101 static JavaVM *the_vm;
104 // The only JVMPI interface description.
105 static JVMPI_Interface _Jv_JVMPI_Interface;
108 jvmpiEnableEvent (jint event_type, void *)
112 case JVMPI_EVENT_OBJECT_ALLOC:
113 _Jv_JVMPI_Notify_OBJECT_ALLOC = _Jv_JVMPI_Interface.NotifyEvent;
116 case JVMPI_EVENT_THREAD_START:
117 _Jv_JVMPI_Notify_THREAD_START = _Jv_JVMPI_Interface.NotifyEvent;
120 case JVMPI_EVENT_THREAD_END:
121 _Jv_JVMPI_Notify_THREAD_END = _Jv_JVMPI_Interface.NotifyEvent;
125 return JVMPI_NOT_AVAILABLE;
128 return JVMPI_SUCCESS;
132 jvmpiDisableEvent (jint event_type, void *)
136 case JVMPI_EVENT_OBJECT_ALLOC:
137 _Jv_JVMPI_Notify_OBJECT_ALLOC = NULL;
141 return JVMPI_NOT_AVAILABLE;
144 return JVMPI_SUCCESS;
153 local_ref_table = new java::util::IdentityHashMap;
154 global_ref_table = new java::util::IdentityHashMap;
157 _Jv_JVMPI_Interface.version = 1;
158 _Jv_JVMPI_Interface.EnableEvent = &jvmpiEnableEvent;
159 _Jv_JVMPI_Interface.DisableEvent = &jvmpiDisableEvent;
160 _Jv_JVMPI_Interface.EnableGC = &_Jv_EnableGC;
161 _Jv_JVMPI_Interface.DisableGC = &_Jv_DisableGC;
162 _Jv_JVMPI_Interface.RunGC = &_Jv_RunGC;
166 // Tell the GC that a certain pointer is live.
168 mark_for_gc (jobject obj, java::util::IdentityHashMap *ref_table)
170 JvSynchronize sync (ref_table);
172 using namespace java::lang;
173 Integer *refcount = (Integer *) ref_table->get (obj);
174 jint val = (refcount == NULL) ? 0 : refcount->intValue ();
175 // FIXME: what about out of memory error?
176 ref_table->put (obj, new Integer (val + 1));
181 unmark_for_gc (jobject obj, java::util::IdentityHashMap *ref_table)
183 JvSynchronize sync (ref_table);
185 using namespace java::lang;
186 Integer *refcount = (Integer *) ref_table->get (obj);
188 jint val = refcount->intValue () - 1;
191 ref_table->remove (obj);
193 // FIXME: what about out of memory error?
194 ref_table->put (obj, new Integer (val));
200 _Jv_JNI_NewGlobalRef (JNIEnv *, jobject obj)
202 mark_for_gc (obj, global_ref_table);
207 _Jv_JNI_DeleteGlobalRef (JNIEnv *, jobject obj)
209 unmark_for_gc (obj, global_ref_table);
213 _Jv_JNI_DeleteLocalRef (JNIEnv *env, jobject obj)
215 _Jv_JNI_LocalFrame *frame;
217 for (frame = env->locals; frame != NULL; frame = frame->next)
219 for (int i = 0; i < frame->size; ++i)
221 if (frame->vec[i] == obj)
223 frame->vec[i] = NULL;
224 unmark_for_gc (obj, local_ref_table);
229 // Don't go past a marked frame.
230 JvAssert (frame->marker == MARK_NONE);
237 _Jv_JNI_EnsureLocalCapacity (JNIEnv *env, jint size)
239 // It is easier to just always allocate a new frame of the requested
240 // size. This isn't the most efficient thing, but for now we don't
241 // care. Note that _Jv_JNI_PushLocalFrame relies on this right now.
243 _Jv_JNI_LocalFrame *frame;
246 frame = (_Jv_JNI_LocalFrame *) _Jv_Malloc (sizeof (_Jv_JNI_LocalFrame)
247 + size * sizeof (jobject));
255 frame->marker = MARK_NONE;
257 memset (&frame->vec[0], 0, size * sizeof (jobject));
258 frame->next = env->locals;
265 _Jv_JNI_PushLocalFrame (JNIEnv *env, jint size)
267 jint r = _Jv_JNI_EnsureLocalCapacity (env, size);
271 // The new frame is on top.
272 env->locals->marker = MARK_USER;
278 _Jv_JNI_NewLocalRef (JNIEnv *env, jobject obj)
280 // Try to find an open slot somewhere in the topmost frame.
281 _Jv_JNI_LocalFrame *frame = env->locals;
282 bool done = false, set = false;
283 for (; frame != NULL && ! done; frame = frame->next)
285 for (int i = 0; i < frame->size; ++i)
287 if (frame->vec[i] == NULL)
296 // If we found a slot, or if the frame we just searched is the
297 // mark frame, then we are done.
298 if (done || frame->marker != MARK_NONE)
304 // No slots, so we allocate a new frame. According to the spec
305 // we could just die here. FIXME: return value.
306 _Jv_JNI_EnsureLocalCapacity (env, 16);
307 // We know the first element of the new frame will be ok.
308 env->locals->vec[0] = obj;
311 mark_for_gc (obj, local_ref_table);
316 _Jv_JNI_PopLocalFrame (JNIEnv *env, jobject result, int stop)
318 _Jv_JNI_LocalFrame *rf = env->locals;
321 while (rf != NULL && ! done)
323 for (int i = 0; i < rf->size; ++i)
324 if (rf->vec[i] != NULL)
325 unmark_for_gc (rf->vec[i], local_ref_table);
327 // If the frame we just freed is the marker frame, we are done.
328 done = (rf->marker == stop);
330 _Jv_JNI_LocalFrame *n = rf->next;
331 // When N==NULL, we've reached the stack-allocated frame, and we
332 // must not free it. However, we must be sure to clear all its
333 // elements, since we might conceivably reuse it.
336 memset (&rf->vec[0], 0, rf->size * sizeof (jobject));
344 // Update the local frame information.
347 return result == NULL ? NULL : _Jv_JNI_NewLocalRef (env, result);
351 _Jv_JNI_PopLocalFrame (JNIEnv *env, jobject result)
353 return _Jv_JNI_PopLocalFrame (env, result, MARK_USER);
356 // Pop a `system' frame from the stack. This is `extern "C"' as it is
357 // used by the compiler.
359 _Jv_JNI_PopSystemFrame (JNIEnv *env)
361 _Jv_JNI_PopLocalFrame (env, NULL, MARK_SYSTEM);
365 jthrowable t = env->ex;
371 // This function is used from other template functions. It wraps the
372 // return value appropriately; we specialize it so that object returns
373 // are turned into local references.
376 wrap_value (JNIEnv *, T value)
381 // This specialization is used for jobject, jclass, jstring, jarray,
385 wrap_value (JNIEnv *env, T *value)
387 return (value == NULL
389 : (T *) _Jv_JNI_NewLocalRef (env, (jobject) value));
395 _Jv_JNI_GetVersion (JNIEnv *)
397 return JNI_VERSION_1_2;
401 _Jv_JNI_DefineClass (JNIEnv *env, jobject loader,
402 const jbyte *buf, jsize bufLen)
406 jbyteArray bytes = JvNewByteArray (bufLen);
408 jbyte *elts = elements (bytes);
409 memcpy (elts, buf, bufLen * sizeof (jbyte));
411 java::lang::ClassLoader *l
412 = reinterpret_cast<java::lang::ClassLoader *> (loader);
414 jclass result = l->defineClass (bytes, 0, bufLen);
415 return (jclass) wrap_value (env, result);
425 _Jv_JNI_FindClass (JNIEnv *env, const char *name)
427 // FIXME: assume that NAME isn't too long.
428 int len = strlen (name);
430 for (int i = 0; i <= len; ++i)
431 s[i] = (name[i] == '/') ? '.' : name[i];
436 // This might throw an out of memory exception.
437 jstring n = JvNewStringUTF (s);
439 java::lang::ClassLoader *loader = NULL;
440 if (env->klass != NULL)
441 loader = env->klass->getClassLoader ();
445 // FIXME: should use getBaseClassLoader, but we don't have that
447 loader = java::lang::ClassLoader::getSystemClassLoader ();
450 r = loader->loadClass (n);
457 return (jclass) wrap_value (env, r);
461 _Jv_JNI_GetSuperclass (JNIEnv *env, jclass clazz)
463 return (jclass) wrap_value (env, clazz->getSuperclass ());
467 _Jv_JNI_IsAssignableFrom(JNIEnv *, jclass clazz1, jclass clazz2)
469 return clazz1->isAssignableFrom (clazz2);
473 _Jv_JNI_Throw (JNIEnv *env, jthrowable obj)
475 // We check in case the user did some funky cast.
476 JvAssert (obj != NULL && java::lang::Throwable::class$.isInstance (obj));
482 _Jv_JNI_ThrowNew (JNIEnv *env, jclass clazz, const char *message)
484 using namespace java::lang::reflect;
486 JvAssert (java::lang::Throwable::class$.isAssignableFrom (clazz));
491 JArray<jclass> *argtypes
492 = (JArray<jclass> *) JvNewObjectArray (1, &java::lang::Class::class$,
495 jclass *elts = elements (argtypes);
496 elts[0] = &StringClass;
498 Constructor *cons = clazz->getConstructor (argtypes);
500 jobjectArray values = JvNewObjectArray (1, &StringClass, NULL);
501 jobject *velts = elements (values);
502 velts[0] = JvNewStringUTF (message);
504 jobject obj = cons->newInstance (values);
506 env->ex = reinterpret_cast<jthrowable> (obj);
518 _Jv_JNI_ExceptionOccurred (JNIEnv *env)
520 return (jthrowable) wrap_value (env, env->ex);
524 _Jv_JNI_ExceptionDescribe (JNIEnv *env)
527 env->ex->printStackTrace();
531 _Jv_JNI_ExceptionClear (JNIEnv *env)
537 _Jv_JNI_ExceptionCheck (JNIEnv *env)
539 return env->ex != NULL;
543 _Jv_JNI_FatalError (JNIEnv *, const char *message)
551 _Jv_JNI_IsSameObject (JNIEnv *, jobject obj1, jobject obj2)
557 _Jv_JNI_AllocObject (JNIEnv *env, jclass clazz)
560 using namespace java::lang::reflect;
564 JvAssert (clazz && ! clazz->isArray ());
565 if (clazz->isInterface() || Modifier::isAbstract(clazz->getModifiers()))
566 env->ex = new java::lang::InstantiationException ();
569 // FIXME: will this work for String?
570 obj = JvAllocObject (clazz);
578 return wrap_value (env, obj);
582 _Jv_JNI_GetObjectClass (JNIEnv *env, jobject obj)
585 return (jclass) wrap_value (env, obj->getClass());
589 _Jv_JNI_IsInstanceOf (JNIEnv *, jobject obj, jclass clazz)
591 return clazz->isInstance(obj);
597 // This section concerns method invocation.
600 template<jboolean is_static>
602 _Jv_JNI_GetAnyMethodID (JNIEnv *env, jclass clazz,
603 const char *name, const char *sig)
607 _Jv_InitClass (clazz);
609 _Jv_Utf8Const *name_u = _Jv_makeUtf8Const ((char *) name, -1);
611 // FIXME: assume that SIG isn't too long.
612 int len = strlen (sig);
614 for (int i = 0; i <= len; ++i)
615 s[i] = (sig[i] == '/') ? '.' : sig[i];
616 _Jv_Utf8Const *sig_u = _Jv_makeUtf8Const ((char *) s, -1);
618 JvAssert (! clazz->isPrimitive());
620 using namespace java::lang::reflect;
622 while (clazz != NULL)
624 jint count = JvNumMethods (clazz);
625 jmethodID meth = JvGetFirstMethod (clazz);
627 for (jint i = 0; i < count; ++i)
629 if (((is_static && Modifier::isStatic (meth->accflags))
630 || (! is_static && ! Modifier::isStatic (meth->accflags)))
631 && _Jv_equalUtf8Consts (meth->name, name_u)
632 && _Jv_equalUtf8Consts (meth->signature, sig_u))
635 meth = meth->getNextMethod();
638 clazz = clazz->getSuperclass ();
641 env->ex = new java::lang::NoSuchMethodError ();
651 // This is a helper function which turns a va_list into an array of
652 // `jvalue's. It needs signature information in order to do its work.
653 // The array of values must already be allocated.
655 array_from_valist (jvalue *values, JArray<jclass> *arg_types, va_list vargs)
657 jclass *arg_elts = elements (arg_types);
658 for (int i = 0; i < arg_types->length; ++i)
660 if (arg_elts[i] == JvPrimClass (byte))
661 values[i].b = (jbyte) va_arg (vargs, int);
662 else if (arg_elts[i] == JvPrimClass (short))
663 values[i].s = (jshort) va_arg (vargs, int);
664 else if (arg_elts[i] == JvPrimClass (int))
665 values[i].i = va_arg (vargs, jint);
666 else if (arg_elts[i] == JvPrimClass (long))
667 values[i].j = va_arg (vargs, jlong);
668 else if (arg_elts[i] == JvPrimClass (float))
669 values[i].f = va_arg (vargs, jfloat);
670 else if (arg_elts[i] == JvPrimClass (double))
671 values[i].d = va_arg (vargs, jdouble);
672 else if (arg_elts[i] == JvPrimClass (boolean))
673 values[i].z = (jboolean) va_arg (vargs, int);
674 else if (arg_elts[i] == JvPrimClass (char))
675 values[i].c = (jchar) va_arg (vargs, int);
679 values[i].l = va_arg (vargs, jobject);
684 // This can call any sort of method: virtual, "nonvirtual", static, or
686 template<typename T, invocation_type style>
688 _Jv_JNI_CallAnyMethodV (JNIEnv *env, jobject obj, jclass klass,
689 jmethodID id, va_list vargs)
692 id = _Jv_LookupDeclaredMethod (obj->getClass (), id->name, id->signature);
694 jclass decl_class = klass ? klass : obj->getClass ();
695 JvAssert (decl_class != NULL);
698 JArray<jclass> *arg_types;
702 _Jv_GetTypesFromSignature (id, decl_class,
703 &arg_types, &return_type);
705 jvalue args[arg_types->length];
706 array_from_valist (args, arg_types, vargs);
708 // For constructors we need to pass the Class we are instantiating.
709 if (style == constructor)
713 jthrowable ex = _Jv_CallAnyMethodA (obj, return_type, id,
714 style == constructor,
715 arg_types, args, &result);
720 // We cheat a little here. FIXME.
721 return wrap_value (env, * (T *) &result);
728 return wrap_value (env, (T) 0);
731 template<typename T, invocation_type style>
733 _Jv_JNI_CallAnyMethod (JNIEnv *env, jobject obj, jclass klass,
734 jmethodID method, ...)
739 va_start (args, method);
740 result = _Jv_JNI_CallAnyMethodV<T, style> (env, obj, klass, method, args);
746 template<typename T, invocation_type style>
748 _Jv_JNI_CallAnyMethodA (JNIEnv *env, jobject obj, jclass klass,
749 jmethodID id, jvalue *args)
752 id = _Jv_LookupDeclaredMethod (obj->getClass (), id->name, id->signature);
754 jclass decl_class = klass ? klass : obj->getClass ();
755 JvAssert (decl_class != NULL);
758 JArray<jclass> *arg_types;
761 _Jv_GetTypesFromSignature (id, decl_class,
762 &arg_types, &return_type);
764 // For constructors we need to pass the Class we are instantiating.
765 if (style == constructor)
769 jthrowable ex = _Jv_CallAnyMethodA (obj, return_type, id,
770 style == constructor,
771 arg_types, args, &result);
776 // We cheat a little here. FIXME.
777 return wrap_value (env, * (T *) &result);
784 return wrap_value (env, (T) 0);
787 template<invocation_type style>
789 _Jv_JNI_CallAnyVoidMethodV (JNIEnv *env, jobject obj, jclass klass,
790 jmethodID id, va_list vargs)
793 id = _Jv_LookupDeclaredMethod (obj->getClass (), id->name, id->signature);
795 jclass decl_class = klass ? klass : obj->getClass ();
796 JvAssert (decl_class != NULL);
799 JArray<jclass> *arg_types;
802 _Jv_GetTypesFromSignature (id, decl_class,
803 &arg_types, &return_type);
805 jvalue args[arg_types->length];
806 array_from_valist (args, arg_types, vargs);
808 // For constructors we need to pass the Class we are instantiating.
809 if (style == constructor)
812 jthrowable ex = _Jv_CallAnyMethodA (obj, return_type, id,
813 style == constructor,
814 arg_types, args, NULL);
825 template<invocation_type style>
827 _Jv_JNI_CallAnyVoidMethod (JNIEnv *env, jobject obj, jclass klass,
828 jmethodID method, ...)
832 va_start (args, method);
833 _Jv_JNI_CallAnyVoidMethodV<style> (env, obj, klass, method, args);
837 template<invocation_type style>
839 _Jv_JNI_CallAnyVoidMethodA (JNIEnv *env, jobject obj, jclass klass,
840 jmethodID id, jvalue *args)
843 id = _Jv_LookupDeclaredMethod (obj->getClass (), id->name, id->signature);
845 jclass decl_class = klass ? klass : obj->getClass ();
846 JvAssert (decl_class != NULL);
849 JArray<jclass> *arg_types;
852 _Jv_GetTypesFromSignature (id, decl_class,
853 &arg_types, &return_type);
855 jthrowable ex = _Jv_CallAnyMethodA (obj, return_type, id,
856 style == constructor,
857 arg_types, args, NULL);
868 // Functions with this signature are used to implement functions in
869 // the CallMethod family.
872 _Jv_JNI_CallMethodV (JNIEnv *env, jobject obj, jmethodID id, va_list args)
874 return _Jv_JNI_CallAnyMethodV<T, normal> (env, obj, NULL, id, args);
877 // Functions with this signature are used to implement functions in
878 // the CallMethod family.
881 _Jv_JNI_CallMethod (JNIEnv *env, jobject obj, jmethodID id, ...)
887 result = _Jv_JNI_CallAnyMethodV<T, normal> (env, obj, NULL, id, args);
893 // Functions with this signature are used to implement functions in
894 // the CallMethod family.
897 _Jv_JNI_CallMethodA (JNIEnv *env, jobject obj, jmethodID id, jvalue *args)
899 return _Jv_JNI_CallAnyMethodA<T, normal> (env, obj, NULL, id, args);
903 _Jv_JNI_CallVoidMethodV (JNIEnv *env, jobject obj, jmethodID id, va_list args)
905 _Jv_JNI_CallAnyVoidMethodV<normal> (env, obj, NULL, id, args);
909 _Jv_JNI_CallVoidMethod (JNIEnv *env, jobject obj, jmethodID id, ...)
914 _Jv_JNI_CallAnyVoidMethodV<normal> (env, obj, NULL, id, args);
919 _Jv_JNI_CallVoidMethodA (JNIEnv *env, jobject obj, jmethodID id, jvalue *args)
921 _Jv_JNI_CallAnyVoidMethodA<normal> (env, obj, NULL, id, args);
924 // Functions with this signature are used to implement functions in
925 // the CallStaticMethod family.
928 _Jv_JNI_CallStaticMethodV (JNIEnv *env, jclass klass,
929 jmethodID id, va_list args)
931 JvAssert (((id->accflags) & java::lang::reflect::Modifier::STATIC));
932 JvAssert (java::lang::Class::class$.isInstance (klass));
934 return _Jv_JNI_CallAnyMethodV<T, static_type> (env, NULL, klass, id, args);
937 // Functions with this signature are used to implement functions in
938 // the CallStaticMethod family.
941 _Jv_JNI_CallStaticMethod (JNIEnv *env, jclass klass, jmethodID id, ...)
946 JvAssert (((id->accflags) & java::lang::reflect::Modifier::STATIC));
947 JvAssert (java::lang::Class::class$.isInstance (klass));
950 result = _Jv_JNI_CallAnyMethodV<T, static_type> (env, NULL, klass,
957 // Functions with this signature are used to implement functions in
958 // the CallStaticMethod family.
961 _Jv_JNI_CallStaticMethodA (JNIEnv *env, jclass klass, jmethodID id,
964 JvAssert (((id->accflags) & java::lang::reflect::Modifier::STATIC));
965 JvAssert (java::lang::Class::class$.isInstance (klass));
967 return _Jv_JNI_CallAnyMethodA<T, static_type> (env, NULL, klass, id, args);
971 _Jv_JNI_CallStaticVoidMethodV (JNIEnv *env, jclass klass, jmethodID id,
974 _Jv_JNI_CallAnyVoidMethodV<static_type> (env, NULL, klass, id, args);
978 _Jv_JNI_CallStaticVoidMethod (JNIEnv *env, jclass klass, jmethodID id, ...)
983 _Jv_JNI_CallAnyVoidMethodV<static_type> (env, NULL, klass, id, args);
988 _Jv_JNI_CallStaticVoidMethodA (JNIEnv *env, jclass klass, jmethodID id,
991 _Jv_JNI_CallAnyVoidMethodA<static_type> (env, NULL, klass, id, args);
995 _Jv_JNI_NewObjectV (JNIEnv *env, jclass klass,
996 jmethodID id, va_list args)
998 JvAssert (klass && ! klass->isArray ());
999 JvAssert (! strcmp (id->name->data, "<init>")
1000 && id->signature->length > 2
1001 && id->signature->data[0] == '('
1002 && ! strcmp (&id->signature->data[id->signature->length - 2],
1005 return _Jv_JNI_CallAnyMethodV<jobject, constructor> (env, NULL, klass,
1010 _Jv_JNI_NewObject (JNIEnv *env, jclass klass, jmethodID id, ...)
1012 JvAssert (klass && ! klass->isArray ());
1013 JvAssert (! strcmp (id->name->data, "<init>")
1014 && id->signature->length > 2
1015 && id->signature->data[0] == '('
1016 && ! strcmp (&id->signature->data[id->signature->length - 2],
1022 va_start (args, id);
1023 result = _Jv_JNI_CallAnyMethodV<jobject, constructor> (env, NULL, klass,
1031 _Jv_JNI_NewObjectA (JNIEnv *env, jclass klass, jmethodID id,
1034 JvAssert (klass && ! klass->isArray ());
1035 JvAssert (! strcmp (id->name->data, "<init>")
1036 && id->signature->length > 2
1037 && id->signature->data[0] == '('
1038 && ! strcmp (&id->signature->data[id->signature->length - 2],
1041 return _Jv_JNI_CallAnyMethodA<jobject, constructor> (env, NULL, klass,
1047 template<typename T>
1049 _Jv_JNI_GetField (JNIEnv *env, jobject obj, jfieldID field)
1052 T *ptr = (T *) ((char *) obj + field->getOffset ());
1053 return wrap_value (env, *ptr);
1056 template<typename T>
1058 _Jv_JNI_SetField (JNIEnv *, jobject obj, jfieldID field, T value)
1061 T *ptr = (T *) ((char *) obj + field->getOffset ());
1065 template<jboolean is_static>
1067 _Jv_JNI_GetAnyFieldID (JNIEnv *env, jclass clazz,
1068 const char *name, const char *sig)
1072 _Jv_InitClass (clazz);
1074 _Jv_Utf8Const *a_name = _Jv_makeUtf8Const ((char *) name, -1);
1076 // FIXME: assume that SIG isn't too long.
1077 int len = strlen (sig);
1079 for (int i = 0; i <= len; ++i)
1080 s[i] = (sig[i] == '/') ? '.' : sig[i];
1081 jclass field_class = _Jv_FindClassFromSignature ((char *) s, NULL);
1083 // FIXME: what if field_class == NULL?
1085 java::lang::ClassLoader *loader = clazz->getClassLoader ();
1086 while (clazz != NULL)
1088 // We acquire the class lock so that fields aren't resolved
1089 // while we are running.
1090 JvSynchronize sync (clazz);
1092 jint count = (is_static
1093 ? JvNumStaticFields (clazz)
1094 : JvNumInstanceFields (clazz));
1095 jfieldID field = (is_static
1096 ? JvGetFirstStaticField (clazz)
1097 : JvGetFirstInstanceField (clazz));
1098 for (jint i = 0; i < count; ++i)
1100 _Jv_Utf8Const *f_name = field->getNameUtf8Const(clazz);
1102 // The field might be resolved or it might not be. It
1103 // is much simpler to always resolve it.
1104 _Jv_ResolveField (field, loader);
1105 if (_Jv_equalUtf8Consts (f_name, a_name)
1106 && field->getClass() == field_class)
1109 field = field->getNextField ();
1112 clazz = clazz->getSuperclass ();
1115 env->ex = new java::lang::NoSuchFieldError ();
1117 catch (jthrowable t)
1124 template<typename T>
1126 _Jv_JNI_GetStaticField (JNIEnv *env, jclass, jfieldID field)
1128 T *ptr = (T *) field->u.addr;
1129 return wrap_value (env, *ptr);
1132 template<typename T>
1134 _Jv_JNI_SetStaticField (JNIEnv *, jclass, jfieldID field, T value)
1136 T *ptr = (T *) field->u.addr;
1141 _Jv_JNI_NewString (JNIEnv *env, const jchar *unichars, jsize len)
1145 jstring r = _Jv_NewString (unichars, len);
1146 return (jstring) wrap_value (env, r);
1148 catch (jthrowable t)
1156 _Jv_JNI_GetStringLength (JNIEnv *, jstring string)
1158 return string->length();
1161 static const jchar *
1162 _Jv_JNI_GetStringChars (JNIEnv *, jstring string, jboolean *isCopy)
1164 jchar *result = _Jv_GetStringChars (string);
1165 mark_for_gc (string, global_ref_table);
1168 return (const jchar *) result;
1172 _Jv_JNI_ReleaseStringChars (JNIEnv *, jstring string, const jchar *)
1174 unmark_for_gc (string, global_ref_table);
1178 _Jv_JNI_NewStringUTF (JNIEnv *env, const char *bytes)
1182 jstring result = JvNewStringUTF (bytes);
1183 return (jstring) wrap_value (env, result);
1185 catch (jthrowable t)
1193 _Jv_JNI_GetStringUTFLength (JNIEnv *, jstring string)
1195 return JvGetStringUTFLength (string);
1199 _Jv_JNI_GetStringUTFChars (JNIEnv *env, jstring string, jboolean *isCopy)
1201 jsize len = JvGetStringUTFLength (string);
1204 char *r = (char *) _Jv_Malloc (len + 1);
1205 JvGetStringUTFRegion (string, 0, len, r);
1211 return (const char *) r;
1213 catch (jthrowable t)
1221 _Jv_JNI_ReleaseStringUTFChars (JNIEnv *, jstring, const char *utf)
1223 _Jv_Free ((void *) utf);
1227 _Jv_JNI_GetStringRegion (JNIEnv *env, jstring string, jsize start, jsize len,
1230 jchar *result = _Jv_GetStringChars (string);
1231 if (start < 0 || start > string->length ()
1232 || len < 0 || start + len > string->length ())
1236 env->ex = new java::lang::StringIndexOutOfBoundsException ();
1238 catch (jthrowable t)
1244 memcpy (buf, &result[start], len * sizeof (jchar));
1248 _Jv_JNI_GetStringUTFRegion (JNIEnv *env, jstring str, jsize start,
1249 jsize len, char *buf)
1251 if (start < 0 || start > str->length ()
1252 || len < 0 || start + len > str->length ())
1256 env->ex = new java::lang::StringIndexOutOfBoundsException ();
1258 catch (jthrowable t)
1264 _Jv_GetStringUTFRegion (str, start, len, buf);
1267 static const jchar *
1268 _Jv_JNI_GetStringCritical (JNIEnv *, jstring str, jboolean *isCopy)
1270 jchar *result = _Jv_GetStringChars (str);
1277 _Jv_JNI_ReleaseStringCritical (JNIEnv *, jstring, const jchar *)
1283 _Jv_JNI_GetArrayLength (JNIEnv *, jarray array)
1285 return array->length;
1289 _Jv_JNI_NewObjectArray (JNIEnv *env, jsize length, jclass elementClass,
1294 jarray result = JvNewObjectArray (length, elementClass, init);
1295 return (jarray) wrap_value (env, result);
1297 catch (jthrowable t)
1305 _Jv_JNI_GetObjectArrayElement (JNIEnv *env, jobjectArray array, jsize index)
1307 jobject *elts = elements (array);
1308 return wrap_value (env, elts[index]);
1312 _Jv_JNI_SetObjectArrayElement (JNIEnv *env, jobjectArray array, jsize index,
1317 _Jv_CheckArrayStore (array, value);
1318 jobject *elts = elements (array);
1319 elts[index] = value;
1321 catch (jthrowable t)
1327 template<typename T, jclass K>
1329 _Jv_JNI_NewPrimitiveArray (JNIEnv *env, jsize length)
1333 return (JArray<T> *) wrap_value (env, _Jv_NewPrimArray (K, length));
1335 catch (jthrowable t)
1342 template<typename T>
1344 _Jv_JNI_GetPrimitiveArrayElements (JNIEnv *, JArray<T> *array,
1347 T *elts = elements (array);
1350 // We elect never to copy.
1353 mark_for_gc (array, global_ref_table);
1357 template<typename T>
1359 _Jv_JNI_ReleasePrimitiveArrayElements (JNIEnv *, JArray<T> *array,
1360 T *, jint /* mode */)
1362 // Note that we ignore MODE. We can do this because we never copy
1363 // the array elements. My reading of the JNI documentation is that
1364 // this is an option for the implementor.
1365 unmark_for_gc (array, global_ref_table);
1368 template<typename T>
1370 _Jv_JNI_GetPrimitiveArrayRegion (JNIEnv *env, JArray<T> *array,
1371 jsize start, jsize len,
1374 // The cast to unsigned lets us save a comparison.
1375 if (start < 0 || len < 0
1376 || (unsigned long) (start + len) > (unsigned long) array->length)
1381 env->ex = new java::lang::ArrayIndexOutOfBoundsException ();
1383 catch (jthrowable t)
1385 // Could have thown out of memory error.
1391 T *elts = elements (array) + start;
1392 memcpy (buf, elts, len * sizeof (T));
1396 template<typename T>
1398 _Jv_JNI_SetPrimitiveArrayRegion (JNIEnv *env, JArray<T> *array,
1399 jsize start, jsize len, T *buf)
1401 // The cast to unsigned lets us save a comparison.
1402 if (start < 0 || len < 0
1403 || (unsigned long) (start + len) > (unsigned long) array->length)
1408 env->ex = new java::lang::ArrayIndexOutOfBoundsException ();
1410 catch (jthrowable t)
1417 T *elts = elements (array) + start;
1418 memcpy (elts, buf, len * sizeof (T));
1423 _Jv_JNI_GetPrimitiveArrayCritical (JNIEnv *, jarray array,
1426 // FIXME: does this work?
1427 jclass klass = array->getClass()->getComponentType();
1428 JvAssert (klass->isPrimitive ());
1429 char *r = _Jv_GetArrayElementFromElementType (array, klass);
1436 _Jv_JNI_ReleasePrimitiveArrayCritical (JNIEnv *, jarray, void *, jint)
1442 _Jv_JNI_MonitorEnter (JNIEnv *env, jobject obj)
1446 _Jv_MonitorEnter (obj);
1449 catch (jthrowable t)
1457 _Jv_JNI_MonitorExit (JNIEnv *env, jobject obj)
1461 _Jv_MonitorExit (obj);
1464 catch (jthrowable t)
1473 _Jv_JNI_ToReflectedField (JNIEnv *env, jclass cls, jfieldID fieldID,
1478 java::lang::reflect::Field *field = new java::lang::reflect::Field();
1479 field->declaringClass = cls;
1480 field->offset = (char*) fieldID - (char *) cls->fields;
1481 field->name = _Jv_NewStringUtf8Const (fieldID->getNameUtf8Const (cls));
1482 return wrap_value (env, field);
1484 catch (jthrowable t)
1493 _Jv_JNI_FromReflectedField (JNIEnv *, jobject f)
1495 using namespace java::lang::reflect;
1497 Field *field = reinterpret_cast<Field *> (f);
1498 return _Jv_FromReflectedField (field);
1502 _Jv_JNI_ToReflectedMethod (JNIEnv *env, jclass klass, jmethodID id,
1505 using namespace java::lang::reflect;
1507 jobject result = NULL;
1511 if (_Jv_equalUtf8Consts (id->name, init_name))
1514 Constructor *cons = new Constructor ();
1515 cons->offset = (char *) id - (char *) &klass->methods;
1516 cons->declaringClass = klass;
1521 Method *meth = new Method ();
1522 meth->offset = (char *) id - (char *) &klass->methods;
1523 meth->declaringClass = klass;
1527 catch (jthrowable t)
1532 return wrap_value (env, result);
1536 _Jv_JNI_FromReflectedMethod (JNIEnv *, jobject method)
1538 using namespace java::lang::reflect;
1539 if (Method::class$.isInstance (method))
1540 return _Jv_FromReflectedMethod (reinterpret_cast<Method *> (method));
1542 _Jv_FromReflectedConstructor (reinterpret_cast<Constructor *> (method));
1547 // Hash table of native methods.
1548 static JNINativeMethod *nathash;
1549 // Number of slots used.
1550 static int nathash_count = 0;
1551 // Number of slots available. Must be power of 2.
1552 static int nathash_size = 0;
1554 #define DELETED_ENTRY ((char *) (~0))
1556 // Compute a hash value for a native method descriptor.
1558 hash (const JNINativeMethod *method)
1565 hash = (31 * hash) + *ptr++;
1567 ptr = method->signature;
1569 hash = (31 * hash) + *ptr++;
1574 // Find the slot where a native method goes.
1575 static JNINativeMethod *
1576 nathash_find_slot (const JNINativeMethod *method)
1578 jint h = hash (method);
1579 int step = (h ^ (h >> 16)) | 1;
1580 int w = h & (nathash_size - 1);
1585 JNINativeMethod *slotp = &nathash[w];
1586 if (slotp->name == NULL)
1589 return &nathash[del];
1593 else if (slotp->name == DELETED_ENTRY)
1595 else if (! strcmp (slotp->name, method->name)
1596 && ! strcmp (slotp->signature, method->signature))
1598 w = (w + step) & (nathash_size - 1);
1602 // Find a method. Return NULL if it isn't in the hash table.
1604 nathash_find (JNINativeMethod *method)
1606 if (nathash == NULL)
1608 JNINativeMethod *slot = nathash_find_slot (method);
1609 if (slot->name == NULL || slot->name == DELETED_ENTRY)
1617 if (nathash == NULL)
1619 nathash_size = 1024;
1621 (JNINativeMethod *) _Jv_AllocBytes (nathash_size
1622 * sizeof (JNINativeMethod));
1623 memset (nathash, 0, nathash_size * sizeof (JNINativeMethod));
1627 int savesize = nathash_size;
1628 JNINativeMethod *savehash = nathash;
1631 (JNINativeMethod *) _Jv_AllocBytes (nathash_size
1632 * sizeof (JNINativeMethod));
1633 memset (nathash, 0, nathash_size * sizeof (JNINativeMethod));
1635 for (int i = 0; i < savesize; ++i)
1637 if (savehash[i].name != NULL && savehash[i].name != DELETED_ENTRY)
1639 JNINativeMethod *slot = nathash_find_slot (&savehash[i]);
1640 *slot = savehash[i];
1647 nathash_add (const JNINativeMethod *method)
1649 if (3 * nathash_count >= 2 * nathash_size)
1651 JNINativeMethod *slot = nathash_find_slot (method);
1652 // If the slot has a real entry in it, then there is no work to do.
1653 if (slot->name != NULL && slot->name != DELETED_ENTRY)
1656 slot->name = strdup (method->name);
1657 slot->signature = strdup (method->signature);
1658 slot->fnPtr = method->fnPtr;
1662 _Jv_JNI_RegisterNatives (JNIEnv *env, jclass klass,
1663 const JNINativeMethod *methods,
1666 // Synchronize while we do the work. This must match
1667 // synchronization in some other functions that manipulate or use
1668 // the nathash table.
1669 JvSynchronize sync (global_ref_table);
1671 // Look at each descriptor given us, and find the corresponding
1672 // method in the class.
1673 for (int j = 0; j < nMethods; ++j)
1677 _Jv_Method *imeths = JvGetFirstMethod (klass);
1678 for (int i = 0; i < JvNumMethods (klass); ++i)
1680 _Jv_Method *self = &imeths[i];
1682 if (! strcmp (self->name->data, methods[j].name)
1683 && ! strcmp (self->signature->data, methods[j].signature))
1685 if (! (self->accflags
1686 & java::lang::reflect::Modifier::NATIVE))
1689 // Found a match that is native.
1691 nathash_add (&methods[j]);
1699 jstring m = JvNewStringUTF (methods[j].name);
1702 env->ex =new java::lang::NoSuchMethodError (m);
1704 catch (jthrowable t)
1716 _Jv_JNI_UnregisterNatives (JNIEnv *, jclass)
1718 // FIXME -- we could implement this.
1724 // Add a character to the buffer, encoding properly.
1726 add_char (char *buf, jchar c, int *here)
1730 buf[(*here)++] = '_';
1731 buf[(*here)++] = '1';
1735 buf[(*here)++] = '_';
1736 buf[(*here)++] = '2';
1740 buf[(*here)++] = '_';
1741 buf[(*here)++] = '3';
1744 // Also check for `.' here because we might be passed an internal
1745 // qualified class name like `foo.bar'.
1746 else if (c == '/' || c == '.')
1747 buf[(*here)++] = '_';
1748 else if ((c >= '0' && c <= '9')
1749 || (c >= 'a' && c <= 'z')
1750 || (c >= 'A' && c <= 'Z'))
1751 buf[(*here)++] = (char) c;
1754 // "Unicode" character.
1755 buf[(*here)++] = '_';
1756 buf[(*here)++] = '0';
1757 for (int i = 0; i < 4; ++i)
1760 buf[(*here) + 3 - i] = (val > 10) ? ('a' + val - 10) : ('0' + val);
1767 // Compute a mangled name for a native function. This computes the
1768 // long name, and also returns an index which indicates where a NUL
1769 // can be placed to create the short name. This function assumes that
1770 // the buffer is large enough for its results.
1772 mangled_name (jclass klass, _Jv_Utf8Const *func_name,
1773 _Jv_Utf8Const *signature, char *buf, int *long_start)
1775 strcpy (buf, "Java_");
1778 // Add fully qualified class name.
1779 jchar *chars = _Jv_GetStringChars (klass->getName ());
1780 jint len = klass->getName ()->length ();
1781 for (int i = 0; i < len; ++i)
1782 add_char (buf, chars[i], &here);
1784 // Don't use add_char because we need a literal `_'.
1787 const unsigned char *fn = (const unsigned char *) func_name->data;
1788 const unsigned char *limit = fn + func_name->length;
1789 for (int i = 0; ; ++i)
1791 int ch = UTF8_GET (fn, limit);
1794 add_char (buf, ch, &here);
1797 // This is where the long signature begins.
1802 const unsigned char *sig = (const unsigned char *) signature->data;
1803 limit = sig + signature->length;
1804 JvAssert (sig[0] == '(');
1808 int ch = UTF8_GET (sig, limit);
1809 if (ch == ')' || ch < 0)
1811 add_char (buf, ch, &here);
1817 // Return the current thread's JNIEnv; if one does not exist, create
1818 // it. Also create a new system frame for use. This is `extern "C"'
1819 // because the compiler calls it.
1821 _Jv_GetJNIEnvNewFrame (jclass klass)
1823 JNIEnv *env = _Jv_GetCurrentJNIEnv ();
1826 env = (JNIEnv *) _Jv_MallocUnchecked (sizeof (JNIEnv));
1827 env->p = &_Jv_JNIFunctions;
1832 _Jv_SetCurrentJNIEnv (env);
1835 _Jv_JNI_LocalFrame *frame
1836 = (_Jv_JNI_LocalFrame *) _Jv_MallocUnchecked (sizeof (_Jv_JNI_LocalFrame)
1838 * sizeof (jobject)));
1840 frame->marker = MARK_SYSTEM;
1841 frame->size = FRAME_SIZE;
1842 frame->next = env->locals;
1843 env->locals = frame;
1845 for (int i = 0; i < frame->size; ++i)
1846 frame->vec[i] = NULL;
1851 // Return the function which implements a particular JNI method. If
1852 // we can't find the function, we throw the appropriate exception.
1853 // This is `extern "C"' because the compiler uses it.
1855 _Jv_LookupJNIMethod (jclass klass, _Jv_Utf8Const *name,
1856 _Jv_Utf8Const *signature)
1858 char buf[10 + 6 * (name->length + signature->length)];
1862 // Synchronize on something convenient. Right now we use the hash.
1863 JvSynchronize sync (global_ref_table);
1865 // First see if we have an override in the hash table.
1866 strncpy (buf, name->data, name->length);
1867 buf[name->length] = '\0';
1868 strncpy (buf + name->length + 1, signature->data, signature->length);
1869 buf[name->length + signature->length + 1] = '\0';
1870 JNINativeMethod meth;
1872 meth.signature = buf + name->length + 1;
1873 function = nathash_find (&meth);
1874 if (function != NULL)
1877 // If there was no override, then look in the symbol table.
1878 mangled_name (klass, name, signature, buf, &long_start);
1879 char c = buf[long_start];
1880 buf[long_start] = '\0';
1881 function = _Jv_FindSymbolInExecutable (buf);
1882 if (function == NULL)
1884 buf[long_start] = c;
1885 function = _Jv_FindSymbolInExecutable (buf);
1886 if (function == NULL)
1888 jstring str = JvNewStringUTF (name->data);
1889 throw new java::lang::AbstractMethodError (str);
1898 // This function is the stub which is used to turn an ordinary (CNI)
1899 // method call into a JNI call.
1901 _Jv_JNIMethod::call (ffi_cif *, void *ret, ffi_raw *args, void *__this)
1903 _Jv_JNIMethod* _this = (_Jv_JNIMethod *) __this;
1905 JNIEnv *env = _Jv_GetJNIEnvNewFrame (_this->defining_class);
1907 // FIXME: we should mark every reference parameter as a local. For
1908 // now we assume a conservative GC, and we assume that the
1909 // references are on the stack somewhere.
1911 // We cache the value that we find, of course, but if we don't find
1912 // a value we don't cache that fact -- we might subsequently load a
1913 // library which finds the function in question.
1915 // Synchronize on a convenient object to ensure sanity in case two
1916 // threads reach this point for the same function at the same
1918 JvSynchronize sync (global_ref_table);
1919 if (_this->function == NULL)
1920 _this->function = _Jv_LookupJNIMethod (_this->defining_class,
1922 _this->self->signature);
1925 JvAssert (_this->args_raw_size % sizeof (ffi_raw) == 0);
1926 ffi_raw real_args[2 + _this->args_raw_size / sizeof (ffi_raw)];
1929 // First argument is always the environment pointer.
1930 real_args[offset++].ptr = env;
1932 // For a static method, we pass in the Class. For non-static
1933 // methods, the `this' argument is already handled.
1934 if ((_this->self->accflags & java::lang::reflect::Modifier::STATIC))
1935 real_args[offset++].ptr = _this->defining_class;
1937 // Copy over passed-in arguments.
1938 memcpy (&real_args[offset], args, _this->args_raw_size);
1940 // The actual call to the JNI function.
1941 ffi_raw_call (&_this->jni_cif, (void (*)()) _this->function,
1944 _Jv_JNI_PopSystemFrame (env);
1947 #endif /* INTERPRETER */
1955 // An internal helper function.
1957 _Jv_JNI_AttachCurrentThread (JavaVM *, jstring name, void **penv, void *args)
1959 JavaVMAttachArgs *attach = reinterpret_cast<JavaVMAttachArgs *> (args);
1960 java::lang::ThreadGroup *group = NULL;
1964 // FIXME: do we really want to support 1.1?
1965 if (attach->version != JNI_VERSION_1_2
1966 && attach->version != JNI_VERSION_1_1)
1967 return JNI_EVERSION;
1969 JvAssert (java::lang::ThreadGroup::class$.isInstance (attach->group));
1970 group = reinterpret_cast<java::lang::ThreadGroup *> (attach->group);
1973 // Attaching an already-attached thread is a no-op.
1974 if (_Jv_GetCurrentJNIEnv () != NULL)
1977 JNIEnv *env = (JNIEnv *) _Jv_MallocUnchecked (sizeof (JNIEnv));
1980 env->p = &_Jv_JNIFunctions;
1984 = (_Jv_JNI_LocalFrame *) _Jv_MallocUnchecked (sizeof (_Jv_JNI_LocalFrame)
1986 * sizeof (jobject)));
1987 if (env->locals == NULL)
1992 *penv = reinterpret_cast<void *> (env);
1994 // This thread might already be a Java thread -- this function might
1995 // have been called simply to set the new JNIEnv.
1996 if (_Jv_ThreadCurrent () == NULL)
2000 _Jv_AttachCurrentThread (name, group);
2002 catch (jthrowable t)
2007 _Jv_SetCurrentJNIEnv (env);
2012 // This is the one actually used by JNI.
2014 _Jv_JNI_AttachCurrentThread (JavaVM *vm, void **penv, void *args)
2016 return _Jv_JNI_AttachCurrentThread (vm, NULL, penv, args);
2020 _Jv_JNI_DestroyJavaVM (JavaVM *vm)
2022 JvAssert (the_vm && vm == the_vm);
2025 if (_Jv_ThreadCurrent () != NULL)
2031 main_name = JvNewStringLatin1 ("main");
2033 catch (jthrowable t)
2038 jint r = _Jv_JNI_AttachCurrentThread (vm,
2040 reinterpret_cast<void **> (&env),
2046 env = _Jv_GetCurrentJNIEnv ();
2050 // Docs say that this always returns an error code.
2055 _Jv_JNI_DetachCurrentThread (JavaVM *)
2057 jint code = _Jv_DetachCurrentThread ();
2058 return code ? JNI_EDETACHED : 0;
2062 _Jv_JNI_GetEnv (JavaVM *, void **penv, jint version)
2064 if (_Jv_ThreadCurrent () == NULL)
2067 return JNI_EDETACHED;
2071 // Handle JVMPI requests.
2072 if (version == JVMPI_VERSION_1)
2074 *penv = (void *) &_Jv_JVMPI_Interface;
2079 // FIXME: do we really want to support 1.1?
2080 if (version != JNI_VERSION_1_2 && version != JNI_VERSION_1_1)
2083 return JNI_EVERSION;
2086 *penv = (void *) _Jv_GetCurrentJNIEnv ();
2091 JNI_GetDefaultJavaVMInitArgs (void *args)
2093 jint version = * (jint *) args;
2094 // Here we only support 1.2.
2095 if (version != JNI_VERSION_1_2)
2096 return JNI_EVERSION;
2098 JavaVMInitArgs *ia = reinterpret_cast<JavaVMInitArgs *> (args);
2099 ia->version = JNI_VERSION_1_2;
2102 ia->ignoreUnrecognized = true;
2108 JNI_CreateJavaVM (JavaVM **vm, void **penv, void *args)
2110 JvAssert (! the_vm);
2112 _Jv_CreateJavaVM (NULL);
2114 // FIXME: synchronize
2115 JavaVM *nvm = (JavaVM *) _Jv_MallocUnchecked (sizeof (JavaVM));
2118 nvm->functions = &_Jv_JNI_InvokeFunctions;
2120 // Parse the arguments.
2123 jint version = * (jint *) args;
2124 // We only support 1.2.
2125 if (version != JNI_VERSION_1_2)
2126 return JNI_EVERSION;
2127 JavaVMInitArgs *ia = reinterpret_cast<JavaVMInitArgs *> (args);
2128 for (int i = 0; i < ia->nOptions; ++i)
2130 if (! strcmp (ia->options[i].optionString, "vfprintf")
2131 || ! strcmp (ia->options[i].optionString, "exit")
2132 || ! strcmp (ia->options[i].optionString, "abort"))
2134 // We are required to recognize these, but for now we
2135 // don't handle them in any way. FIXME.
2138 else if (! strncmp (ia->options[i].optionString,
2139 "-verbose", sizeof ("-verbose") - 1))
2141 // We don't do anything with this option either. We
2142 // might want to make sure the argument is valid, but we
2143 // don't really care all that much for now.
2146 else if (! strncmp (ia->options[i].optionString, "-D", 2))
2151 else if (ia->ignoreUnrecognized)
2153 if (ia->options[i].optionString[0] == '_'
2154 || ! strncmp (ia->options[i].optionString, "-X", 2))
2162 jint r =_Jv_JNI_AttachCurrentThread (nvm, penv, NULL);
2173 JNI_GetCreatedJavaVMs (JavaVM **vm_buffer, jsize buf_len, jsize *n_vms)
2178 // We only support a single VM.
2181 vm_buffer[0] = the_vm;
2192 // FIXME: synchronize
2195 JavaVM *nvm = (JavaVM *) _Jv_MallocUnchecked (sizeof (JavaVM));
2197 nvm->functions = &_Jv_JNI_InvokeFunctions;
2201 // If this is a Java thread, we want to make sure it has an
2202 // associated JNIEnv.
2203 if (_Jv_ThreadCurrent () != NULL)
2206 _Jv_JNI_AttachCurrentThread (the_vm, &ignore, NULL);
2213 _Jv_JNI_GetJavaVM (JNIEnv *, JavaVM **vm)
2215 *vm = _Jv_GetJavaVM ();
2216 return *vm == NULL ? JNI_ERR : JNI_OK;
2221 #define NOT_IMPL NULL
2222 #define RESERVED NULL
2224 struct JNINativeInterface _Jv_JNIFunctions =
2230 _Jv_JNI_GetVersion, // GetVersion
2231 _Jv_JNI_DefineClass, // DefineClass
2232 _Jv_JNI_FindClass, // FindClass
2233 _Jv_JNI_FromReflectedMethod, // FromReflectedMethod
2234 _Jv_JNI_FromReflectedField, // FromReflectedField
2235 _Jv_JNI_ToReflectedMethod, // ToReflectedMethod
2236 _Jv_JNI_GetSuperclass, // GetSuperclass
2237 _Jv_JNI_IsAssignableFrom, // IsAssignableFrom
2238 _Jv_JNI_ToReflectedField, // ToReflectedField
2239 _Jv_JNI_Throw, // Throw
2240 _Jv_JNI_ThrowNew, // ThrowNew
2241 _Jv_JNI_ExceptionOccurred, // ExceptionOccurred
2242 _Jv_JNI_ExceptionDescribe, // ExceptionDescribe
2243 _Jv_JNI_ExceptionClear, // ExceptionClear
2244 _Jv_JNI_FatalError, // FatalError
2246 _Jv_JNI_PushLocalFrame, // PushLocalFrame
2247 _Jv_JNI_PopLocalFrame, // PopLocalFrame
2248 _Jv_JNI_NewGlobalRef, // NewGlobalRef
2249 _Jv_JNI_DeleteGlobalRef, // DeleteGlobalRef
2250 _Jv_JNI_DeleteLocalRef, // DeleteLocalRef
2252 _Jv_JNI_IsSameObject, // IsSameObject
2254 _Jv_JNI_NewLocalRef, // NewLocalRef
2255 _Jv_JNI_EnsureLocalCapacity, // EnsureLocalCapacity
2257 _Jv_JNI_AllocObject, // AllocObject
2258 _Jv_JNI_NewObject, // NewObject
2259 _Jv_JNI_NewObjectV, // NewObjectV
2260 _Jv_JNI_NewObjectA, // NewObjectA
2261 _Jv_JNI_GetObjectClass, // GetObjectClass
2262 _Jv_JNI_IsInstanceOf, // IsInstanceOf
2263 _Jv_JNI_GetAnyMethodID<false>, // GetMethodID
2265 _Jv_JNI_CallMethod<jobject>, // CallObjectMethod
2266 _Jv_JNI_CallMethodV<jobject>, // CallObjectMethodV
2267 _Jv_JNI_CallMethodA<jobject>, // CallObjectMethodA
2268 _Jv_JNI_CallMethod<jboolean>, // CallBooleanMethod
2269 _Jv_JNI_CallMethodV<jboolean>, // CallBooleanMethodV
2270 _Jv_JNI_CallMethodA<jboolean>, // CallBooleanMethodA
2271 _Jv_JNI_CallMethod<jbyte>, // CallByteMethod
2272 _Jv_JNI_CallMethodV<jbyte>, // CallByteMethodV
2273 _Jv_JNI_CallMethodA<jbyte>, // CallByteMethodA
2274 _Jv_JNI_CallMethod<jchar>, // CallCharMethod
2275 _Jv_JNI_CallMethodV<jchar>, // CallCharMethodV
2276 _Jv_JNI_CallMethodA<jchar>, // CallCharMethodA
2277 _Jv_JNI_CallMethod<jshort>, // CallShortMethod
2278 _Jv_JNI_CallMethodV<jshort>, // CallShortMethodV
2279 _Jv_JNI_CallMethodA<jshort>, // CallShortMethodA
2280 _Jv_JNI_CallMethod<jint>, // CallIntMethod
2281 _Jv_JNI_CallMethodV<jint>, // CallIntMethodV
2282 _Jv_JNI_CallMethodA<jint>, // CallIntMethodA
2283 _Jv_JNI_CallMethod<jlong>, // CallLongMethod
2284 _Jv_JNI_CallMethodV<jlong>, // CallLongMethodV
2285 _Jv_JNI_CallMethodA<jlong>, // CallLongMethodA
2286 _Jv_JNI_CallMethod<jfloat>, // CallFloatMethod
2287 _Jv_JNI_CallMethodV<jfloat>, // CallFloatMethodV
2288 _Jv_JNI_CallMethodA<jfloat>, // CallFloatMethodA
2289 _Jv_JNI_CallMethod<jdouble>, // CallDoubleMethod
2290 _Jv_JNI_CallMethodV<jdouble>, // CallDoubleMethodV
2291 _Jv_JNI_CallMethodA<jdouble>, // CallDoubleMethodA
2292 _Jv_JNI_CallVoidMethod, // CallVoidMethod
2293 _Jv_JNI_CallVoidMethodV, // CallVoidMethodV
2294 _Jv_JNI_CallVoidMethodA, // CallVoidMethodA
2296 // Nonvirtual method invocation functions follow.
2297 _Jv_JNI_CallAnyMethod<jobject, nonvirtual>, // CallNonvirtualObjectMethod
2298 _Jv_JNI_CallAnyMethodV<jobject, nonvirtual>, // CallNonvirtualObjectMethodV
2299 _Jv_JNI_CallAnyMethodA<jobject, nonvirtual>, // CallNonvirtualObjectMethodA
2300 _Jv_JNI_CallAnyMethod<jboolean, nonvirtual>, // CallNonvirtualBooleanMethod
2301 _Jv_JNI_CallAnyMethodV<jboolean, nonvirtual>, // CallNonvirtualBooleanMethodV
2302 _Jv_JNI_CallAnyMethodA<jboolean, nonvirtual>, // CallNonvirtualBooleanMethodA
2303 _Jv_JNI_CallAnyMethod<jbyte, nonvirtual>, // CallNonvirtualByteMethod
2304 _Jv_JNI_CallAnyMethodV<jbyte, nonvirtual>, // CallNonvirtualByteMethodV
2305 _Jv_JNI_CallAnyMethodA<jbyte, nonvirtual>, // CallNonvirtualByteMethodA
2306 _Jv_JNI_CallAnyMethod<jchar, nonvirtual>, // CallNonvirtualCharMethod
2307 _Jv_JNI_CallAnyMethodV<jchar, nonvirtual>, // CallNonvirtualCharMethodV
2308 _Jv_JNI_CallAnyMethodA<jchar, nonvirtual>, // CallNonvirtualCharMethodA
2309 _Jv_JNI_CallAnyMethod<jshort, nonvirtual>, // CallNonvirtualShortMethod
2310 _Jv_JNI_CallAnyMethodV<jshort, nonvirtual>, // CallNonvirtualShortMethodV
2311 _Jv_JNI_CallAnyMethodA<jshort, nonvirtual>, // CallNonvirtualShortMethodA
2312 _Jv_JNI_CallAnyMethod<jint, nonvirtual>, // CallNonvirtualIntMethod
2313 _Jv_JNI_CallAnyMethodV<jint, nonvirtual>, // CallNonvirtualIntMethodV
2314 _Jv_JNI_CallAnyMethodA<jint, nonvirtual>, // CallNonvirtualIntMethodA
2315 _Jv_JNI_CallAnyMethod<jlong, nonvirtual>, // CallNonvirtualLongMethod
2316 _Jv_JNI_CallAnyMethodV<jlong, nonvirtual>, // CallNonvirtualLongMethodV
2317 _Jv_JNI_CallAnyMethodA<jlong, nonvirtual>, // CallNonvirtualLongMethodA
2318 _Jv_JNI_CallAnyMethod<jfloat, nonvirtual>, // CallNonvirtualFloatMethod
2319 _Jv_JNI_CallAnyMethodV<jfloat, nonvirtual>, // CallNonvirtualFloatMethodV
2320 _Jv_JNI_CallAnyMethodA<jfloat, nonvirtual>, // CallNonvirtualFloatMethodA
2321 _Jv_JNI_CallAnyMethod<jdouble, nonvirtual>, // CallNonvirtualDoubleMethod
2322 _Jv_JNI_CallAnyMethodV<jdouble, nonvirtual>, // CallNonvirtualDoubleMethodV
2323 _Jv_JNI_CallAnyMethodA<jdouble, nonvirtual>, // CallNonvirtualDoubleMethodA
2324 _Jv_JNI_CallAnyVoidMethod<nonvirtual>, // CallNonvirtualVoidMethod
2325 _Jv_JNI_CallAnyVoidMethodV<nonvirtual>, // CallNonvirtualVoidMethodV
2326 _Jv_JNI_CallAnyVoidMethodA<nonvirtual>, // CallNonvirtualVoidMethodA
2328 _Jv_JNI_GetAnyFieldID<false>, // GetFieldID
2329 _Jv_JNI_GetField<jobject>, // GetObjectField
2330 _Jv_JNI_GetField<jboolean>, // GetBooleanField
2331 _Jv_JNI_GetField<jbyte>, // GetByteField
2332 _Jv_JNI_GetField<jchar>, // GetCharField
2333 _Jv_JNI_GetField<jshort>, // GetShortField
2334 _Jv_JNI_GetField<jint>, // GetIntField
2335 _Jv_JNI_GetField<jlong>, // GetLongField
2336 _Jv_JNI_GetField<jfloat>, // GetFloatField
2337 _Jv_JNI_GetField<jdouble>, // GetDoubleField
2338 _Jv_JNI_SetField, // SetObjectField
2339 _Jv_JNI_SetField, // SetBooleanField
2340 _Jv_JNI_SetField, // SetByteField
2341 _Jv_JNI_SetField, // SetCharField
2342 _Jv_JNI_SetField, // SetShortField
2343 _Jv_JNI_SetField, // SetIntField
2344 _Jv_JNI_SetField, // SetLongField
2345 _Jv_JNI_SetField, // SetFloatField
2346 _Jv_JNI_SetField, // SetDoubleField
2347 _Jv_JNI_GetAnyMethodID<true>, // GetStaticMethodID
2349 _Jv_JNI_CallStaticMethod<jobject>, // CallStaticObjectMethod
2350 _Jv_JNI_CallStaticMethodV<jobject>, // CallStaticObjectMethodV
2351 _Jv_JNI_CallStaticMethodA<jobject>, // CallStaticObjectMethodA
2352 _Jv_JNI_CallStaticMethod<jboolean>, // CallStaticBooleanMethod
2353 _Jv_JNI_CallStaticMethodV<jboolean>, // CallStaticBooleanMethodV
2354 _Jv_JNI_CallStaticMethodA<jboolean>, // CallStaticBooleanMethodA
2355 _Jv_JNI_CallStaticMethod<jbyte>, // CallStaticByteMethod
2356 _Jv_JNI_CallStaticMethodV<jbyte>, // CallStaticByteMethodV
2357 _Jv_JNI_CallStaticMethodA<jbyte>, // CallStaticByteMethodA
2358 _Jv_JNI_CallStaticMethod<jchar>, // CallStaticCharMethod
2359 _Jv_JNI_CallStaticMethodV<jchar>, // CallStaticCharMethodV
2360 _Jv_JNI_CallStaticMethodA<jchar>, // CallStaticCharMethodA
2361 _Jv_JNI_CallStaticMethod<jshort>, // CallStaticShortMethod
2362 _Jv_JNI_CallStaticMethodV<jshort>, // CallStaticShortMethodV
2363 _Jv_JNI_CallStaticMethodA<jshort>, // CallStaticShortMethodA
2364 _Jv_JNI_CallStaticMethod<jint>, // CallStaticIntMethod
2365 _Jv_JNI_CallStaticMethodV<jint>, // CallStaticIntMethodV
2366 _Jv_JNI_CallStaticMethodA<jint>, // CallStaticIntMethodA
2367 _Jv_JNI_CallStaticMethod<jlong>, // CallStaticLongMethod
2368 _Jv_JNI_CallStaticMethodV<jlong>, // CallStaticLongMethodV
2369 _Jv_JNI_CallStaticMethodA<jlong>, // CallStaticLongMethodA
2370 _Jv_JNI_CallStaticMethod<jfloat>, // CallStaticFloatMethod
2371 _Jv_JNI_CallStaticMethodV<jfloat>, // CallStaticFloatMethodV
2372 _Jv_JNI_CallStaticMethodA<jfloat>, // CallStaticFloatMethodA
2373 _Jv_JNI_CallStaticMethod<jdouble>, // CallStaticDoubleMethod
2374 _Jv_JNI_CallStaticMethodV<jdouble>, // CallStaticDoubleMethodV
2375 _Jv_JNI_CallStaticMethodA<jdouble>, // CallStaticDoubleMethodA
2376 _Jv_JNI_CallStaticVoidMethod, // CallStaticVoidMethod
2377 _Jv_JNI_CallStaticVoidMethodV, // CallStaticVoidMethodV
2378 _Jv_JNI_CallStaticVoidMethodA, // CallStaticVoidMethodA
2380 _Jv_JNI_GetAnyFieldID<true>, // GetStaticFieldID
2381 _Jv_JNI_GetStaticField<jobject>, // GetStaticObjectField
2382 _Jv_JNI_GetStaticField<jboolean>, // GetStaticBooleanField
2383 _Jv_JNI_GetStaticField<jbyte>, // GetStaticByteField
2384 _Jv_JNI_GetStaticField<jchar>, // GetStaticCharField
2385 _Jv_JNI_GetStaticField<jshort>, // GetStaticShortField
2386 _Jv_JNI_GetStaticField<jint>, // GetStaticIntField
2387 _Jv_JNI_GetStaticField<jlong>, // GetStaticLongField
2388 _Jv_JNI_GetStaticField<jfloat>, // GetStaticFloatField
2389 _Jv_JNI_GetStaticField<jdouble>, // GetStaticDoubleField
2390 _Jv_JNI_SetStaticField, // SetStaticObjectField
2391 _Jv_JNI_SetStaticField, // SetStaticBooleanField
2392 _Jv_JNI_SetStaticField, // SetStaticByteField
2393 _Jv_JNI_SetStaticField, // SetStaticCharField
2394 _Jv_JNI_SetStaticField, // SetStaticShortField
2395 _Jv_JNI_SetStaticField, // SetStaticIntField
2396 _Jv_JNI_SetStaticField, // SetStaticLongField
2397 _Jv_JNI_SetStaticField, // SetStaticFloatField
2398 _Jv_JNI_SetStaticField, // SetStaticDoubleField
2399 _Jv_JNI_NewString, // NewString
2400 _Jv_JNI_GetStringLength, // GetStringLength
2401 _Jv_JNI_GetStringChars, // GetStringChars
2402 _Jv_JNI_ReleaseStringChars, // ReleaseStringChars
2403 _Jv_JNI_NewStringUTF, // NewStringUTF
2404 _Jv_JNI_GetStringUTFLength, // GetStringUTFLength
2405 _Jv_JNI_GetStringUTFChars, // GetStringUTFLength
2406 _Jv_JNI_ReleaseStringUTFChars, // ReleaseStringUTFChars
2407 _Jv_JNI_GetArrayLength, // GetArrayLength
2408 _Jv_JNI_NewObjectArray, // NewObjectArray
2409 _Jv_JNI_GetObjectArrayElement, // GetObjectArrayElement
2410 _Jv_JNI_SetObjectArrayElement, // SetObjectArrayElement
2411 _Jv_JNI_NewPrimitiveArray<jboolean, JvPrimClass (boolean)>,
2413 _Jv_JNI_NewPrimitiveArray<jbyte, JvPrimClass (byte)>, // NewByteArray
2414 _Jv_JNI_NewPrimitiveArray<jchar, JvPrimClass (char)>, // NewCharArray
2415 _Jv_JNI_NewPrimitiveArray<jshort, JvPrimClass (short)>, // NewShortArray
2416 _Jv_JNI_NewPrimitiveArray<jint, JvPrimClass (int)>, // NewIntArray
2417 _Jv_JNI_NewPrimitiveArray<jlong, JvPrimClass (long)>, // NewLongArray
2418 _Jv_JNI_NewPrimitiveArray<jfloat, JvPrimClass (float)>, // NewFloatArray
2419 _Jv_JNI_NewPrimitiveArray<jdouble, JvPrimClass (double)>, // NewDoubleArray
2420 _Jv_JNI_GetPrimitiveArrayElements, // GetBooleanArrayElements
2421 _Jv_JNI_GetPrimitiveArrayElements, // GetByteArrayElements
2422 _Jv_JNI_GetPrimitiveArrayElements, // GetCharArrayElements
2423 _Jv_JNI_GetPrimitiveArrayElements, // GetShortArrayElements
2424 _Jv_JNI_GetPrimitiveArrayElements, // GetIntArrayElements
2425 _Jv_JNI_GetPrimitiveArrayElements, // GetLongArrayElements
2426 _Jv_JNI_GetPrimitiveArrayElements, // GetFloatArrayElements
2427 _Jv_JNI_GetPrimitiveArrayElements, // GetDoubleArrayElements
2428 _Jv_JNI_ReleasePrimitiveArrayElements, // ReleaseBooleanArrayElements
2429 _Jv_JNI_ReleasePrimitiveArrayElements, // ReleaseByteArrayElements
2430 _Jv_JNI_ReleasePrimitiveArrayElements, // ReleaseCharArrayElements
2431 _Jv_JNI_ReleasePrimitiveArrayElements, // ReleaseShortArrayElements
2432 _Jv_JNI_ReleasePrimitiveArrayElements, // ReleaseIntArrayElements
2433 _Jv_JNI_ReleasePrimitiveArrayElements, // ReleaseLongArrayElements
2434 _Jv_JNI_ReleasePrimitiveArrayElements, // ReleaseFloatArrayElements
2435 _Jv_JNI_ReleasePrimitiveArrayElements, // ReleaseDoubleArrayElements
2436 _Jv_JNI_GetPrimitiveArrayRegion, // GetBooleanArrayRegion
2437 _Jv_JNI_GetPrimitiveArrayRegion, // GetByteArrayRegion
2438 _Jv_JNI_GetPrimitiveArrayRegion, // GetCharArrayRegion
2439 _Jv_JNI_GetPrimitiveArrayRegion, // GetShortArrayRegion
2440 _Jv_JNI_GetPrimitiveArrayRegion, // GetIntArrayRegion
2441 _Jv_JNI_GetPrimitiveArrayRegion, // GetLongArrayRegion
2442 _Jv_JNI_GetPrimitiveArrayRegion, // GetFloatArrayRegion
2443 _Jv_JNI_GetPrimitiveArrayRegion, // GetDoubleArrayRegion
2444 _Jv_JNI_SetPrimitiveArrayRegion, // SetBooleanArrayRegion
2445 _Jv_JNI_SetPrimitiveArrayRegion, // SetByteArrayRegion
2446 _Jv_JNI_SetPrimitiveArrayRegion, // SetCharArrayRegion
2447 _Jv_JNI_SetPrimitiveArrayRegion, // SetShortArrayRegion
2448 _Jv_JNI_SetPrimitiveArrayRegion, // SetIntArrayRegion
2449 _Jv_JNI_SetPrimitiveArrayRegion, // SetLongArrayRegion
2450 _Jv_JNI_SetPrimitiveArrayRegion, // SetFloatArrayRegion
2451 _Jv_JNI_SetPrimitiveArrayRegion, // SetDoubleArrayRegion
2452 _Jv_JNI_RegisterNatives, // RegisterNatives
2453 _Jv_JNI_UnregisterNatives, // UnregisterNatives
2454 _Jv_JNI_MonitorEnter, // MonitorEnter
2455 _Jv_JNI_MonitorExit, // MonitorExit
2456 _Jv_JNI_GetJavaVM, // GetJavaVM
2458 _Jv_JNI_GetStringRegion, // GetStringRegion
2459 _Jv_JNI_GetStringUTFRegion, // GetStringUTFRegion
2460 _Jv_JNI_GetPrimitiveArrayCritical, // GetPrimitiveArrayCritical
2461 _Jv_JNI_ReleasePrimitiveArrayCritical, // ReleasePrimitiveArrayCritical
2462 _Jv_JNI_GetStringCritical, // GetStringCritical
2463 _Jv_JNI_ReleaseStringCritical, // ReleaseStringCritical
2465 NOT_IMPL /* newweakglobalref */,
2466 NOT_IMPL /* deleteweakglobalref */,
2468 _Jv_JNI_ExceptionCheck
2471 struct JNIInvokeInterface _Jv_JNI_InvokeFunctions =
2477 _Jv_JNI_DestroyJavaVM,
2478 _Jv_JNI_AttachCurrentThread,
2479 _Jv_JNI_DetachCurrentThread,