/* src/native/native.c - table of native functions
- Copyright (C) 1996-2005 R. Grafl, A. Krall, C. Kruegel, C. Oates,
- R. Obermaisser, M. Platter, M. Probst, S. Ring, E. Steiner,
- C. Thalinger, D. Thuernbeck, P. Tomsich, C. Ullrich, J. Wenninger,
- Institut f. Computersprachen - TU Wien
+ Copyright (C) 1996-2005, 2006, 2007 R. Grafl, A. Krall, C. Kruegel,
+ C. Oates, R. Obermaisser, M. Platter, M. Probst, S. Ring,
+ E. Steiner, C. Thalinger, D. Thuernbeck, P. Tomsich, C. Ullrich,
+ J. Wenninger, Institut f. Computersprachen - TU Wien
This file is part of CACAO.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
- 02111-1307, USA.
-
- Contact: cacao@complang.tuwien.ac.at
-
- Authors: Reinhard Grafl
- Roman Obermaisser
- Andreas Krall
-
- Changes: Christian Thalinger
-
- $Id: native.c 2465 2005-05-13 00:02:01Z twisti $
+ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+ 02110-1301, USA.
*/
-#include <stdlib.h>
-#include <unistd.h>
-#include <time.h>
-#include <math.h>
-#include <string.h>
-#include <assert.h>
-#include <sys/time.h>
-#include <utime.h>
+#include "config.h"
-/* Include files for IO functions */
+#include <assert.h>
+#include <ctype.h>
-#include <fcntl.h>
-#include <dirent.h>
-#include <sys/types.h>
-#ifdef _OSF_SOURCE
-#include <sys/mode.h>
+#if defined(ENABLE_LTDL) && defined(HAVE_LTDL_H)
+# include <ltdl.h>
#endif
-#include <sys/stat.h>
-#include "config.h"
-#include "cacao/cacao.h"
+#include <stdint.h>
+
+#include "vm/types.h"
+
#include "mm/memory.h"
+
#include "native/jni.h"
#include "native/native.h"
-#include "native/include/java_lang_Throwable.h"
+
+#include "native/vm/nativevm.h"
+
+#include "threads/lock-common.h"
+
+#include "toolbox/avl.h"
+#include "toolbox/hashtable.h"
#include "toolbox/logging.h"
+
#include "vm/builtin.h"
#include "vm/exceptions.h"
#include "vm/global.h"
-#include "vm/loader.h"
-#include "vm/options.h"
#include "vm/stringlocal.h"
-#include "vm/tables.h"
+#include "vm/vm.h"
+
#include "vm/jit/asmpart.h"
#include "vm/jit/jit.h"
-#include "vm/resolve.h"
+#include "vmcore/loader.h"
+#include "vmcore/options.h"
+#include "vm/resolve.h"
-/* include table of native functions ******************************************/
-
-#include "native/include/java_lang_Cloneable.h"
-#include "native/include/java_util_Properties.h"
-#include "native/include/java_io_InputStream.h"
-#include "native/include/java_io_PrintStream.h"
-
-#include "native/include/gnu_classpath_VMStackWalker.h"
-#include "native/include/gnu_classpath_VMSystemProperties.h"
-#include "native/include/java_lang_Class.h"
-#include "native/include/java_lang_Object.h"
-#include "native/include/java_lang_VMClass.h"
-#include "native/include/java_lang_VMClassLoader.h"
-#include "native/include/java_lang_VMObject.h"
-#include "native/include/java_lang_VMRuntime.h"
-#include "native/include/java_lang_VMString.h"
-#include "native/include/java_lang_VMSystem.h"
-#include "native/include/java_lang_VMThread.h"
-#include "native/include/java_lang_VMThrowable.h"
-#include "native/include/java_lang_reflect_Constructor.h"
-#include "native/include/java_lang_reflect_Field.h"
-#include "native/include/java_lang_reflect_Proxy.h"
-#include "native/include/java_lang_reflect_Method.h"
-
-#if defined(STATIC_CLASSPATH)
-
-#include "native/nativetable.inc"
-
-#else /* defined(STATIC_CLASSPATH) */
-
-/* Ensure that symbols for functions implemented within CACAO are used and */
-/* exported to dlopen. */
-
-static functionptr dummynativetable[] = {
- (functionptr) Java_gnu_classpath_VMStackWalker_getClassContext,
-
- (functionptr) Java_gnu_classpath_VMSystemProperties_preInit,
-
- (functionptr) Java_java_lang_VMClass_isInstance,
- (functionptr) Java_java_lang_VMClass_isAssignableFrom,
- (functionptr) Java_java_lang_VMClass_isInterface,
- (functionptr) Java_java_lang_VMClass_isPrimitive,
- (functionptr) Java_java_lang_VMClass_getName,
- (functionptr) Java_java_lang_VMClass_getSuperclass,
- (functionptr) Java_java_lang_VMClass_getInterfaces,
- (functionptr) Java_java_lang_VMClass_getComponentType,
- (functionptr) Java_java_lang_VMClass_getModifiers,
- (functionptr) Java_java_lang_VMClass_getDeclaringClass,
- (functionptr) Java_java_lang_VMClass_getDeclaredClasses,
- (functionptr) Java_java_lang_VMClass_getDeclaredFields,
- (functionptr) Java_java_lang_VMClass_getDeclaredMethods,
- (functionptr) Java_java_lang_VMClass_getDeclaredConstructors,
- (functionptr) Java_java_lang_VMClass_getClassLoader,
- (functionptr) Java_java_lang_VMClass_forName,
- (functionptr) Java_java_lang_VMClass_isArray,
- (functionptr) Java_java_lang_VMClass_initialize,
- (functionptr) Java_java_lang_VMClass_loadArrayClass,
- (functionptr) Java_java_lang_VMClass_throwException,
-
- (functionptr) Java_java_lang_VMClassLoader_defineClass,
- (functionptr) Java_java_lang_VMClassLoader_resolveClass,
- (functionptr) Java_java_lang_VMClassLoader_loadClass,
- (functionptr) Java_java_lang_VMClassLoader_getPrimitiveClass,
- (functionptr) Java_java_lang_VMClassLoader_nativeGetResources,
-
- (functionptr) Java_java_lang_VMObject_getClass,
- (functionptr) Java_java_lang_VMObject_clone,
- (functionptr) Java_java_lang_VMObject_notify,
- (functionptr) Java_java_lang_VMObject_notifyAll,
- (functionptr) Java_java_lang_VMObject_wait,
-
- (functionptr) Java_java_lang_VMRuntime_availableProcessors,
- (functionptr) Java_java_lang_VMRuntime_freeMemory,
- (functionptr) Java_java_lang_VMRuntime_totalMemory,
- (functionptr) Java_java_lang_VMRuntime_maxMemory,
- (functionptr) Java_java_lang_VMRuntime_gc,
- (functionptr) Java_java_lang_VMRuntime_runFinalization,
- (functionptr) Java_java_lang_VMRuntime_runFinalizationForExit,
- (functionptr) Java_java_lang_VMRuntime_traceInstructions,
- (functionptr) Java_java_lang_VMRuntime_traceMethodCalls,
- (functionptr) Java_java_lang_VMRuntime_runFinalizersOnExit,
- (functionptr) Java_java_lang_VMRuntime_exit,
- (functionptr) Java_java_lang_VMRuntime_nativeLoad,
- (functionptr) Java_java_lang_VMRuntime_mapLibraryName,
-
- (functionptr) Java_java_lang_VMString_intern,
-
- (functionptr) Java_java_lang_VMSystem_arraycopy,
- (functionptr) Java_java_lang_VMSystem_identityHashCode,
-
- (functionptr) Java_java_lang_VMThread_start,
- (functionptr) Java_java_lang_VMThread_interrupt,
- (functionptr) Java_java_lang_VMThread_isInterrupted,
- (functionptr) Java_java_lang_VMThread_suspend,
- (functionptr) Java_java_lang_VMThread_resume,
- (functionptr) Java_java_lang_VMThread_nativeSetPriority,
- (functionptr) Java_java_lang_VMThread_nativeStop,
- (functionptr) Java_java_lang_VMThread_currentThread,
- (functionptr) Java_java_lang_VMThread_yield,
- (functionptr) Java_java_lang_VMThread_interrupted,
- (functionptr) Java_java_lang_VMThread_holdsLock,
-
- (functionptr) Java_java_lang_VMThrowable_fillInStackTrace,
- (functionptr) Java_java_lang_VMThrowable_getStackTrace,
-
- (functionptr) Java_java_lang_reflect_Constructor_getModifiers,
- (functionptr) Java_java_lang_reflect_Constructor_constructNative,
-
- (functionptr) Java_java_lang_reflect_Field_getModifiers,
- (functionptr) Java_java_lang_reflect_Field_getType,
- (functionptr) Java_java_lang_reflect_Field_get,
- (functionptr) Java_java_lang_reflect_Field_getBoolean,
- (functionptr) Java_java_lang_reflect_Field_getByte,
- (functionptr) Java_java_lang_reflect_Field_getChar,
- (functionptr) Java_java_lang_reflect_Field_getShort,
- (functionptr) Java_java_lang_reflect_Field_getInt,
- (functionptr) Java_java_lang_reflect_Field_getLong,
- (functionptr) Java_java_lang_reflect_Field_getFloat,
- (functionptr) Java_java_lang_reflect_Field_getDouble,
- (functionptr) Java_java_lang_reflect_Field_set,
- (functionptr) Java_java_lang_reflect_Field_setBoolean,
- (functionptr) Java_java_lang_reflect_Field_setByte,
- (functionptr) Java_java_lang_reflect_Field_setChar,
- (functionptr) Java_java_lang_reflect_Field_setShort,
- (functionptr) Java_java_lang_reflect_Field_setInt,
- (functionptr) Java_java_lang_reflect_Field_setLong,
- (functionptr) Java_java_lang_reflect_Field_setFloat,
- (functionptr) Java_java_lang_reflect_Field_setDouble,
-
- (functionptr) Java_java_lang_reflect_Proxy_getProxyClass0,
- (functionptr) Java_java_lang_reflect_Proxy_getProxyData0,
- (functionptr) Java_java_lang_reflect_Proxy_generateProxyClass0,
-
- (functionptr) Java_java_lang_reflect_Method_getModifiers,
- (functionptr) Java_java_lang_reflect_Method_getReturnType,
- (functionptr) Java_java_lang_reflect_Method_getParameterTypes,
- (functionptr) Java_java_lang_reflect_Method_getExceptionTypes,
- (functionptr) Java_java_lang_reflect_Method_invokeNative,
-};
-
-#endif /* defined(STATIC_CLASSPATH) */
-
-
-/************* use classinfo structure as java.lang.Class object **************/
-
-void use_class_as_object(classinfo *c)
-{
- if (!c->classvftbl) {
- /* is the class loaded */
- if (!c->loaded) {
-/* if (!class_load(c)) */
-/* throw_exception_exit(); */
- log_text("use_class_as_object: class_load should not happen");
- assert(0);
- }
-
- /* is the class linked */
- if (!c->linked)
- if (!link_class(c))
- throw_exception_exit();
+#if defined(ENABLE_JVMTI)
+#include "native/jvmti/cacaodbg.h"
+#endif
- assert(class_java_lang_Class);
- c->header.vftbl = class_java_lang_Class->vftbl;
- c->classvftbl = true;
- }
-}
+/* include table of native functions ******************************************/
+#if defined(WITH_STATIC_CLASSPATH)
+# include "native/nativetable.inc"
+#endif
-/************************** tables for methods ********************************/
-#undef JOWENN_DEBUG
-#undef JOWENN_DEBUG1
+/* tables for methods *********************************************************/
-#ifdef STATIC_CLASSPATH
+#if defined(WITH_STATIC_CLASSPATH)
#define NATIVETABLESIZE (sizeof(nativetable)/sizeof(struct nativeref))
/* table for fast string comparison */
#endif
-/* XXX don't define this in a header file!!! */
+/* global variables ***********************************************************/
-static struct nativeCall nativeCalls[] =
-{
-#include "nativecalls.inc"
-};
+static avl_tree_t *tree_native_methods;
+
+#if defined(ENABLE_LTDL)
+static hashtable *hashtable_library;
+#endif
-#define NATIVECALLSSIZE (sizeof(nativeCalls) / sizeof(struct nativeCall))
-struct nativeCompCall nativeCompCalls[NATIVECALLSSIZE];
+/* prototypes *****************************************************************/
+static s4 native_tree_native_methods_comparator(const void *treenode, const void *node);
-/* native_loadclasses **********************************************************
- Load classes required for native methods.
+/* native_init *****************************************************************
+
+ Initializes the native subsystem.
*******************************************************************************/
bool native_init(void)
{
-#if !defined(STATIC_CLASSPATH)
- void *p;
+#if defined(ENABLE_LTDL)
+ /* initialize libltdl */
+
+ if (lt_dlinit())
+ vm_abort("native_init: lt_dlinit failed: %s\n", lt_dlerror());
- /* We need to access the dummy native table, not only to remove a warning */
- /* but to be sure that the table is not optimized away (gcc does this */
- /* since 3.4). */
- p = &dummynativetable;
+ /* initialize library hashtable, 10 entries should be enough */
+
+ hashtable_library = NEW(hashtable);
+
+ hashtable_create(hashtable_library, 10);
#endif
+ /* initialize the native methods table */
+
+ tree_native_methods = avl_create(&native_tree_native_methods_comparator);
+
/* everything's ok */
return true;
}
-/*********************** Function: native_findfunction *************************
+/* native_tree_native_methods_comparator ***************************************
- Looks up a method (must have the same class name, method name, descriptor
- and 'static'ness) and returns a function pointer to it.
- Returns: function pointer or NULL (if there is no such method)
+ Comparison function for AVL tree of native methods.
- Remark: For faster operation, the names/descriptors are converted from C
- strings to Unicode the first time this function is called.
+ IN:
+ treenode....node in the tree
+ node........node to compare with tree-node
+
+ RETURN VALUE:
+ -1, 0, +1
*******************************************************************************/
-functionptr native_findfunction(utf *cname, utf *mname,
- utf *desc, bool isstatic)
+static s4 native_tree_native_methods_comparator(const void *treenode, const void *node)
{
-#ifdef STATIC_CLASSPATH
- int i;
- /* entry of table for fast string comparison */
- struct nativecompref *n;
- /* for warning message if no function is found */
- char *buffer;
- int buffer_len;
+ const native_methods_node_t *treenmn;
+ const native_methods_node_t *nmn;
- isstatic = isstatic ? true : false;
-
- if (!nativecompdone) {
- for (i = 0; i < NATIVETABLESIZE; i++) {
- nativecomptable[i].classname =
- utf_new_char(nativetable[i].classname);
- nativecomptable[i].methodname =
- utf_new_char(nativetable[i].methodname);
- nativecomptable[i].descriptor =
- utf_new_char(nativetable[i].descriptor);
- nativecomptable[i].isstatic =
- nativetable[i].isstatic;
- nativecomptable[i].func =
- nativetable[i].func;
- }
- nativecompdone = true;
- }
+ treenmn = treenode;
+ nmn = node;
-#ifdef JOWENN_DEBUG
- buffer_len =
- utf_strlen(cname) + utf_strlen(mname) + utf_strlen(desc) + 64;
-
- buffer = MNEW(char, buffer_len);
+ /* these are for walking the tree */
- strcpy(buffer, "searching matching function in native table:");
- utf_sprint(buffer+strlen(buffer), mname);
- strcpy(buffer+strlen(buffer), ": ");
- utf_sprint(buffer+strlen(buffer), desc);
- strcpy(buffer+strlen(buffer), " for class ");
- utf_sprint(buffer+strlen(buffer), cname);
+ if (treenmn->classname < nmn->classname)
+ return -1;
+ else if (treenmn->classname > nmn->classname)
+ return 1;
- log_text(buffer);
+ if (treenmn->name < nmn->name)
+ return -1;
+ else if (treenmn->name > nmn->name)
+ return 1;
- MFREE(buffer, char, buffer_len);
-#endif
-
- for (i = 0; i < NATIVETABLESIZE; i++) {
- n = &(nativecomptable[i]);
+ if (treenmn->descriptor < nmn->descriptor)
+ return -1;
+ else if (treenmn->descriptor > nmn->descriptor)
+ return 1;
- if (cname == n->classname && mname == n->methodname &&
- desc == n->descriptor && isstatic == n->isstatic)
- return n->func;
-#ifdef JOWENN_DEBUG
- else {
- if (cname == n->classname && mname == n->methodname ) log_text("static and descriptor mismatch");
-
- else {
- buffer_len =
- utf_strlen(n->classname) + utf_strlen(n->methodname) + utf_strlen(n->descriptor) + 64;
-
- buffer = MNEW(char, buffer_len);
+ /* all pointers are equal, we have found the entry */
+
+ return 0;
+}
- strcpy(buffer, "comparing with:");
- utf_sprint(buffer+strlen(buffer), n->methodname);
- strcpy (buffer+strlen(buffer), ": ");
- utf_sprint(buffer+strlen(buffer), n->descriptor);
- strcpy(buffer+strlen(buffer), " for class ");
- utf_sprint(buffer+strlen(buffer), n->classname);
- log_text(buffer);
+/* native_make_overloaded_function *********************************************
- MFREE(buffer, char, buffer_len);
- }
- }
-#endif
+ XXX
+
+*******************************************************************************/
+
+#if !defined(WITH_STATIC_CLASSPATH)
+static utf *native_make_overloaded_function(utf *name, utf *descriptor)
+{
+ char *newname;
+ s4 namelen;
+ char *utf_ptr;
+ u2 c;
+ s4 i;
+ s4 dumpsize;
+ utf *u;
+
+ /* mark memory */
+
+ dumpsize = dump_size();
+
+ utf_ptr = descriptor->text;
+ namelen = strlen(name->text) + strlen("__") + strlen("0");
+
+ /* calculate additional length */
+
+ while ((c = utf_nextu2(&utf_ptr)) != ')') {
+ switch (c) {
+ case 'Z':
+ case 'B':
+ case 'C':
+ case 'S':
+ case 'I':
+ case 'J':
+ case 'F':
+ case 'D':
+ namelen++;
+ break;
+ case '[':
+ namelen += 2;
+ break;
+ case 'L':
+ namelen++;
+ while (utf_nextu2(&utf_ptr) != ';')
+ namelen++;
+ namelen += 2;
+ break;
+ case '(':
+ break;
+ default:
+ assert(0);
+ }
}
-
- /* no function was found, display warning */
+ /* reallocate memory */
+
+ i = strlen(name->text);
+
+ newname = DMNEW(char, namelen);
+ MCOPY(newname, name->text, char, i);
+
+ utf_ptr = descriptor->text;
+
+ newname[i++] = '_';
+ newname[i++] = '_';
+
+ while ((c = utf_nextu2(&utf_ptr)) != ')') {
+ switch (c) {
+ case 'Z':
+ case 'B':
+ case 'C':
+ case 'S':
+ case 'J':
+ case 'I':
+ case 'F':
+ case 'D':
+ newname[i++] = c;
+ break;
+ case '[':
+ newname[i++] = '_';
+ newname[i++] = '3';
+ break;
+ case 'L':
+ newname[i++] = 'L';
+ while ((c = utf_nextu2(&utf_ptr)) != ';')
+ if (((c >= 'a') && (c <= 'z')) ||
+ ((c >= 'A') && (c <= 'Z')) ||
+ ((c >= '0') && (c <= '9')))
+ newname[i++] = c;
+ else
+ newname[i++] = '_';
+ newname[i++] = '_';
+ newname[i++] = '2';
+ break;
+ case '(':
+ break;
+ default:
+ assert(0);
+ }
+ }
- buffer_len =
- utf_strlen(cname) + utf_strlen(mname) + utf_strlen(desc) + 64;
+ /* close string */
- buffer = MNEW(char, buffer_len);
+ newname[i] = '\0';
- strcpy(buffer, "warning: native function ");
- utf_sprint(buffer + strlen(buffer), mname);
- strcpy(buffer + strlen(buffer), ": ");
- utf_sprint(buffer + strlen(buffer), desc);
- strcpy(buffer + strlen(buffer), " not found in class ");
- utf_sprint(buffer + strlen(buffer), cname);
+ /* make a utf-string */
- log_text(buffer);
+ u = utf_new_char(newname);
- MFREE(buffer, char, buffer_len);
+ /* release memory */
-/* exit(1); */
+ dump_release(dumpsize);
- /* keep compiler happy */
- return NULL;
-#else
-/* dynamic classpath */
- return 0;
-#endif
+ return u;
}
-/****************** function class_findfield_approx ****************************
-
- searches in 'classinfo'-structure for a field with the
- specified name
+/* native_insert_char **********************************************************
+
+ Inserts the passed UTF character into the native method name. If
+ necessary it is escaped properly.
*******************************************************************************/
-
-fieldinfo *class_findfield_approx(classinfo *c, utf *name)
+
+static s4 native_insert_char(char *name, u4 pos, u2 c)
{
+ s4 val;
s4 i;
- for (i = 0; i < c->fieldscount; i++) {
- /* compare field names */
- if ((c->fields[i].name == name))
- return &(c->fields[i]);
+ switch (c) {
+ case '/':
+ case '.':
+ /* replace '/' or '.' with '_' */
+ name[pos] = '_';
+ break;
+
+ case '_':
+ /* escape sequence for '_' is '_1' */
+ name[pos] = '_';
+ name[++pos] = '1';
+ break;
+
+ case ';':
+ /* escape sequence for ';' is '_2' */
+ name[pos] = '_';
+ name[++pos] = '2';
+ break;
+
+ case '[':
+ /* escape sequence for '[' is '_1' */
+ name[pos] = '_';
+ name[++pos] = '3';
+ break;
+
+ default:
+ if (isalnum(c))
+ name[pos] = c;
+ else {
+ /* unicode character */
+ name[pos] = '_';
+ name[++pos] = '0';
+
+ for (i = 0; i < 4; ++i) {
+ val = c & 0x0f;
+ name[pos + 4 - i] = (val > 10) ? ('a' + val - 10) : ('0' + val);
+ c >>= 4;
+ }
+
+ pos += 4;
+ }
+ break;
}
- /* field was not found, raise exception */
- *exceptionptr = new_exception(string_java_lang_NoSuchFieldException);
+ /* return the new buffer index */
- return NULL;
+ return pos;
}
-s4 class_findfield_index_approx(classinfo *c, utf *name)
+/* native_method_symbol ********************************************************
+
+ Generate a method-symbol string out of the class name and the
+ method name.
+
+*******************************************************************************/
+
+static utf *native_method_symbol(utf *classname, utf *methodname)
{
- s4 i;
+ char *name;
+ s4 namelen;
+ char *utf_ptr;
+ char *utf_endptr;
+ u2 c;
+ u4 pos;
+ s4 dumpsize;
+ utf *u;
+
+ /* mark memory */
+
+ dumpsize = dump_size();
+
+ /* Calculate length of native function name. We multiply the
+ class and method name length by 6 as this is the maxium
+ escape-sequence that can be generated (unicode). */
+
+ namelen =
+ strlen("Java_") +
+ utf_get_number_of_u2s(classname) * 6 +
+ strlen("_") +
+ utf_get_number_of_u2s(methodname) * 6 +
+ strlen("0");
- for (i = 0; i < c->fieldscount; i++) {
- /* compare field names */
- if ((c->fields[i].name == name))
- return i;
+ /* allocate memory */
+
+ name = DMNEW(char, namelen);
+
+ /* generate name of native functions */
+
+ strcpy(name, "Java_");
+ pos = strlen("Java_");
+
+ utf_ptr = classname->text;
+ utf_endptr = UTF_END(classname);
+
+ for (; utf_ptr < utf_endptr; utf_ptr++, pos++) {
+ c = *utf_ptr;
+ pos = native_insert_char(name, pos, c);
+ }
+
+ /* seperator between class and method */
+
+ name[pos++] = '_';
+
+ utf_ptr = methodname->text;
+ utf_endptr = UTF_END(methodname);
+
+ for (; utf_ptr < utf_endptr; utf_ptr++, pos++) {
+ c = *utf_ptr;
+ pos = native_insert_char(name, pos, c);
}
- /* field was not found, raise exception */
- *exceptionptr = new_exception(string_java_lang_NoSuchFieldException);
+ /* close string */
+
+ name[pos] = '\0';
+
+ /* check for an buffer overflow */
+
+ assert(pos <= namelen);
+
+ /* make a utf-string */
- return -1;
+ u = utf_new_char(name);
+
+ /* release memory */
+
+ dump_release(dumpsize);
+
+ return u;
}
-/* native_new_and_init *********************************************************
+/* native_method_register ******************************************************
+
+ Register a native method in the native method table.
- Creates a new object on the heap and calls the initializer.
- Returns the object pointer or NULL if memory is exhausted.
-
*******************************************************************************/
-java_objectheader *native_new_and_init(classinfo *c)
+void native_method_register(utf *classname, const JNINativeMethod *methods,
+ int32_t count)
{
- methodinfo *m;
- java_objectheader *o;
+ native_methods_node_t *nmn;
+ utf *name;
+ utf *descriptor;
+ int32_t i;
+
+ /* insert all methods passed */
+
+ for (i = 0; i < count; i++) {
+ if (opt_verbosejni) {
+ printf("[Registering JNI native method ");
+ utf_display_printable_ascii_classname(classname);
+ printf(".%s]\n", methods[i].name);
+ }
- if (!c)
- return *exceptionptr;
+ /* generate the utf8 names */
- /* create object */
+ name = utf_new_char(methods[i].name);
+ descriptor = utf_new_char(methods[i].signature);
- o = builtin_new(c);
-
- if (!o)
- return NULL;
+ /* allocate a new tree node */
- /* find initializer */
+ nmn = NEW(native_methods_node_t);
- m = class_findmethod(c, utf_init, utf_void__void);
-
- /* initializer not found */
+ nmn->classname = classname;
+ nmn->name = name;
+ nmn->descriptor = descriptor;
+ nmn->function = (functionptr) (ptrint) methods[i].fnPtr;
- if (!m)
- return o;
+ /* insert the method into the tree */
- /* call initializer */
+ avl_insert(tree_native_methods, nmn);
+ }
+}
- asm_calljavafunction(m, o, NULL, NULL, NULL);
- return o;
-}
+/* native_method_find **********************************************************
+
+ Find a native method in the native method table.
+*******************************************************************************/
-java_objectheader *native_new_and_init_string(classinfo *c, java_lang_String *s)
+static functionptr native_method_find(methodinfo *m)
{
- methodinfo *m;
- java_objectheader *o;
+ native_methods_node_t tmpnmn;
+ native_methods_node_t *nmn;
- if (!c)
- return *exceptionptr;
+ /* fill the temporary structure used for searching the tree */
- /* create object */
+ tmpnmn.classname = m->class->name;
+ tmpnmn.name = m->name;
+ tmpnmn.descriptor = m->descriptor;
- o = builtin_new(c);
+ /* find the entry in the AVL-tree */
- if (!o)
+ nmn = avl_find(tree_native_methods, &tmpnmn);
+
+ if (nmn == NULL)
return NULL;
- /* find initializer */
+ return nmn->function;
+}
- m = class_resolveclassmethod(c,
- utf_init,
- utf_java_lang_String__void,
- NULL,
- true);
- /* initializer not found */
+/* native_library_open *********************************************************
- if (!m)
- return NULL;
+ Open a native library with the given utf8 name.
- /* call initializer */
+*******************************************************************************/
- asm_calljavafunction(m, o, s, NULL, NULL);
+#if defined(ENABLE_LTDL)
+lt_dlhandle native_library_open(utf *filename)
+{
+ lt_dlhandle handle;
- return o;
+ if (opt_verbosejni) {
+ printf("[Loading native library ");
+ utf_display_printable_ascii(filename);
+ printf(" ... ");
+ }
+
+ /* try to open the library */
+
+ handle = lt_dlopen(filename->text);
+
+ if (handle == NULL) {
+ if (opt_verbose) {
+ log_start();
+ log_print("native_library_load: lt_dlopen failed: ");
+ log_print(lt_dlerror());
+ log_finish();
+ }
+
+ return NULL;
+ }
+
+ return handle;
}
+#endif
+
+
+/* native_library_add **********************************************************
+
+ Adds an entry to the native library hashtable.
+*******************************************************************************/
-java_objectheader *native_new_and_init_int(classinfo *c, s4 i)
+#if defined(ENABLE_LTDL)
+void native_library_add(utf *filename, classloader *loader, lt_dlhandle handle)
{
- methodinfo *m;
- java_objectheader *o;
+ hashtable_library_loader_entry *le;
+ hashtable_library_name_entry *ne; /* library name */
+ u4 key; /* hashkey */
+ u4 slot; /* slot in hashtable */
- if (!c)
- return *exceptionptr;
+ LOCK_MONITOR_ENTER(hashtable_library->header);
- /* create object */
+ /* normally addresses are aligned to 4, 8 or 16 bytes */
- o = builtin_new(c);
-
- if (!o)
- return NULL;
+ key = ((u4) (ptrint) loader) >> 4; /* align to 16-byte boundaries */
+ slot = key & (hashtable_library->size - 1);
+ le = hashtable_library->ptr[slot];
- /* find initializer */
+ /* search external hash chain for the entry */
- m = class_resolveclassmethod(c, utf_init, utf_int__void, NULL, true);
+ while (le) {
+ if (le->loader == loader)
+ break;
- /* initializer not found */
+ le = le->hashlink; /* next element in external chain */
+ }
- if (!m)
- return NULL;
+ /* no loader found? create a new entry */
- /* call initializer */
+ if (le == NULL) {
+ le = NEW(hashtable_library_loader_entry);
- asm_calljavafunction(m, o, (void *) (ptrint) i, NULL, NULL);
+ le->loader = loader;
+ le->namelink = NULL;
- return o;
-}
+ /* insert entry into hashtable */
+ le->hashlink =
+ (hashtable_library_loader_entry *) hashtable_library->ptr[slot];
+ hashtable_library->ptr[slot] = le;
-java_objectheader *native_new_and_init_throwable(classinfo *c, java_lang_Throwable *t)
-{
- methodinfo *m;
- java_objectheader *o;
+ /* update number of hashtable-entries */
- if (!c)
- return *exceptionptr;
+ hashtable_library->entries++;
+ }
- /* create object */
- o = builtin_new(c);
-
- if (!o)
- return NULL;
+ /* search for library name */
- /* find initializer */
+ ne = le->namelink;
- m = class_findmethod(c, utf_init, utf_java_lang_Throwable__void);
-
- /* initializer not found */
+ while (ne) {
+ if (ne->name == filename) {
+ LOCK_MONITOR_EXIT(hashtable_library->header);
- if (!m)
- return NULL;
+ return;
+ }
- /* call initializer */
+ ne = ne->hashlink; /* next element in external chain */
+ }
- asm_calljavafunction(m, o, t, NULL, NULL);
+ /* not found? add the library name to the classloader */
- return o;
-}
+ ne = NEW(hashtable_library_name_entry);
+ ne->name = filename;
+ ne->handle = handle;
-void copy_vftbl(vftbl_t **dest, vftbl_t *src)
-{
- *dest = src;
-#if 0
- /* XXX this kind of copying does not work (in the general
- * case). The interface tables would have to be copied, too. I
- * don't see why we should make a copy anyway. -Edwin
- */
- *dest = mem_alloc(sizeof(vftbl) + sizeof(methodptr)*(src->vftbllength-1));
- memcpy(*dest, src, sizeof(vftbl) - sizeof(methodptr));
- memcpy(&(*dest)->table, &src->table, src->vftbllength * sizeof(methodptr));
-#endif
-}
+ /* insert entry into external chain */
+ ne->hashlink = le->namelink;
+ le->namelink = ne;
-/******************************************************************************************
+ LOCK_MONITOR_EXIT(hashtable_library->header);
+}
+#endif
- creates method signature (excluding return type) from array of
- class-objects representing the parameters of the method
-*******************************************************************************************/
+/* native_library_find *********************************************************
+ Find an entry in the native library hashtable.
-utf *create_methodsig(java_objectarray* types, char *retType)
+*******************************************************************************/
+
+#if defined(ENABLE_LTDL)
+hashtable_library_name_entry *native_library_find(utf *filename,
+ classloader *loader)
{
- char *buffer; /* buffer for building the desciptor */
- char *pos; /* current position in buffer */
- utf *result; /* the method signature */
- u4 buffer_size = 3; /* minimal size=3: room for parenthesis and returntype */
- u4 i, j;
-
- if (!types) return NULL;
-
- /* determine required buffer-size */
- for (i = 0; i < types->header.size; i++) {
- classinfo *c = (classinfo *) types->data[i];
- buffer_size = buffer_size + c->name->blength + 2;
- }
-
- if (retType) buffer_size += strlen(retType);
-
- /* allocate buffer */
- buffer = MNEW(char, buffer_size);
- pos = buffer;
-
- /* method-desciptor starts with parenthesis */
- *pos++ = '(';
-
- for (i = 0; i < types->header.size; i++) {
- char ch;
-
- /* current argument */
- classinfo *c = (classinfo *) types->data[i];
-
- /* current position in utf-text */
- char *utf_ptr = c->name->text;
-
- /* determine type of argument */
- if ((ch = utf_nextu2(&utf_ptr)) == '[') {
- /* arrayclass */
- for (utf_ptr--; utf_ptr < utf_end(c->name); utf_ptr++) {
- *pos++ = *utf_ptr; /* copy text */
- }
+ hashtable_library_loader_entry *le;
+ hashtable_library_name_entry *ne; /* library name */
+ u4 key; /* hashkey */
+ u4 slot; /* slot in hashtable */
- } else {
- /* check for primitive types */
- for (j = 0; j < PRIMITIVETYPE_COUNT; j++) {
- char *utf_pos = utf_ptr - 1;
- char *primitive = primitivetype_table[j].wrapname;
+ /* normally addresses are aligned to 4, 8 or 16 bytes */
- /* compare text */
- while (utf_pos < utf_end(c->name)) {
- if (*utf_pos++ != *primitive++) goto nomatch;
- }
+ key = ((u4) (ptrint) loader) >> 4; /* align to 16-byte boundaries */
+ slot = key & (hashtable_library->size - 1);
+ le = hashtable_library->ptr[slot];
- /* primitive type found */
- *pos++ = primitivetype_table[j].typesig;
- goto next_type;
+ /* search external hash chain for the entry */
- nomatch:
- ;
- }
+ while (le) {
+ if (le->loader == loader)
+ break;
+
+ le = le->hashlink; /* next element in external chain */
+ }
- /* no primitive type and no arrayclass, so must be object */
- *pos++ = 'L';
+ /* no loader found? return NULL */
- /* copy text */
- for (utf_ptr--; utf_ptr < utf_end(c->name); utf_ptr++) {
- *pos++ = *utf_ptr;
- }
+ if (le == NULL)
+ return NULL;
- *pos++ = ';';
+ /* search for library name */
- next_type:
- ;
- }
- }
+ ne = le->namelink;
- *pos++ = ')';
+ while (ne) {
+ if (ne->name == filename)
+ return ne;
- if (retType) {
- for (i = 0; i < strlen(retType); i++) {
- *pos++ = retType[i];
- }
- }
+ ne = ne->hashlink; /* next element in external chain */
+ }
- /* create utf-string */
- result = utf_new(buffer, (pos - buffer));
- MFREE(buffer, char, buffer_size);
+ /* return entry, if no entry was found, ne is NULL */
- return result;
+ return ne;
}
+#endif /* !defined(WITH_STATIC_CLASSPATH) */
-/* get_parametertypes **********************************************************
+/* native_findfunction *********************************************************
- use the descriptor of a method to generate a java/lang/Class array
- which contains the classes of the parametertypes of the method
+ Looks up a method (must have the same class name, method name,
+ descriptor and 'static'ness) and returns a function pointer to it.
+ Returns: function pointer or NULL (if there is no such method)
+
+ Remark: For faster operation, the names/descriptors are converted
+ from C strings to Unicode the first time this function is called.
*******************************************************************************/
-java_objectarray* get_parametertypes(methodinfo *m)
+#if defined(WITH_STATIC_CLASSPATH)
+functionptr native_findfunction(utf *cname, utf *mname, utf *desc,
+ bool isstatic)
{
- methoddesc *descr = m->parseddesc; /* method-descriptor */
- java_objectarray* result;
- int parametercount = descr->paramcount;
- int i;
-
- /* create class-array */
- assert(class_java_lang_Class);
-
- result = builtin_anewarray(parametercount, class_java_lang_Class);
-
- /* get classes */
- for (i = 0; i < parametercount; i++) {
- if (!resolve_class_from_typedesc(descr->paramtypes + i,false,
- (classinfo **) (result->data + i)))
- return NULL; /* exception */
- use_class_as_object((classinfo*) result->data[i]);
+ /* entry of table for fast string comparison */
+ struct nativecompref *n;
+ s4 i;
+
+ isstatic = isstatic ? true : false;
+
+ if (!nativecompdone) {
+ for (i = 0; i < NATIVETABLESIZE; i++) {
+ nativecomptable[i].classname =
+ utf_new_char(nativetable[i].classname);
+
+ nativecomptable[i].methodname =
+ utf_new_char(nativetable[i].methodname);
+
+ nativecomptable[i].descriptor =
+ utf_new_char(nativetable[i].descriptor);
+
+ nativecomptable[i].isstatic = nativetable[i].isstatic;
+ nativecomptable[i].func = nativetable[i].func;
+ }
+
+ nativecompdone = true;
+ }
+
+ for (i = 0; i < NATIVETABLESIZE; i++) {
+ n = &(nativecomptable[i]);
+
+ if (cname == n->classname && mname == n->methodname &&
+ desc == n->descriptor && isstatic == n->isstatic)
+ return n->func;
}
- return result;
+ /* no function was found, throw exception */
+
+ exceptions_throw_unsatisfiedlinkerror(mname);
+
+ return NULL;
}
+#endif /* defined(WITH_STATIC_CLASSPATH) */
-/* get_exceptiontypes **********************************************************
+/* native_resolve_function *****************************************************
- get the exceptions which can be thrown by a method
+ Resolves a native function, maybe from a dynamic library.
*******************************************************************************/
-java_objectarray* get_exceptiontypes(methodinfo *m)
+functionptr native_resolve_function(methodinfo *m)
{
- u2 excount;
- u2 i;
- java_objectarray *result;
- classinfo *cls;
+ classloader *cl;
+ utf *name;
+ utf *newname;
+ functionptr f;
+#if defined(ENABLE_LTDL)
+ hashtable_library_loader_entry *le;
+ hashtable_library_name_entry *ne;
+ u4 key; /* hashkey */
+ u4 slot; /* slot in hashtable */
+#endif
+#if defined(WITH_CLASSPATH_SUN)
+ methodinfo *method_findNative;
+ java_handle_t *s;
+#endif
- excount = m->thrownexceptionscount;
+ cl = m->class->classloader;
- /* create class-array */
- assert(class_java_lang_Class);
+ /* verbose output */
- result = builtin_anewarray(excount, class_java_lang_Class);
+ if (opt_verbosejni) {
+ printf("[Dynamic-linking native method ");
+ utf_display_printable_ascii_classname(m->class->name);
+ printf(".");
+ utf_display_printable_ascii(m->name);
+ printf(" ... ");
+ }
- for (i = 0; i < excount; i++) {
- if (!resolve_classref_or_classinfo(NULL,m->thrownexceptions[i],resolveEager,false,&cls))
- return NULL; /* exception */
- use_class_as_object(cls);
- result->data[i] = (java_objectheader *)cls;
- }
+ /* generate method symbol string */
- return result;
-}
+ name = native_method_symbol(m->class->name, m->name);
+ /* generate overloaded function (having the types in it's name) */
-/******************************************************************************************
+ newname = native_make_overloaded_function(name, m->descriptor);
- get the returntype class of a method
+ /* check the library hash entries of the classloader of the
+ methods's class */
-*******************************************************************************************/
+ f = NULL;
-classinfo *get_returntype(methodinfo *m)
-{
- classinfo *cls;
+#if defined(ENABLE_LTDL)
+ /* normally addresses are aligned to 4, 8 or 16 bytes */
- if (!resolve_class_from_typedesc(&(m->parseddesc->returntype),false,&cls))
- return NULL; /* exception */
+ key = ((u4) (ptrint) cl) >> 4; /* align to 16-byte */
+ slot = key & (hashtable_library->size - 1);
+ le = hashtable_library->ptr[slot];
- use_class_as_object(cls);
- return cls;
-}
+ /* iterate through loaders in this hash slot */
+
+ while ((le != NULL) && (f == NULL)) {
+ /* iterate through names in this loader */
+
+ ne = le->namelink;
+
+ while ((ne != NULL) && (f == NULL)) {
+ f = (functionptr) (ptrint) lt_dlsym(ne->handle, name->text);
+ if (f == NULL)
+ f = (functionptr) (ptrint) lt_dlsym(ne->handle, newname->text);
-/*****************************************************************************/
-/*****************************************************************************/
+ ne = ne->hashlink;
+ }
+ le = le->hashlink;
+ }
-/*--------------------------------------------------------*/
-void printNativeCall(nativeCall nc) {
- int i,j;
+# if defined(WITH_CLASSPATH_SUN)
+ if (f == NULL) {
+ /* We can resolve the function directly from
+ java.lang.ClassLoader as it's a static function. */
+ /* XXX should be done in native_init */
- printf("\n%s's Native Methods call:\n",nc.classname); fflush(stdout);
- for (i=0; i<nc.methCnt; i++) {
- printf("\tMethod=%s %s\n",nc.methods[i].methodname, nc.methods[i].descriptor);fflush(stdout);
+ method_findNative =
+ class_resolveclassmethod(class_java_lang_ClassLoader,
+ utf_findNative,
+ utf_java_lang_ClassLoader_java_lang_String__J,
+ class_java_lang_ClassLoader,
+ true);
- for (j=0; j<nc.callCnt[i]; j++) {
- printf("\t\t<%i,%i>aCalled = %s %s %s\n",i,j,
- nc.methods[i].methodCalls[j].classname,
- nc.methods[i].methodCalls[j].methodname,
- nc.methods[i].methodCalls[j].descriptor);fflush(stdout);
- }
- }
- printf("-+++++--------------------\n");fflush(stdout);
-}
+ if (method_findNative == NULL)
+ return NULL;
-/*--------------------------------------------------------*/
-void printCompNativeCall(nativeCompCall nc) {
- int i,j;
- printf("printCompNativeCall BEGIN\n");fflush(stdout);
- printf("\n%s's Native Comp Methods call:\n",nc.classname->text);fflush(stdout);
- utf_display(nc.classname); fflush(stdout);
-
- for (i=0; i<nc.methCnt; i++) {
- printf("\tMethod=%s %s\n",nc.methods[i].methodname->text,nc.methods[i].descriptor->text);fflush(stdout);
- utf_display(nc.methods[i].methodname); fflush(stdout);
- utf_display(nc.methods[i].descriptor);fflush(stdout);
- printf("\n");fflush(stdout);
-
- for (j=0; j<nc.callCnt[i]; j++) {
- printf("\t\t<%i,%i>bCalled = ",i,j);fflush(stdout);
- utf_display(nc.methods[i].methodCalls[j].classname);fflush(stdout);
- utf_display(nc.methods[i].methodCalls[j].methodname); fflush(stdout);
- utf_display(nc.methods[i].methodCalls[j].descriptor);fflush(stdout);
- printf("\n");fflush(stdout);
- }
- }
-printf("---------------------\n");fflush(stdout);
-}
+ /* try the normal name */
+ s = javastring_new(name);
-/*--------------------------------------------------------*/
-classMeth findNativeMethodCalls(utf *c, utf *m, utf *d )
-{
- int i = 0;
- int j = 0;
- int cnt = 0;
- classMeth mc;
- mc.i_class = i;
- mc.j_method = j;
- mc.methCnt = cnt;
-
- return mc;
-}
+ f = (functionptr) (intptr_t) vm_call_method_long(method_findNative,
+ NULL, cl, s);
-/*--------------------------------------------------------*/
-nativeCall* findNativeClassCalls(char *aclassname ) {
-int i;
+ /* if not found, try the mangled name */
-for (i=0;i<NATIVECALLSSIZE; i++) {
- /* convert table to utf later to speed up search */
- if (strcmp(nativeCalls[i].classname, aclassname) == 0)
- return &nativeCalls[i];
- }
+ if (f == NULL) {
+ s = javastring_new(newname);
-return NULL;
-}
-/*--------------------------------------------------------*/
-/*--------------------------------------------------------*/
-void utfNativeCall(nativeCall nc, nativeCompCall *ncc) {
- int i,j;
-
-
- ncc->classname = utf_new_char(nc.classname);
- ncc->methCnt = nc.methCnt;
-
- for (i=0; i<nc.methCnt; i++) {
- ncc->methods[i].methodname = utf_new_char(nc.methods[i].methodname);
- ncc->methods[i].descriptor = utf_new_char(nc.methods[i].descriptor);
- ncc->callCnt[i] = nc.callCnt[i];
-
- for (j=0; j<nc.callCnt[i]; j++) {
-
- ncc->methods[i].methodCalls[j].classname = utf_new_char(nc.methods[i].methodCalls[j].classname);
-
- if (strcmp("", nc.methods[i].methodCalls[j].methodname) != 0) {
- ncc->methods[i].methodCalls[j].methodname = utf_new_char(nc.methods[i].methodCalls[j].methodname);
- ncc->methods[i].methodCalls[j].descriptor = utf_new_char(nc.methods[i].methodCalls[j].descriptor);
- }
- else {
- ncc->methods[i].methodCalls[j].methodname = NULL;
- ncc->methods[i].methodCalls[j].descriptor = NULL;
- }
- }
- }
-}
+ f = (functionptr) (intptr_t) vm_call_method_long(method_findNative,
+ NULL, cl, s);
+ }
+ }
+# endif
+ if (f != NULL)
+ if (opt_verbosejni)
+ printf("JNI ]\n");
+#endif
+ /* If not found, try to find the native function symbol in the
+ main program. */
-/*--------------------------------------------------------*/
+ if (f == NULL) {
+ f = native_method_find(m);
-bool natcall2utf(bool natcallcompdone) {
-int i;
+ if (f != NULL)
+ if (opt_verbosejni)
+ printf("internal ]\n");
+ }
-if (natcallcompdone)
- return true;
+#if defined(ENABLE_JVMTI)
+ /* fire Native Method Bind event */
+ if (jvmti) jvmti_NativeMethodBind(m, f, &f);
+#endif
+
+ /* no symbol found? throw exception */
-for (i=0;i<NATIVECALLSSIZE; i++) {
- utfNativeCall (nativeCalls[i], &nativeCompCalls[i]);
- }
+ if (f == NULL) {
+ if (opt_verbosejni)
+ printf("failed ]\n");
+
+ exceptions_throw_unsatisfiedlinkerror(m->name);
+ }
-return true;
+ return f;
}
+#endif /* !defined(WITH_STATIC_CLASSPATH) */
-/*--------------------------------------------------------*/
+/* native_new_and_init *********************************************************
-java_objectarray *builtin_asm_createclasscontextarray(classinfo **end, classinfo **start)
+ Creates a new object on the heap and calls the initializer.
+ Returns the object pointer or NULL if memory is exhausted.
+
+*******************************************************************************/
+
+java_handle_t *native_new_and_init(classinfo *c)
{
- /* XXX platform dependend */
+ methodinfo *m;
+ java_handle_t *o;
+
+ if (c == NULL)
+ vm_abort("native_new_and_init: c == NULL");
- java_objectarray *tmpArray;
- int i;
- classinfo **current;
- classinfo *c;
- size_t size;
+ /* create object */
- size = (((size_t) start) - ((size_t) end)) / sizeof(classinfo*);
+ o = builtin_new(c);
+
+ if (o == NULL)
+ return NULL;
- /*printf("end %p, start %p, size %ld\n",end,start,size);*/
+ /* try to find the initializer */
- if (size > 0) {
- if (*start == class_java_lang_SecurityManager) {
- size--;
- start--;
- }
- }
+ m = class_findmethod(c, utf_init, utf_void__void);
+
+ /* ATTENTION: returning the object here is ok, since the class may
+ not have an initializer */
- tmpArray = builtin_anewarray(size, class_java_lang_Class);
+ if (m == NULL)
+ return o;
- for(i = 0, current = start; i < size; i++, current--) {
- c = *current;
- /* printf("%d\n",i);
- utf_display(c->name);*/
- use_class_as_object(c);
- tmpArray->data[i] = (java_objectheader *) c;
- }
+ /* call initializer */
- return tmpArray;
+ (void) vm_call_method(m, o);
+
+ return o;
}
-java_lang_ClassLoader *builtin_asm_getclassloader(classinfo **end, classinfo **start)
+java_handle_t *native_new_and_init_string(classinfo *c, java_handle_t *s)
{
- /* XXX platform dependend */
+ methodinfo *m;
+ java_handle_t *o;
- int i;
- classinfo **current;
- classinfo *c;
- classinfo *privilegedAction;
- size_t size;
+ if (c == NULL)
+ vm_abort("native_new_and_init_string: c == NULL");
- size = (((size_t) start) - ((size_t) end)) / sizeof(classinfo*);
+ /* create object */
- /* log_text("builtin_asm_getclassloader");
- printf("end %p, start %p, size %ld\n",end,start,size);*/
+ o = builtin_new(c);
- if (!class_java_lang_SecurityManager)
- if (!load_class_bootstrap(utf_new_char("java/lang/SecurityManager"),&class_java_lang_SecurityManager))
- return NULL;
+ if (o == NULL)
+ return NULL;
- if (size > 0) {
- if (*start == class_java_lang_SecurityManager) {
- size--;
- start--;
- }
- }
+ /* find initializer */
- if (!load_class_bootstrap(utf_new_char("java/security/PrivilegedAction"),&privilegedAction))
- return NULL;
+ m = class_findmethod(c, utf_init, utf_java_lang_String__void);
- for(i = 0, current = start; i < size; i++, current--) {
- c = *current;
+ /* initializer not found */
- if (c == privilegedAction)
- return NULL;
+ if (m == NULL)
+ return NULL;
- if (c->classloader)
- return (java_lang_ClassLoader *) c->classloader;
- }
+ /* call initializer */
- return NULL;
+ (void) vm_call_method(m, o, s);
+
+ return o;
}