#include <config.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <gcj/cni.h>
#include <jvm.h>
#include <execution.h>
#include <java-threads.h>
#include <java-interp.h>
#include <java/lang/Character.h>
#include <java/lang/Thread.h>
#include <java/lang/ClassLoader.h>
#include <java/lang/InternalError.h>
#include <java/lang/IllegalAccessError.h>
#include <java/lang/LinkageError.h>
#include <java/lang/NoClassDefFoundError.h>
#include <java/lang/ClassNotFoundException.h>
#include <java/lang/ClassCircularityError.h>
#include <java/lang/IncompatibleClassChangeError.h>
#include <java/lang/ClassFormatError.h>
#include <java/lang/VirtualMachineError.h>
#include <java/lang/VMClassLoader.h>
#include <java/lang/reflect/Modifier.h>
#include <java/lang/Runtime.h>
#include <java/lang/StringBuffer.h>
#include <java/io/Serializable.h>
#include <java/lang/Cloneable.h>
#include <java/util/HashMap.h>
#include <gnu/gcj/runtime/BootClassLoader.h>
#define HASH_LEN 1013
#define HASH_UTF(Utf) ((Utf)->hash16() % HASH_LEN)
static jclass loaded_classes[HASH_LEN];
static jclass stack_head;
#define BOOTSTRAP_CLASS_LIST_SIZE 20
static jclass bootstrap_class_list[BOOTSTRAP_CLASS_LIST_SIZE];
static int bootstrap_index;
jclass
java::lang::ClassLoader::loadClassFromSig(jstring name)
{
int len = _Jv_GetStringUTFLength (name);
char sig[len + 1];
_Jv_GetStringUTFRegion (name, 0, name->length(), sig);
return _Jv_FindClassFromSignature(sig, this);
}
jclass
_Jv_FindClassInCache (_Jv_Utf8Const *name)
{
JvSynchronize sync (&java::lang::Class::class$);
jint hash = HASH_UTF (name);
jclass klass;
for (klass = loaded_classes[hash]; klass; klass = klass->next_or_version)
{
if (_Jv_equalUtf8Consts (name, klass->name))
break;
}
return klass;
}
void
_Jv_UnregisterClass (jclass the_class)
{
JvSynchronize sync (&java::lang::Class::class$);
jint hash = HASH_UTF(the_class->name);
jclass *klass = &(loaded_classes[hash]);
for ( ; *klass; klass = &((*klass)->next_or_version))
{
if (*klass == the_class)
{
*klass = (*klass)->next_or_version;
break;
}
}
}
void
_Jv_RegisterInitiatingLoader (jclass klass, java::lang::ClassLoader *loader)
{
if (! loader)
loader = java::lang::ClassLoader::systemClassLoader;
loader->loadedClasses->put(klass->name->toString(), klass);
}
void
_Jv_UnregisterInitiatingLoader (jclass klass, java::lang::ClassLoader *loader)
{
if (! loader)
loader = java::lang::ClassLoader::systemClassLoader;
loader->loadedClasses->remove(klass->name->toString());
}
void
_Jv_RegisterClasses (const jclass *classes)
{
for (; *classes; ++classes)
{
jclass klass = *classes;
if (_Jv_CheckABIVersion ((unsigned long) klass->next_or_version))
(*_Jv_RegisterClassHook) (klass);
}
}
void
_Jv_RegisterClasses_Counted (const jclass * classes, size_t count)
{
size_t i;
for (i = 0; i < count; i++)
{
jclass klass = classes[i];
if (_Jv_CheckABIVersion ((unsigned long) klass->next_or_version))
(*_Jv_RegisterClassHook) (klass);
}
}
void
_Jv_RegisterClassHookDefault (jclass klass)
{
jint hash = HASH_UTF (klass->name);
for (jclass check_class = loaded_classes[hash];
check_class != NULL;
check_class = check_class->next_or_version)
{
if (check_class == klass)
{
#define TEXT "Duplicate class registration: "
char message[200];
strcpy (message, TEXT);
strncpy (message + sizeof (TEXT) - 1, klass->name->chars(),
sizeof (message) - sizeof (TEXT));
message[sizeof (message) - 1] = '\0';
if (! gcj::runtimeInitialized)
JvFail (message);
else
{
java::lang::String *str = JvNewStringLatin1 (message);
throw new java::lang::VirtualMachineError (str);
}
}
}
if (! klass->engine)
klass->engine = &_Jv_soleCompiledEngine;
klass->next_or_version = loaded_classes[hash];
loaded_classes[hash] = klass;
}
void (*_Jv_RegisterClassHook) (jclass cl) = _Jv_RegisterClassHookDefault;
void
_Jv_RegisterClass (jclass klass)
{
jclass classes[2];
classes[0] = klass;
classes[1] = NULL;
_Jv_RegisterClasses (classes);
}
jclass
_Jv_FindClass (_Jv_Utf8Const *name, java::lang::ClassLoader *loader)
{
java::lang::ClassLoader *boot = java::lang::ClassLoader::systemClassLoader;
java::lang::ClassLoader *real = loader;
if (! real)
real = boot;
jstring sname = name->toString();
jclass klass = real ? real->findLoadedClass (sname) : NULL;
if (! klass)
{
if (loader)
{
klass = loader->loadClass(sname);
java::lang::ClassLoader *delegate = (loader == boot
? NULL
: loader);
if (klass && klass->getClassLoaderInternal () != delegate)
_Jv_RegisterInitiatingLoader (klass, loader);
}
else if (boot)
{
klass = boot->loadClass (sname);
if (klass)
_Jv_RegisterInitiatingLoader (klass, 0);
}
else
{
klass = _Jv_FindClassInCache (name);
if (klass)
{
bool found = false;
for (int i = 0; i < bootstrap_index; ++i)
{
if (bootstrap_class_list[i] == klass)
{
found = true;
break;
}
}
if (! found)
{
if (bootstrap_index == BOOTSTRAP_CLASS_LIST_SIZE)
abort ();
bootstrap_class_list[bootstrap_index++] = klass;
}
}
}
}
else
{
_Jv_Linker::wait_for_state (klass, JV_STATE_LOADED);
}
return klass;
}
void
_Jv_RegisterBootstrapPackages ()
{
for (int i = 0; i < bootstrap_index; ++i)
java::lang::VMClassLoader::definePackageForNative(bootstrap_class_list[i]->getName());
}
jclass
_Jv_NewClass (_Jv_Utf8Const *name, jclass superclass,
java::lang::ClassLoader *loader)
{
jclass ret = (jclass) _Jv_AllocObject (&java::lang::Class::class$);
ret->name = name;
ret->superclass = superclass;
ret->loader = loader;
_Jv_RegisterClass (ret);
return ret;
}
static _Jv_IDispatchTable *array_idt = NULL;
static jshort array_depth = 0;
static jclass *array_ancestors = NULL;
void
_Jv_NewArrayClass (jclass element, java::lang::ClassLoader *loader,
_Jv_VTable *array_vtable)
{
JvSynchronize sync (element);
_Jv_Utf8Const *array_name;
int len;
if (element->arrayclass)
return;
if (element->isPrimitive())
{
if (element == JvPrimClass (void))
throw new java::lang::ClassNotFoundException ();
len = 3;
}
else
len = element->name->len() + 5;
{
char signature[len];
int index = 0;
signature[index++] = '[';
if (element->isPrimitive())
{
signature[index++] = (char) element->method_count;
}
else
{
size_t length = element->name->len();
const char *const name = element->name->chars();
if (name[0] != '[')
signature[index++] = 'L';
memcpy (&signature[index], name, length);
index += length;
if (name[0] != '[')
signature[index++] = ';';
}
array_name = _Jv_makeUtf8Const (signature, index);
}
jclass array_class = _Jv_NewClass (array_name, &java::lang::Object::class$,
element->loader);
JvAssert (java::lang::Object::class$.vtable_method_count
== NUM_OBJECT_METHODS);
int dm_count = java::lang::Object::class$.vtable_method_count;
_Jv_VTable *vtable;
if (array_vtable)
vtable = array_vtable;
else
vtable = _Jv_VTable::new_vtable (dm_count);
vtable->clas = array_class;
vtable->gc_descr = java::lang::Object::class$.vtable->gc_descr;
for (int i = 0; i < dm_count; ++i)
vtable->set_method (i, java::lang::Object::class$.vtable->get_method (i));
array_class->vtable = vtable;
array_class->vtable_method_count
= java::lang::Object::class$.vtable_method_count;
array_class->methods = (_Jv_Method *) element;
static jclass interfaces[] =
{
&java::lang::Cloneable::class$,
&java::io::Serializable::class$
};
array_class->interfaces = interfaces;
array_class->interface_count = sizeof interfaces / sizeof interfaces[0];
if (!array_idt)
{
_Jv_Linker::wait_for_state(array_class, JV_STATE_PREPARED);
array_idt = array_class->idt;
array_depth = array_class->depth;
array_ancestors = array_class->ancestors;
}
else
{
array_class->idt = array_idt;
array_class->depth = array_depth;
array_class->ancestors = array_ancestors;
}
using namespace java::lang::reflect;
{
_Jv_ushort accflags = (Modifier::FINAL | Modifier::ABSTRACT
| (element->accflags
& (Modifier::PUBLIC | Modifier::PROTECTED
| Modifier::PRIVATE)));
array_class->accflags = accflags;
}
array_class->state = JV_STATE_DONE;
if (element->loader != loader)
_Jv_RegisterInitiatingLoader (array_class, loader);
element->arrayclass = array_class;
}
jclass
_Jv_PopClass (void)
{
JvSynchronize sync (&java::lang::Class::class$);
if (stack_head)
{
jclass tmp = stack_head;
stack_head = tmp->chain;
return tmp;
}
return NULL;
}
void
_Jv_PushClass (jclass k)
{
JvSynchronize sync (&java::lang::Class::class$);
jclass tmp = stack_head;
stack_head = k;
k->chain = tmp;
}