#ifndef __JAVA_JVM_H__
#define __JAVA_JVM_H__
#define __GCJ_JNI_IMPL__
#include <gcj/javaprims.h>
#include <java-assert.h>
#include <java-threads.h>
#include <java-gc.h>
#include <java/lang/Object.h>
#include <gcj/cni.h>
#include <gcj/field.h>
#define MAYBE_UNUSED __attribute__((__unused__))
struct _Jv_VTable
{
#ifdef __ia64__
typedef struct { void *pc, *gp; } vtable_elt;
#else
typedef void *vtable_elt;
#endif
jclass clas;
void *gc_descr;
vtable_elt method[1];
#ifdef __ia64__
void *get_method(int i) { return &method[i]; }
void set_method(int i, void *fptr) { method[i] = *(vtable_elt *)fptr; }
void *get_finalizer()
{
return ((vtable_elt *)(get_method(0)))->pc;
}
#else
void *get_method(int i) { return method[i]; }
void set_method(int i, void *fptr) { method[i] = fptr; }
void *get_finalizer() { return get_method(0); }
#endif
static size_t vtable_elt_size() { return sizeof(vtable_elt); }
static jint idx_to_offset (int index)
{
return (2 * sizeof (void *)) + (index * vtable_elt_size ());
}
static _Jv_VTable *new_vtable (int count);
};
#define NUM_OBJECT_METHODS 5
union _Jv_word
{
jobject o;
jint i; jfloat f;
jint ia[1]; void* p;
#if SIZEOF_VOID_P == 8
jlong l;
jdouble d;
#endif
jclass clazz;
jstring string;
struct _Jv_Field *field;
struct _Jv_Utf8Const *utf8;
struct _Jv_ResolvedMethod *rmethod;
};
union _Jv_word2
{
jint ia[2];
jlong l;
jdouble d;
};
union _Jv_value
{
jbyte byte_value;
jshort short_value;
jchar char_value;
jint int_value;
jlong long_value;
jfloat float_value;
jdouble double_value;
jobject object_value;
};
struct _Jv_frame_info
{
void *addr;
#ifdef INTERPRETER
void *interp;
#endif // INTERPRETER
};
#define UTF8_GET(PTR, LIMIT) \
((PTR) >= (LIMIT) ? -1 \
: *(PTR) < 128 ? *(PTR)++ \
: (*(PTR)&0xE0) == 0xC0 && ((PTR)+=2)<=(LIMIT) && ((PTR)[-1]&0xC0) == 0x80 \
? (((PTR)[-2] & 0x1F) << 6) + ((PTR)[-1] & 0x3F) \
: (*(PTR) & 0xF0) == 0xE0 && ((PTR) += 3) <= (LIMIT) \
&& ((PTR)[-2] & 0xC0) == 0x80 && ((PTR)[-1] & 0xC0) == 0x80 \
? (((PTR)[-3]&0x0F) << 12) + (((PTR)[-2]&0x3F) << 6) + ((PTR)[-1]&0x3F) \
: ((PTR)++, -1))
extern int _Jv_strLengthUtf8(char* str, int len);
typedef struct _Jv_Utf8Const Utf8Const;
_Jv_Utf8Const *_Jv_makeUtf8Const (char *s, int len);
_Jv_Utf8Const *_Jv_makeUtf8Const (jstring string);
extern jboolean _Jv_equalUtf8Consts (const _Jv_Utf8Const *, const _Jv_Utf8Const *);
extern jboolean _Jv_equal (_Jv_Utf8Const *, jstring, jint);
extern jboolean _Jv_equaln (_Jv_Utf8Const *, jstring, jint);
class _Jv_TempUTFString
{
public:
_Jv_TempUTFString(jstring jstr, char* buf=0);
~_Jv_TempUTFString();
operator const char*() const
{
return buf_;
}
const char* buf() const
{
return buf_;
}
char* buf()
{
return buf_;
}
private:
char* buf_;
bool heapAllocated_;
};
inline _Jv_TempUTFString::_Jv_TempUTFString (jstring jstr, char* buf)
: buf_(0), heapAllocated_(false)
{
if (!jstr) return;
jsize len = JvGetStringUTFLength (jstr);
if (buf)
buf_ = buf;
else
{
buf_ = (char*) _Jv_Malloc (len+1);
heapAllocated_ = true;
}
JvGetStringUTFRegion (jstr, 0, jstr->length(), buf_);
buf_[len] = '\0';
}
inline _Jv_TempUTFString::~_Jv_TempUTFString ()
{
if (heapAllocated_)
_Jv_Free (buf_);
}
#define JV_TEMP_UTF_STRING(utfstr, jstr) \
jstring utfstr##thejstr = (jstr); \
jsize utfstr##_len = utfstr##thejstr ? JvGetStringUTFLength (utfstr##thejstr) + 1 : 0; \
char utfstr##_buf[utfstr##_len <= 256 ? utfstr##_len : 0]; \
_Jv_TempUTFString utfstr(utfstr##thejstr, sizeof(utfstr##_buf)==0 ? 0 : utfstr##_buf)
namespace gcj
{
extern _Jv_Utf8Const *void_signature;
extern _Jv_Utf8Const *clinit_name;
extern _Jv_Utf8Const *init_name;
extern _Jv_Utf8Const *finit_name;
extern bool runtimeInitialized;
extern bool verbose_class_flag;
extern bool verifyClasses;
}
class _Jv_Linker
{
private:
static _Jv_Field *find_field_helper(jclass, _Jv_Utf8Const *, _Jv_Utf8Const *,
jclass *);
static _Jv_Field *find_field(jclass, jclass, jclass *, _Jv_Utf8Const *,
_Jv_Utf8Const *);
static void prepare_constant_time_tables(jclass);
static jshort get_interfaces(jclass, _Jv_ifaces *);
static void link_symbol_table(jclass);
static void link_exception_table(jclass);
static void layout_interface_methods(jclass);
static void layout_vtable_methods(jclass);
static void set_vtable_entries(jclass, _Jv_VTable *);
static void make_vtable(jclass);
static void ensure_fields_laid_out(jclass);
static void ensure_class_linked(jclass);
static void ensure_supers_installed(jclass);
static void add_miranda_methods(jclass, jclass);
static void ensure_method_table_complete(jclass);
static void verify_class(jclass);
static jshort find_iindex(jclass *, jshort *, jshort);
static jshort indexof(void *, void **, jshort);
static int get_alignment_from_class(jclass);
static void generate_itable(jclass, _Jv_ifaces *, jshort *);
static jshort append_partial_itable(jclass, jclass, void **, jshort);
static _Jv_Method *search_method_in_class (jclass, jclass,
_Jv_Utf8Const *,
_Jv_Utf8Const *);
public:
static bool has_field_p (jclass, _Jv_Utf8Const *);
static void print_class_loaded (jclass);
static void resolve_class_ref (jclass, jclass *);
static void wait_for_state(jclass, int);
static _Jv_word resolve_pool_entry (jclass, int);
static void resolve_field (_Jv_Field *, java::lang::ClassLoader *);
static void verify_type_assertions (jclass);
};
typedef void _Jv_FinalizerFunc (jobject);
void *_Jv_AllocObj (jsize size, jclass cl) __attribute__((__malloc__));
void *_Jv_AllocPtrFreeObj (jsize size, jclass cl) __attribute__((__malloc__));
void *_Jv_AllocArray (jsize size, jclass cl) __attribute__((__malloc__));
void *_Jv_AllocBytes (jsize size) __attribute__((__malloc__));
void *_Jv_AllocRawObj (jsize size) __attribute__((__malloc__));
void _Jv_ThrowNoMemory() __attribute__((__noreturn__));
void *_Jv_AllocTraceOne (jsize size );
void *_Jv_AllocTraceTwo (jsize size );
void _Jv_InitGC (void);
void _Jv_RegisterFinalizer (void *object, _Jv_FinalizerFunc *method);
void * _Jv_BuildGCDescr(jclass);
void *_Jv_MallocUnchecked (jsize size) __attribute__((__malloc__));
void _Jv_GCInitializeFinalizers (void (*notifier) (void));
void _Jv_RunFinalizers (void);
void _Jv_RunAllFinalizers (void);
void _Jv_RunGC (void);
void _Jv_DisableGC (void);
void _Jv_EnableGC (void);
void _Jv_GCRegisterDisappearingLink (jobject *objp);
jboolean _Jv_GCCanReclaimSoftReference (jobject obj);
void _Jv_RegisterStringFinalizer (jobject str);
void _Jv_FinalizeString (jobject str);
long _Jv_GCTotalMemory (void);
long _Jv_GCFreeMemory (void);
void _Jv_GCSetInitialHeapSize (size_t size);
void _Jv_GCSetMaximumHeapSize (size_t size);
void _Jv_SetInitialHeapSize (const char *arg);
void _Jv_SetMaximumHeapSize (const char *arg);
extern "C" void JvRunMain (jclass klass, int argc, const char **argv);
void _Jv_RunMain (jclass klass, const char *name, int argc, const char **argv,
bool is_jar);
void _Jv_RunMain (struct _Jv_VMInitArgs *vm_args, jclass klass,
const char *name, int argc, const char **argv, bool is_jar);
inline _Jv_VTable *
_Jv_VTable::new_vtable (int count)
{
size_t size = sizeof(_Jv_VTable) + (count - 1) * vtable_elt_size ();
return (_Jv_VTable *) _Jv_AllocBytes (size);
}
static inline jboolean _Jv_isVirtualMethod (_Jv_Method *meth)
{
using namespace java::lang::reflect;
return (((meth->accflags & (Modifier::STATIC | Modifier::PRIVATE)) == 0)
&& meth->name->first() != '<');
}
inline jint
_Jv_HashCode (jobject obj)
{
return (jint) ((unsigned long) obj % 0x7fffffff);
}
inline char *
_Jv_GetArrayElementFromElementType (jobject array,
jclass element_type)
{
char *elts;
if (element_type == JvPrimClass (byte))
elts = (char *) elements ((jbyteArray) array);
else if (element_type == JvPrimClass (short))
elts = (char *) elements ((jshortArray) array);
else if (element_type == JvPrimClass (int))
elts = (char *) elements ((jintArray) array);
else if (element_type == JvPrimClass (long))
elts = (char *) elements ((jlongArray) array);
else if (element_type == JvPrimClass (boolean))
elts = (char *) elements ((jbooleanArray) array);
else if (element_type == JvPrimClass (char))
elts = (char *) elements ((jcharArray) array);
else if (element_type == JvPrimClass (float))
elts = (char *) elements ((jfloatArray) array);
else if (element_type == JvPrimClass (double))
elts = (char *) elements ((jdoubleArray) array);
else
elts = (char *) elements ((jobjectArray) array);
return elts;
}
extern "C" void _Jv_ThrowBadArrayIndex (jint bad_index)
__attribute__((noreturn));
extern "C" void _Jv_ThrowNullPointerException (void)
__attribute__((noreturn));
extern "C" jobject _Jv_NewArray (jint type, jint size)
__attribute__((__malloc__));
extern "C" jobject _Jv_NewMultiArray (jclass klass, jint dims, ...)
__attribute__((__malloc__));
extern "C" void *_Jv_CheckCast (jclass klass, jobject obj);
extern "C" void *_Jv_LookupInterfaceMethod (jclass klass, Utf8Const *name,
Utf8Const *signature);
extern "C" void *_Jv_LookupInterfaceMethodIdx (jclass klass, jclass iface,
int meth_idx);
extern "C" void _Jv_CheckArrayStore (jobject array, jobject obj);
extern "C" void _Jv_RegisterClass (jclass klass);
extern "C" void _Jv_RegisterClasses (const jclass *classes);
extern "C" void _Jv_RegisterClasses_Counted (const jclass *classes,
size_t count);
extern "C" void _Jv_RegisterResource (void *vptr);
extern void _Jv_UnregisterClass (_Jv_Utf8Const*, java::lang::ClassLoader*);
extern jclass _Jv_FindClass (_Jv_Utf8Const *name,
java::lang::ClassLoader *loader);
extern jclass _Jv_FindClassFromSignature (char *,
java::lang::ClassLoader *loader);
extern void _Jv_GetTypesFromSignature (jmethodID method,
jclass declaringClass,
JArray<jclass> **arg_types_out,
jclass *return_type_out);
extern jboolean _Jv_CheckAccess (jclass self_klass, jclass other_klass,
jint flags);
extern jobject _Jv_CallAnyMethodA (jobject obj, jclass return_type,
jmethodID meth, jboolean is_constructor,
JArray<jclass> *parameter_types,
jobjectArray args,
jclass iface = NULL);
union jvalue;
extern void _Jv_CallAnyMethodA (jobject obj,
jclass return_type,
jmethodID meth,
jboolean is_constructor,
jboolean is_virtual_call,
JArray<jclass> *parameter_types,
jvalue *args,
jvalue *result,
jboolean is_jni_call = true,
jclass iface = NULL);
extern jobject _Jv_NewMultiArray (jclass, jint ndims, jint* dims)
__attribute__((__malloc__));
extern "C"
{
jint _Jv_divI (jint, jint);
jint _Jv_remI (jint, jint);
jlong _Jv_divJ (jlong, jlong);
jlong _Jv_remJ (jlong, jlong);
}
extern int _Jv_GetNbArgs (void);
extern const char * _Jv_GetSafeArg (int index);
extern void _Jv_SetArgs (int argc, const char **argv);
extern const char *_Jv_ThisExecutable (void);
void *_Jv_FindSymbolInExecutable (const char *);
extern void _Jv_JNI_Init (void);
_Jv_JNIEnv *_Jv_GetCurrentJNIEnv ();
void _Jv_SetCurrentJNIEnv (_Jv_JNIEnv *);
void _Jv_FreeJNIEnv (_Jv_JNIEnv *);
void _Jv_FreeJNIEnv (_Jv_JNIEnv *);
struct _Jv_JavaVM;
_Jv_JavaVM *_Jv_GetJavaVM ();
bool _Jv_VerifyFieldSignature (_Jv_Utf8Const*sig);
bool _Jv_VerifyMethodSignature (_Jv_Utf8Const*sig);
bool _Jv_VerifyClassName (unsigned char* ptr, _Jv_ushort length);
bool _Jv_VerifyClassName (_Jv_Utf8Const *name);
bool _Jv_VerifyIdentifier (_Jv_Utf8Const *);
bool _Jv_ClassNameSamePackage (_Jv_Utf8Const *name1, _Jv_Utf8Const *name2);
struct _Jv_core_chain
{
int name_length;
const char *name;
int data_length;
const void *data;
struct _Jv_core_chain *next;
};
extern void (*_Jv_RegisterCoreHook) (_Jv_core_chain *);
_Jv_core_chain *_Jv_FindCore (_Jv_core_chain *node, jstring name);
void _Jv_FreeCoreChain (_Jv_core_chain *chain);
#ifdef ENABLE_JVMPI
#include "jvmpi.h"
extern void (*_Jv_JVMPI_Notify_OBJECT_ALLOC) (JVMPI_Event *event);
extern void (*_Jv_JVMPI_Notify_THREAD_START) (JVMPI_Event *event);
extern void (*_Jv_JVMPI_Notify_THREAD_END) (JVMPI_Event *event);
#endif
#define ROUND(V, A) (((((unsigned) (V))-1) | ((A)-1))+1)
extern void _Jv_RegisterBootstrapPackages ();
#define FLAG_BINARYCOMPAT_ABI (1<<31)
#define FLAG_BOOTSTRAP_LOADER (1<<30)
#define GCJ_CXX_ABI_VERSION (__GNUC__ * 10000 + __GNUC_MINOR__ * 10)
#define OLD_GCJ_40_BC_ABI_VERSION (4 * 10000 + 0 * 10 + 5)
#define GCJ_40_BC_ABI_VERSION (4 * 100000 + 0 * 1000)
inline bool
_Jv_CheckABIVersion (unsigned long value)
{
if (value == OLD_GCJ_40_BC_ABI_VERSION)
return true;
unsigned long version = value & 0xfffff;
if (value & FLAG_BINARYCOMPAT_ABI)
{
int abi_rev = version % 100;
int abi_ver = version - abi_rev;
if (abi_ver == GCJ_40_BC_ABI_VERSION && abi_rev <= 0)
return true;
}
else
return version == GCJ_CXX_ABI_VERSION;
return false;
}
extern inline jboolean
_Jv_IsInterpretedClass (jclass c)
{
return (c->accflags & java::lang::reflect::Modifier::INTERPRETED) != 0;
}
#endif