// interpret.cc - Code for the interpreter
-/* Copyright (C) 1999, 2000 Red Hat, Inc.
+/* Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004 Free Software Foundation
This file is part of libgcj.
#include <config.h>
+// Define this to get the direct-threaded interpreter. If undefined,
+// we revert to a basic bytecode interpreter. The former is faster
+// but uses more memory.
+#define DIRECT_THREADED
+
#pragma implementation "java-interp.h"
#include <jvm.h>
#include <java-cpool.h>
#include <java-interp.h>
-#include <java/lang/fdlibm.h>
#include <java/lang/System.h>
#include <java/lang/String.h>
#include <java/lang/Integer.h>
+#include <java/lang/Long.h>
#include <java/lang/StringBuffer.h>
#include <java/lang/Class.h>
#include <java/lang/reflect/Modifier.h>
#include <java/lang/NullPointerException.h>
#include <java/lang/ArithmeticException.h>
#include <java/lang/IncompatibleClassChangeError.h>
+#include <java/lang/Thread.h>
#include <java-insns.h>
#include <java-signal.h>
-#ifndef INTERPRETER
-
-#include <gnu/gcj/runtime/MethodInvocation.h>
-
-/* This should never happen. */
-void
-gnu::gcj::runtime::MethodInvocation::continue1 (gnu::gcj::RawData *,
- gnu::gcj::RawData *)
-{
- JvFail ("no interpreter");
-}
-
-#else
+#ifdef INTERPRETER
-#define ClassError _CL_Q34java4lang5Error
-extern java::lang::Class ClassError;
+#include <stdlib.h>
-static _Jv_Utf8Const *init_name = _Jv_makeUtf8Const ("<init>", 6);
+using namespace gcj;
static void throw_internal_error (char *msg)
__attribute__ ((__noreturn__));
static void throw_incompatible_class_change_error (jstring msg)
__attribute__ ((__noreturn__));
-#if !HANDLE_SEGV
+#ifndef HANDLE_SEGV
static void throw_null_pointer_exception ()
__attribute__ ((__noreturn__));
#endif
-#if !HANDLE_FPE
-static void throw_arithmetic_exception ()
- __attribute__ ((__noreturn__));
+
+#ifdef DIRECT_THREADED
+// Lock to ensure that methods are not compiled concurrently.
+// We could use a finer-grained lock here, however it is not safe to use
+// the Class monitor as user code in another thread could hold it.
+static _Jv_Mutex_t compile_mutex;
+
+void
+_Jv_InitInterpreter()
+{
+ _Jv_MutexInit (&compile_mutex);
+}
+#else
+void _Jv_InitInterpreter() {}
#endif
+extern "C" double __ieee754_fmod (double,double);
+
+// This represents a single slot in the "compiled" form of the
+// bytecode.
+union insn_slot
+{
+ // Address of code.
+ void *insn;
+ // An integer value used by an instruction.
+ jint int_val;
+ // A pointer value used by an instruction.
+ void *datum;
+};
+
+// The type of the PC depends on whether we're doing direct threading
+// or a more ordinary bytecode interpreter.
+#ifdef DIRECT_THREADED
+typedef insn_slot *pc_t;
+#else
+typedef unsigned char *pc_t;
+#endif
static inline void dupx (_Jv_word *sp, int n, int x)
{
sp[top-(n+x)-i] = sp[top-i];
}
-};
+}
+// Used to convert from floating types to integral types.
+template<typename TO, typename FROM>
+static inline TO
+convert (FROM val, TO min, TO max)
+{
+ TO ret;
+ if (val >= (FROM) max)
+ ret = max;
+ else if (val <= (FROM) min)
+ ret = min;
+ else if (val != val)
+ ret = 0;
+ else
+ ret = (TO) val;
+ return ret;
+}
#define PUSHA(V) (sp++)->o = (V)
#define PUSHI(V) (sp++)->i = (V)
#define PUSHF(V) (sp++)->f = (V)
-#define PUSHL(V) ({ _Jv_word2 w2; w2.l=(V); \
- (sp++)->ia[0] = w2.ia[0]; \
- (sp++)->ia[0] = w2.ia[1]; })
-#define PUSHD(V) ({ _Jv_word2 w2; w2.d=(V); \
- (sp++)->ia[0] = w2.ia[0]; \
- (sp++)->ia[0] = w2.ia[1]; })
+#if SIZEOF_VOID_P == 8
+# define PUSHL(V) (sp->l = (V), sp += 2)
+# define PUSHD(V) (sp->d = (V), sp += 2)
+#else
+# define PUSHL(V) do { _Jv_word2 w2; w2.l=(V); \
+ (sp++)->ia[0] = w2.ia[0]; \
+ (sp++)->ia[0] = w2.ia[1]; } while (0)
+# define PUSHD(V) do { _Jv_word2 w2; w2.d=(V); \
+ (sp++)->ia[0] = w2.ia[0]; \
+ (sp++)->ia[0] = w2.ia[1]; } while (0)
+#endif
#define POPA() ((--sp)->o)
#define POPI() ((jint) (--sp)->i) // cast since it may be promoted
#define POPF() ((jfloat) (--sp)->f)
-#define POPL() ({ _Jv_word2 w2; \
+#if SIZEOF_VOID_P == 8
+# define POPL() (sp -= 2, (jlong) sp->l)
+# define POPD() (sp -= 2, (jdouble) sp->d)
+#else
+# define POPL() ({ _Jv_word2 w2; \
w2.ia[1] = (--sp)->ia[0]; \
w2.ia[0] = (--sp)->ia[0]; w2.l; })
-#define POPD() ({ _Jv_word2 w2; \
+# define POPD() ({ _Jv_word2 w2; \
w2.ia[1] = (--sp)->ia[0]; \
w2.ia[0] = (--sp)->ia[0]; w2.d; })
+#endif
#define LOADA(I) (sp++)->o = locals[I].o
#define LOADI(I) (sp++)->i = locals[I].i
#define LOADF(I) (sp++)->f = locals[I].f
-#define LOADL(I) ({ jint __idx = (I); \
- (sp++)->ia[0] = locals[__idx].ia[0]; \
- (sp++)->ia[0] = locals[__idx+1].ia[0]; \
- })
-#define LOADD(I) LOADL(I)
-
+#if SIZEOF_VOID_P == 8
+# define LOADL(I) (sp->l = locals[I].l, sp += 2)
+# define LOADD(I) (sp->d = locals[I].d, sp += 2)
+#else
+# define LOADL(I) do { jint __idx = (I); \
+ (sp++)->ia[0] = locals[__idx].ia[0]; \
+ (sp++)->ia[0] = locals[__idx+1].ia[0]; \
+ } while (0)
+# define LOADD(I) LOADL(I)
+#endif
#define STOREA(I) locals[I].o = (--sp)->o
#define STOREI(I) locals[I].i = (--sp)->i
#define STOREF(I) locals[I].f = (--sp)->f
-#define STOREL(I) ({ jint __idx = (I); \
- locals[__idx+1].ia[0] = (--sp)->ia[0]; \
- locals[__idx].ia[0] = (--sp)->ia[0]; \
- })
-#define STORED(I) STOREL(I)
+#if SIZEOF_VOID_P == 8
+# define STOREL(I) (sp -= 2, locals[I].l = sp->l)
+# define STORED(I) (sp -= 2, locals[I].d = sp->d)
+#else
+# define STOREL(I) do { jint __idx = (I); \
+ locals[__idx+1].ia[0] = (--sp)->ia[0]; \
+ locals[__idx].ia[0] = (--sp)->ia[0]; \
+ } while (0)
+# define STORED(I) STOREL(I)
+#endif
#define PEEKI(I) (locals+(I))->i
#define PEEKA(I) (locals+(I))->o
}
-#if HANDLE_SEGV
+#ifdef HANDLE_SEGV
#define NULLCHECK(X)
+#define NULLARRAYCHECK(X)
#else
#define NULLCHECK(X) \
do { if ((X)==NULL) throw_null_pointer_exception (); } while (0)
+#define NULLARRAYCHECK(X) \
+ do { if ((X)==NULL) { throw_null_pointer_exception (); } } while (0)
#endif
-#if HANDLE_FPE
-#define ZEROCHECK(X)
-#else
-#define ZEROCHECK(X) \
- do { if ((X) == 0) throw_arithmetic_exception (); } while (0)
-#endif
-
-// this method starts the actual running of the method. It is inlined
-// in three different variants in the static methods run_normal,
-// run_sync_object and run_sync_class (see below). Those static methods
-// are installed directly in the stub for this method (by
-// _Jv_InterpMethod::ncode, in resolve.cc).
-
-inline jobject
-_Jv_InterpMethod::run (ffi_cif* cif,
- void *retp,
- ffi_raw *args,
- _Jv_InterpMethodInvocation *inv)
+#define ARRAYBOUNDSCHECK(array, index) \
+ do \
+ { \
+ if (((unsigned) index) >= (unsigned) (array->length)) \
+ _Jv_ThrowBadArrayIndex (index); \
+ } \
+ while (0)
+
+void
+_Jv_InterpMethod::run_normal (ffi_cif *,
+ void* ret,
+ ffi_raw * args,
+ void* __this)
{
- inv->running = this;
- inv->pc = bytecode ();
- inv->sp = inv->stack_base ();
- _Jv_word *locals = inv->local_base ();
-
- /* Go straight at it! the ffi raw format matches the internal
- stack representation exactly. At leat, that's the idea.
- */
- memcpy ((void*) locals, (void*) args, args_raw_size);
-
- next_segment:
- /* this will call the method _Jv_InterpMethod::continue0, see below */
- jobject ex =
- gnu::gcj::runtime::MethodInvocation::continue0
- ((gnu::gcj::RawData *)this, (gnu::gcj::RawData *)inv);
-
- if (ex == 0) // no exception...
- {
- /* define sp locally, so the POP? macros will pick it up */
- _Jv_word *sp = inv->sp;
- int rtype = cif->rtype->type;
-
- if (rtype == FFI_TYPE_POINTER)
- {
- jobject r = POPA();
- *(jobject*) retp = r;
- return 0;
- }
- else if (rtype == FFI_TYPE_SINT32)
- {
- jint r = POPI();
- *(jint*)retp = r;
- return 0;
- }
- else if (rtype == FFI_TYPE_VOID)
- {
- return 0;
- }
- else switch (rtype)
- {
- case FFI_TYPE_FLOAT:
- {
- jfloat r = POPF();
- *(jfloat*)retp = r;
- return 0;
- }
-
- case FFI_TYPE_DOUBLE:
- {
- jdouble r = POPD();
- *(jdouble*)retp = r;
- return 0;
- }
-
- case FFI_TYPE_UINT8:
- case FFI_TYPE_UINT16:
- case FFI_TYPE_UINT32:
- case FFI_TYPE_SINT8:
- case FFI_TYPE_SINT16:
- {
- jint r = POPI();
- *(jint*)retp = r;
- return 0;
- }
-
- case FFI_TYPE_SINT64:
- {
- jlong r = POPL();
- *(jlong*)retp = r;
- return 0;
- }
-
- default:
- throw_internal_error ("unknown return type");
- }
+ _Jv_InterpMethod *_this = (_Jv_InterpMethod *) __this;
+ _this->run (ret, args);
+}
- }
+void
+_Jv_InterpMethod::run_synch_object (ffi_cif *,
+ void* ret,
+ ffi_raw * args,
+ void* __this)
+{
+ _Jv_InterpMethod *_this = (_Jv_InterpMethod *) __this;
- /** handle an exception */
- if ( find_exception (ex, inv) )
- goto next_segment;
+ jobject rcv = (jobject) args[0].ptr;
+ JvSynchronize mutex (rcv);
- return ex;
+ _this->run (ret, args);
}
-bool _Jv_InterpMethod::find_exception (jobject ex,
- _Jv_InterpMethodInvocation *inv)
+void
+_Jv_InterpMethod::run_class (ffi_cif *,
+ void* ret,
+ ffi_raw * args,
+ void* __this)
{
- int logical_pc = inv->pc - bytecode ();
- _Jv_InterpException *exc = exceptions ();
- jclass exc_class = ex->getClass ();
-
- for (int i = 0; i < exc_count; i++)
- {
- if (exc[i].start_pc <= logical_pc && logical_pc < exc[i].end_pc)
- {
- jclass handler;
-
- if (exc[i].handler_type != 0)
- handler = (_Jv_ResolvePoolEntry (defining_class,
- exc[i].handler_type)).clazz;
- else
- handler = NULL;
-
- if (handler==NULL || handler->isAssignableFrom (exc_class))
- {
- inv->pc = bytecode () + exc[i].handler_pc;
- inv->sp = inv->stack_base (); // reset stack
- (inv->sp++)->o = ex; // push exception
- return true;
- }
- }
- }
- return false;
+ _Jv_InterpMethod *_this = (_Jv_InterpMethod *) __this;
+ _Jv_InitClass (_this->defining_class);
+ _this->run (ret, args);
}
-void _Jv_InterpMethod::run_normal (ffi_cif* cif,
+void
+_Jv_InterpMethod::run_synch_class (ffi_cif *,
void* ret,
ffi_raw * args,
void* __this)
{
- _Jv_InterpMethod* _this = (_Jv_InterpMethod*)__this;
+ _Jv_InterpMethod *_this = (_Jv_InterpMethod *) __this;
- // we do the alloca of the method invocation here, to allow the method
- // "run" ro be inlined. Otherwise gcc will ignore the inline directive.
- int storage_size = _this->max_stack+_this->max_locals;
- _Jv_InterpMethodInvocation* inv = (_Jv_InterpMethodInvocation*)
- alloca (sizeof (_Jv_InterpMethodInvocation)
- + storage_size * sizeof (_Jv_word));
+ jclass sync = _this->defining_class;
+ _Jv_InitClass (sync);
+ JvSynchronize mutex (sync);
- jobject ex = _this->run (cif, ret, args, inv);
- if (ex != 0) _Jv_Throw (ex);
+ _this->run (ret, args);
}
-void _Jv_InterpMethod::run_synch_object (ffi_cif* cif,
- void* ret,
- ffi_raw * args,
- void* __this)
+#ifdef DIRECT_THREADED
+// "Compile" a method by turning it from bytecode to direct-threaded
+// code.
+void
+_Jv_InterpMethod::compile (const void * const *insn_targets)
{
- _Jv_InterpMethod* _this = (_Jv_InterpMethod*)__this;
- jobject rcv = (jobject)args[0].ptr;
+ insn_slot *insns = NULL;
+ int next = 0;
+ unsigned char *codestart = bytecode ();
+ unsigned char *end = codestart + code_length;
+ _Jv_word *pool_data = defining_class->constants.data;
+
+#define SET_ONE(Field, Value) \
+ do \
+ { \
+ if (first_pass) \
+ ++next; \
+ else \
+ insns[next++].Field = Value; \
+ } \
+ while (0)
+
+#define SET_INSN(Value) SET_ONE (insn, (void *) Value)
+#define SET_INT(Value) SET_ONE (int_val, Value)
+#define SET_DATUM(Value) SET_ONE (datum, Value)
+
+ // Map from bytecode PC to slot in INSNS.
+ int *pc_mapping = (int *) __builtin_alloca (sizeof (int) * code_length);
+ for (int i = 0; i < code_length; ++i)
+ pc_mapping[i] = -1;
+
+ for (int i = 0; i < 2; ++i)
+ {
+ jboolean first_pass = i == 0;
- int storage_size = _this->max_stack+_this->max_locals;
- _Jv_InterpMethodInvocation* inv = (_Jv_InterpMethodInvocation*)
- alloca (sizeof (_Jv_InterpMethodInvocation)
- + storage_size * sizeof (_Jv_word));
+ if (! first_pass)
+ {
+ insns = (insn_slot *) _Jv_AllocBytes (sizeof (insn_slot) * next);
+ next = 0;
+ }
- _Jv_MonitorEnter (rcv);
- jobject ex = _this->run (cif, ret, args, inv);
- _Jv_MonitorExit (rcv);
+ unsigned char *pc = codestart;
+ while (pc < end)
+ {
+ int base_pc_val = pc - codestart;
+ if (first_pass)
+ pc_mapping[base_pc_val] = next;
- if (ex != 0) _Jv_Throw (ex);
-}
+ java_opcode opcode = (java_opcode) *pc++;
+ // Just elide NOPs.
+ if (opcode == op_nop)
+ continue;
+ SET_INSN (insn_targets[opcode]);
-void _Jv_InterpMethod::run_synch_class (ffi_cif* cif,
- void* ret,
- ffi_raw * args,
- void* __this)
-{
- _Jv_InterpMethod* _this = (_Jv_InterpMethod*)__this;
- jclass sync = _this->defining_class;
+ switch (opcode)
+ {
+ case op_nop:
+ case op_aconst_null:
+ case op_iconst_m1:
+ case op_iconst_0:
+ case op_iconst_1:
+ case op_iconst_2:
+ case op_iconst_3:
+ case op_iconst_4:
+ case op_iconst_5:
+ case op_lconst_0:
+ case op_lconst_1:
+ case op_fconst_0:
+ case op_fconst_1:
+ case op_fconst_2:
+ case op_dconst_0:
+ case op_dconst_1:
+ case op_iload_0:
+ case op_iload_1:
+ case op_iload_2:
+ case op_iload_3:
+ case op_lload_0:
+ case op_lload_1:
+ case op_lload_2:
+ case op_lload_3:
+ case op_fload_0:
+ case op_fload_1:
+ case op_fload_2:
+ case op_fload_3:
+ case op_dload_0:
+ case op_dload_1:
+ case op_dload_2:
+ case op_dload_3:
+ case op_aload_0:
+ case op_aload_1:
+ case op_aload_2:
+ case op_aload_3:
+ case op_iaload:
+ case op_laload:
+ case op_faload:
+ case op_daload:
+ case op_aaload:
+ case op_baload:
+ case op_caload:
+ case op_saload:
+ case op_istore_0:
+ case op_istore_1:
+ case op_istore_2:
+ case op_istore_3:
+ case op_lstore_0:
+ case op_lstore_1:
+ case op_lstore_2:
+ case op_lstore_3:
+ case op_fstore_0:
+ case op_fstore_1:
+ case op_fstore_2:
+ case op_fstore_3:
+ case op_dstore_0:
+ case op_dstore_1:
+ case op_dstore_2:
+ case op_dstore_3:
+ case op_astore_0:
+ case op_astore_1:
+ case op_astore_2:
+ case op_astore_3:
+ case op_iastore:
+ case op_lastore:
+ case op_fastore:
+ case op_dastore:
+ case op_aastore:
+ case op_bastore:
+ case op_castore:
+ case op_sastore:
+ case op_pop:
+ case op_pop2:
+ case op_dup:
+ case op_dup_x1:
+ case op_dup_x2:
+ case op_dup2:
+ case op_dup2_x1:
+ case op_dup2_x2:
+ case op_swap:
+ case op_iadd:
+ case op_isub:
+ case op_imul:
+ case op_idiv:
+ case op_irem:
+ case op_ishl:
+ case op_ishr:
+ case op_iushr:
+ case op_iand:
+ case op_ior:
+ case op_ixor:
+ case op_ladd:
+ case op_lsub:
+ case op_lmul:
+ case op_ldiv:
+ case op_lrem:
+ case op_lshl:
+ case op_lshr:
+ case op_lushr:
+ case op_land:
+ case op_lor:
+ case op_lxor:
+ case op_fadd:
+ case op_fsub:
+ case op_fmul:
+ case op_fdiv:
+ case op_frem:
+ case op_dadd:
+ case op_dsub:
+ case op_dmul:
+ case op_ddiv:
+ case op_drem:
+ case op_ineg:
+ case op_i2b:
+ case op_i2c:
+ case op_i2s:
+ case op_lneg:
+ case op_fneg:
+ case op_dneg:
+ case op_i2l:
+ case op_i2f:
+ case op_i2d:
+ case op_l2i:
+ case op_l2f:
+ case op_l2d:
+ case op_f2i:
+ case op_f2l:
+ case op_f2d:
+ case op_d2i:
+ case op_d2l:
+ case op_d2f:
+ case op_lcmp:
+ case op_fcmpl:
+ case op_fcmpg:
+ case op_dcmpl:
+ case op_dcmpg:
+ case op_monitorenter:
+ case op_monitorexit:
+ case op_ireturn:
+ case op_lreturn:
+ case op_freturn:
+ case op_dreturn:
+ case op_areturn:
+ case op_return:
+ case op_athrow:
+ case op_arraylength:
+ // No argument, nothing else to do.
+ break;
+
+ case op_bipush:
+ SET_INT (get1s (pc));
+ ++pc;
+ break;
+
+ case op_ldc:
+ {
+ int index = get1u (pc);
+ ++pc;
+ SET_DATUM (pool_data[index].o);
+ }
+ break;
+
+ case op_ret:
+ case op_iload:
+ case op_lload:
+ case op_fload:
+ case op_dload:
+ case op_aload:
+ case op_istore:
+ case op_lstore:
+ case op_fstore:
+ case op_dstore:
+ case op_astore:
+ case op_newarray:
+ SET_INT (get1u (pc));
+ ++pc;
+ break;
+
+ case op_iinc:
+ SET_INT (get1u (pc));
+ SET_INT (get1s (pc + 1));
+ pc += 2;
+ break;
+
+ case op_ldc_w:
+ {
+ int index = get2u (pc);
+ pc += 2;
+ SET_DATUM (pool_data[index].o);
+ }
+ break;
+
+ case op_ldc2_w:
+ {
+ int index = get2u (pc);
+ pc += 2;
+ SET_DATUM (&pool_data[index]);
+ }
+ break;
+
+ case op_sipush:
+ SET_INT (get2s (pc));
+ pc += 2;
+ break;
+
+ case op_new:
+ case op_getstatic:
+ case op_getfield:
+ case op_putfield:
+ case op_putstatic:
+ case op_anewarray:
+ case op_instanceof:
+ case op_checkcast:
+ case op_invokespecial:
+ case op_invokestatic:
+ case op_invokevirtual:
+ SET_INT (get2u (pc));
+ pc += 2;
+ break;
+
+ case op_multianewarray:
+ SET_INT (get2u (pc));
+ SET_INT (get1u (pc + 2));
+ pc += 3;
+ break;
+
+ case op_jsr:
+ case op_ifeq:
+ case op_ifne:
+ case op_iflt:
+ case op_ifge:
+ case op_ifgt:
+ case op_ifle:
+ case op_if_icmpeq:
+ case op_if_icmpne:
+ case op_if_icmplt:
+ case op_if_icmpge:
+ case op_if_icmpgt:
+ case op_if_icmple:
+ case op_if_acmpeq:
+ case op_if_acmpne:
+ case op_ifnull:
+ case op_ifnonnull:
+ case op_goto:
+ {
+ int offset = get2s (pc);
+ pc += 2;
+
+ int new_pc = base_pc_val + offset;
+
+ bool orig_was_goto = opcode == op_goto;
+
+ // Thread jumps. We limit the loop count; this lets
+ // us avoid infinite loops if the bytecode contains
+ // such. `10' is arbitrary.
+ int count = 10;
+ while (codestart[new_pc] == op_goto && count-- > 0)
+ new_pc += get2s (&codestart[new_pc + 1]);
+
+ // If the jump takes us to a `return' instruction and
+ // the original branch was an unconditional goto, then
+ // we hoist the return.
+ opcode = (java_opcode) codestart[new_pc];
+ if (orig_was_goto
+ && (opcode == op_ireturn || opcode == op_lreturn
+ || opcode == op_freturn || opcode == op_dreturn
+ || opcode == op_areturn || opcode == op_return))
+ {
+ --next;
+ SET_INSN (insn_targets[opcode]);
+ }
+ else
+ SET_DATUM (&insns[pc_mapping[new_pc]]);
+ }
+ break;
- int storage_size = _this->max_stack+_this->max_locals;
- _Jv_InterpMethodInvocation* inv = (_Jv_InterpMethodInvocation*)
- alloca (sizeof (_Jv_InterpMethodInvocation)
- + storage_size * sizeof (_Jv_word));
+ case op_tableswitch:
+ {
+ while ((pc - codestart) % 4 != 0)
+ ++pc;
+
+ jint def = get4 (pc);
+ SET_DATUM (&insns[pc_mapping[base_pc_val + def]]);
+ pc += 4;
+
+ int low = get4 (pc);
+ SET_INT (low);
+ pc += 4;
+ int high = get4 (pc);
+ SET_INT (high);
+ pc += 4;
+
+ for (int i = low; i <= high; ++i)
+ {
+ SET_DATUM (&insns[pc_mapping[base_pc_val + get4 (pc)]]);
+ pc += 4;
+ }
+ }
+ break;
- _Jv_MonitorEnter (sync);
- jobject ex = _this->run (cif, ret, args, inv);
- _Jv_MonitorExit (sync);
+ case op_lookupswitch:
+ {
+ while ((pc - codestart) % 4 != 0)
+ ++pc;
+
+ jint def = get4 (pc);
+ SET_DATUM (&insns[pc_mapping[base_pc_val + def]]);
+ pc += 4;
+
+ jint npairs = get4 (pc);
+ pc += 4;
+ SET_INT (npairs);
+
+ while (npairs-- > 0)
+ {
+ jint match = get4 (pc);
+ jint offset = get4 (pc + 4);
+ SET_INT (match);
+ SET_DATUM (&insns[pc_mapping[base_pc_val + offset]]);
+ pc += 8;
+ }
+ }
+ break;
- if (ex != 0) _Jv_Throw (ex);
-}
+ case op_invokeinterface:
+ {
+ jint index = get2u (pc);
+ pc += 2;
+ // We ignore the next two bytes.
+ pc += 2;
+ SET_INT (index);
+ }
+ break;
-/* this is the exception handler hack, for the interpreter */
-void
-gnu::gcj::runtime::MethodInvocation::continue1 (gnu::gcj::RawData *meth,
- gnu::gcj::RawData *inv)
-{
- _Jv_InterpMethod *meth0 = (_Jv_InterpMethod*)meth;
- _Jv_InterpMethodInvocation *inv0 = (_Jv_InterpMethodInvocation*)inv;
- meth0->continue1 (inv0);
-}
+ case op_wide:
+ {
+ opcode = (java_opcode) get1u (pc);
+ pc += 1;
+ jint val = get2u (pc);
+ pc += 2;
+
+ // We implement narrow and wide instructions using the
+ // same code in the interpreter. So we rewrite the
+ // instruction slot here.
+ if (! first_pass)
+ insns[next - 1].insn = (void *) insn_targets[opcode];
+ SET_INT (val);
+
+ if (opcode == op_iinc)
+ {
+ SET_INT (get2s (pc));
+ pc += 2;
+ }
+ }
+ break;
+
+ case op_jsr_w:
+ case op_goto_w:
+ {
+ jint offset = get4 (pc);
+ pc += 4;
+ SET_DATUM (&insns[pc_mapping[base_pc_val + offset]]);
+ }
+ break;
+
+ // Some "can't happen" cases that we include for
+ // error-checking purposes.
+ case op_putfield_1:
+ case op_putfield_2:
+ case op_putfield_4:
+ case op_putfield_8:
+ case op_putfield_a:
+ case op_putstatic_1:
+ case op_putstatic_2:
+ case op_putstatic_4:
+ case op_putstatic_8:
+ case op_putstatic_a:
+ case op_getfield_1:
+ case op_getfield_2s:
+ case op_getfield_2u:
+ case op_getfield_4:
+ case op_getfield_8:
+ case op_getfield_a:
+ case op_getstatic_1:
+ case op_getstatic_2s:
+ case op_getstatic_2u:
+ case op_getstatic_4:
+ case op_getstatic_8:
+ case op_getstatic_a:
+ default:
+ // Fail somehow.
+ break;
+ }
+ }
+ }
-/*
- This proceeds execution, as designated in "inv". If an exception
- happens, then it is simply thrown, and handled in Java. Thus, the pc
- needs to be stored in the inv->pc at all times, so we can figure
- out which handler (if any) to invoke.
+ // Now update exceptions.
+ _Jv_InterpException *exc = exceptions ();
+ for (int i = 0; i < exc_count; ++i)
+ {
+ exc[i].start_pc.p = &insns[pc_mapping[exc[i].start_pc.i]];
+ exc[i].end_pc.p = &insns[pc_mapping[exc[i].end_pc.i]];
+ exc[i].handler_pc.p = &insns[pc_mapping[exc[i].handler_pc.i]];
+ jclass handler = (_Jv_ResolvePoolEntry (defining_class,
+ exc[i].handler_type.i)).clazz;
+ exc[i].handler_type.p = handler;
+ }
- One design issue, which I have not completely considered, is if it
- should be possible to have interpreted classes linked in! Seldom used
- (or non-critical) classes could reasonably be interpreted.
-*/
+ prepared = insns;
+}
+#endif /* DIRECT_THREADED */
+// These exist so that the stack-tracing code can find the boundaries
+// of the interpreter.
+void *_Jv_StartOfInterpreter;
+void *_Jv_EndOfInterpreter;
+extern "C" void *_Unwind_FindEnclosingFunction (void *pc);
-void _Jv_InterpMethod::continue1 (_Jv_InterpMethodInvocation *inv)
+void
+_Jv_InterpMethod::run (void *retp, ffi_raw *args)
{
using namespace java::lang::reflect;
- register _Jv_word *sp = inv->sp;
- register unsigned char *pc = inv->pc;
- _Jv_word *locals = inv->local_base ();
+ // Record the address of the start of this member function in
+ // _Jv_StartOfInterpreter. Such a write to a global variable
+ // without acquiring a lock is correct iff reads and writes of words
+ // in memory are atomic, but Java requires that anyway.
+ foo:
+ if (_Jv_StartOfInterpreter == NULL)
+ _Jv_StartOfInterpreter = _Unwind_FindEnclosingFunction (&&foo);
+
+ // FRAME_DESC registers this particular invocation as the top-most
+ // interpreter frame. This lets the stack tracing code (for
+ // Throwable) print information about the method being interpreted
+ // rather than about the interpreter itself. FRAME_DESC has a
+ // destructor so it cleans up automatically when the interpreter
+ // returns.
+ java::lang::Thread *thread = java::lang::Thread::currentThread();
+ _Jv_MethodChain frame_desc (this,
+ (_Jv_MethodChain **) &thread->interp_frame);
+
+ _Jv_word stack[max_stack];
+ _Jv_word *sp = stack;
+
+ _Jv_word locals[max_locals];
- _Jv_word *pool_data = defining_class->constants.data;
-
- /* these two are used in the invokeXXX instructions */
- void (*fun)(...);
+ /* Go straight at it! the ffi raw format matches the internal
+ stack representation exactly. At least, that's the idea.
+ */
+ memcpy ((void*) locals, (void*) args, args_raw_size);
+
+ _Jv_word *pool_data = defining_class->constants.data;
+
+ /* These three are temporaries for common code used by several
+ instructions. */
+ void (*fun)();
_Jv_ResolvedMethod* rmeth;
+ int tmpval;
#define INSN_LABEL(op) &&insn_##op
-#define GOTO_INSN(op) goto *(insn_target[op])
static const void *const insn_target[] =
{
INSN_LABEL(invokespecial),
INSN_LABEL(invokestatic),
INSN_LABEL(invokeinterface),
- 0, /* op_xxxunusedxxx1, */
+ 0, /* Unused. */
INSN_LABEL(new),
INSN_LABEL(newarray),
INSN_LABEL(anewarray),
INSN_LABEL(instanceof),
INSN_LABEL(monitorenter),
INSN_LABEL(monitorexit),
+#ifdef DIRECT_THREADED
+ 0, // wide
+#else
INSN_LABEL(wide),
+#endif
INSN_LABEL(multianewarray),
INSN_LABEL(ifnull),
INSN_LABEL(ifnonnull),
INSN_LABEL(goto_w),
INSN_LABEL(jsr_w),
-
- INSN_LABEL(putfield_1),
- INSN_LABEL(putfield_2),
- INSN_LABEL(putfield_4),
- INSN_LABEL(putfield_8),
- INSN_LABEL(putfield_a),
-
- INSN_LABEL(putstatic_1),
- INSN_LABEL(putstatic_2),
- INSN_LABEL(putstatic_4),
- INSN_LABEL(putstatic_8),
- INSN_LABEL(putstatic_a),
-
- INSN_LABEL(getfield_1),
- INSN_LABEL(getfield_2s),
- INSN_LABEL(getfield_2u),
- INSN_LABEL(getfield_4),
- INSN_LABEL(getfield_8),
- INSN_LABEL(getfield_a),
-
- INSN_LABEL(getstatic_1),
- INSN_LABEL(getstatic_2s),
- INSN_LABEL(getstatic_2u),
- INSN_LABEL(getstatic_4),
- INSN_LABEL(getstatic_8),
- INSN_LABEL(getstatic_a),
+ 0
};
-#define SAVE_PC inv->pc = pc-1
+ pc_t pc;
- /* If the macro INLINE_SWITCH is not defined, then the main loop
- operates as one big (normal) switch statement. If it is defined,
- then the case selection is performed `inline' in the end of the
- code for each case. The latter saves a native branch instruction
- for each java-instruction, but expands the code size somewhat.
+#ifdef DIRECT_THREADED
- NOTE: On i386 defining INLINE_SWITCH improves over all
- performance approximately seven percent, but it may be different
- for other machines. At some point, this may be made into a proper
- configuration parameter. */
+#define NEXT_INSN goto *((pc++)->insn)
+#define INTVAL() ((pc++)->int_val)
+#define AVAL() ((pc++)->datum)
-#define INLINE_SWITCH
+#define GET1S() INTVAL ()
+#define GET2S() INTVAL ()
+#define GET1U() INTVAL ()
+#define GET2U() INTVAL ()
+#define AVAL1U() AVAL ()
+#define AVAL2U() AVAL ()
+#define AVAL2UP() AVAL ()
+#define SKIP_GOTO ++pc
+#define GOTO_VAL() (insn_slot *) pc->datum
+#define PCVAL(unionval) unionval.p
+#define AMPAMP(label) &&label
-#ifdef INLINE_SWITCH
+ // Compile if we must. NOTE: Double-check locking.
+ if (prepared == NULL)
+ {
+ _Jv_MutexLock (&compile_mutex);
+ if (prepared == NULL)
+ compile (insn_target);
+ _Jv_MutexUnlock (&compile_mutex);
+ }
+ pc = (insn_slot *) prepared;
-#define NEXT_INSN GOTO_INSN(*pc++)
- NEXT_INSN;
#else
-#define NEXT_INSN goto next_insn
+#define NEXT_INSN goto *(insn_target[*pc++])
- next_insn:
- GOTO_INSN (*pc++);
+#define GET1S() get1s (pc++)
+#define GET2S() (pc += 2, get2s (pc- 2))
+#define GET1U() get1u (pc++)
+#define GET2U() (pc += 2, get2u (pc - 2))
+#define AVAL1U() ({ int index = get1u (pc++); pool_data[index].o; })
+#define AVAL2U() ({ int index = get2u (pc); pc += 2; pool_data[index].o; })
+#define AVAL2UP() ({ int index = get2u (pc); pc += 2; &pool_data[index]; })
+#define SKIP_GOTO pc += 2
+#define GOTO_VAL() pc - 1 + get2s (pc)
+#define PCVAL(unionval) unionval.i
+#define AMPAMP(label) NULL
-#endif
+ pc = bytecode ();
- /* The first few instructions here are ordered according to their
- frequency, in the hope that this will improve code locality a
- little. */
+#endif /* DIRECT_THREADED */
- insn_aload_0: // 0x2a
- LOADA(0);
- NEXT_INSN;
+#define TAKE_GOTO pc = GOTO_VAL ()
- insn_iload: // 0x15
- LOADI (get1u (pc++));
+ try
+ {
+ // We keep nop around. It is used if we're interpreting the
+ // bytecodes and not doing direct threading.
+ insn_nop:
NEXT_INSN;
- insn_getfield_4: // 0xd8
- SAVE_PC;
- {
- jobject obj = POPA();
- NULLCHECK(obj);
- jint field_offset = get2u (pc); pc += 2;
- PUSHI (*(jint*) ((char*)obj + field_offset));
- }
+ /* The first few instructions here are ordered according to their
+ frequency, in the hope that this will improve code locality a
+ little. */
+
+ insn_aload_0: // 0x2a
+ LOADA (0);
NEXT_INSN;
- insn_iload_1: // 0x1b
- LOADI (1);
+ insn_iload: // 0x15
+ LOADI (GET1U ());
NEXT_INSN;
- insn_getfield_a: // 0xda
- SAVE_PC;
- {
- jobject obj = POPA();
- NULLCHECK(obj);
- jint field_offset = get2u (pc); pc += 2;
- PUSHA(*(jobject*) ((char*)obj + field_offset));
- }
+ insn_iload_1: // 0x1b
+ LOADI (1);
NEXT_INSN;
- insn_invokevirtual: // 0xb6
- SAVE_PC;
+ insn_invokevirtual: // 0xb6
{
- int index = get2u (pc); pc += 2;
+ int index = GET2U ();
/* _Jv_ResolvePoolEntry returns immediately if the value already
* is resolved. If we want to clutter up the code here to gain
rmeth = (_Jv_ResolvePoolEntry (defining_class, index)).rmethod;
sp -= rmeth->stack_item_count;
- NULLCHECK(sp[0]);
+ // We don't use NULLCHECK here because we can't rely on that
+ // working if the method is final. So instead we do an
+ // explicit test.
+ if (! sp[0].o)
+ throw new java::lang::NullPointerException;
+
+ if (rmeth->vtable_index == -1)
+ {
+ // final methods do not appear in the vtable,
+ // if it does not appear in the superclass.
+ fun = (void (*)()) rmeth->method->ncode;
+ }
+ else
+ {
+ jobject rcv = sp[0].o;
+ _Jv_VTable *table = *(_Jv_VTable**) rcv;
+ fun = (void (*)()) table->get_method (rmeth->vtable_index);
+ }
+
+#ifdef DIRECT_THREADED
+ // Rewrite instruction so that we use a faster pre-resolved
+ // method.
+ pc[-2].insn = &&invokevirtual_resolved;
+ pc[-1].datum = rmeth;
+#endif /* DIRECT_THREADED */
+ }
+ goto perform_invoke;
+
+#ifdef DIRECT_THREADED
+ invokevirtual_resolved:
+ {
+ rmeth = (_Jv_ResolvedMethod *) AVAL ();
+ sp -= rmeth->stack_item_count;
+ // We don't use NULLCHECK here because we can't rely on that
+ // working if the method is final. So instead we do an
+ // explicit test.
+ if (! sp[0].o)
+ throw new java::lang::NullPointerException;
if (rmeth->vtable_index == -1)
{
// final methods do not appear in the vtable,
// if it does not appear in the superclass.
- fun = (void (*) (...)) rmeth->method->ncode;
+ fun = (void (*)()) rmeth->method->ncode;
}
else
{
jobject rcv = sp[0].o;
- _Jv_VTable *table = *(_Jv_VTable**)rcv;
- fun = (void (*) (...))table->method[rmeth->vtable_index];
+ _Jv_VTable *table = *(_Jv_VTable**) rcv;
+ fun = (void (*)()) table->get_method (rmeth->vtable_index);
}
}
goto perform_invoke;
+#endif /* DIRECT_THREADED */
- perform_invoke:
+ perform_invoke:
{
/* here goes the magic again... */
ffi_cif *cif = &rmeth->cif;
ffi_raw *raw = (ffi_raw*) sp;
- jdouble rvalue;
+ _Jv_value rvalue;
+#if FFI_NATIVE_RAW_API
+ /* We assume that this is only implemented if it's correct */
+ /* to use it here. On a 64 bit machine, it never is. */
ffi_raw_call (cif, fun, (void*)&rvalue, raw);
+#else
+ ffi_java_raw_call (cif, fun, (void*)&rvalue, raw);
+#endif
int rtype = cif->rtype->type;
* so those are checked before the switch */
if (rtype == FFI_TYPE_POINTER)
{
- PUSHA (*(jobject*)&rvalue);
+ PUSHA (rvalue.object_value);
}
else if (rtype == FFI_TYPE_SINT32)
{
- PUSHI (*(jint*)&rvalue);
+ PUSHI (rvalue.int_value);
}
else if (rtype == FFI_TYPE_VOID)
{
/* skip */
}
- else switch (rtype)
+ else
{
- case FFI_TYPE_SINT8:
- {
- jbyte value = (*(jint*)&rvalue) & 0xff;
- PUSHI (value);
- }
- break;
+ switch (rtype)
+ {
+ case FFI_TYPE_SINT8:
+ PUSHI ((jbyte)(rvalue.int_value & 0xff));
+ break;
- case FFI_TYPE_SINT16:
- {
- jshort value = (*(jint*)&rvalue) & 0xffff;
- PUSHI (value);
- }
- break;
+ case FFI_TYPE_SINT16:
+ PUSHI ((jshort)(rvalue.int_value & 0xffff));
+ break;
- case FFI_TYPE_UINT16:
- {
- jint value = (*(jint*)&rvalue) & 0xffff;
- PUSHI (value);
- }
- break;
+ case FFI_TYPE_UINT16:
+ PUSHI (rvalue.int_value & 0xffff);
+ break;
- case FFI_TYPE_FLOAT:
- PUSHF (*(jfloat*)&rvalue);
- break;
+ case FFI_TYPE_FLOAT:
+ PUSHF (rvalue.float_value);
+ break;
- case FFI_TYPE_DOUBLE:
- PUSHD (rvalue);
- break;
+ case FFI_TYPE_DOUBLE:
+ PUSHD (rvalue.double_value);
+ break;
- case FFI_TYPE_SINT64:
- PUSHL (*(jlong*)&rvalue);
- break;
+ case FFI_TYPE_SINT64:
+ PUSHL (rvalue.long_value);
+ break;
- default:
- throw_internal_error ("unknown return type in invokeXXX");
+ default:
+ throw_internal_error ("unknown return type in invokeXXX");
+ }
}
-
}
NEXT_INSN;
-
- insn_nop:
- NEXT_INSN;
-
- insn_aconst_null:
+ insn_aconst_null:
PUSHA (NULL);
NEXT_INSN;
- insn_iconst_m1:
+ insn_iconst_m1:
PUSHI (-1);
NEXT_INSN;
- insn_iconst_0:
+ insn_iconst_0:
PUSHI (0);
NEXT_INSN;
- insn_iconst_1:
+ insn_iconst_1:
PUSHI (1);
NEXT_INSN;
- insn_iconst_2:
+ insn_iconst_2:
PUSHI (2);
NEXT_INSN;
- insn_iconst_3:
+ insn_iconst_3:
PUSHI (3);
NEXT_INSN;
- insn_iconst_4:
+ insn_iconst_4:
PUSHI (4);
NEXT_INSN;
- insn_iconst_5:
+ insn_iconst_5:
PUSHI (5);
NEXT_INSN;
- insn_lconst_0:
+ insn_lconst_0:
PUSHL (0);
NEXT_INSN;
- insn_lconst_1:
+ insn_lconst_1:
PUSHL (1);
NEXT_INSN;
- insn_fconst_0:
+ insn_fconst_0:
PUSHF (0);
NEXT_INSN;
- insn_fconst_1:
+ insn_fconst_1:
PUSHF (1);
NEXT_INSN;
- insn_fconst_2:
+ insn_fconst_2:
PUSHF (2);
NEXT_INSN;
- insn_dconst_0:
+ insn_dconst_0:
PUSHD (0);
NEXT_INSN;
- insn_dconst_1:
+ insn_dconst_1:
PUSHD (1);
NEXT_INSN;
- insn_bipush:
- PUSHI (get1s(pc++));
+ insn_bipush:
+ // For direct threaded, bipush and sipush are the same.
+#ifndef DIRECT_THREADED
+ PUSHI (GET1S ());
NEXT_INSN;
-
- insn_sipush:
- PUSHI (get2s(pc)); pc += 2;
+#endif /* DIRECT_THREADED */
+ insn_sipush:
+ PUSHI (GET2S ());
NEXT_INSN;
- insn_ldc:
- {
- int index = get1u (pc++);
- PUSHA(pool_data[index].o);
- }
+ insn_ldc:
+ // For direct threaded, ldc and ldc_w are the same.
+#ifndef DIRECT_THREADED
+ PUSHA ((jobject) AVAL1U ());
NEXT_INSN;
-
- insn_ldc_w:
- {
- int index = get2u (pc); pc += 2;
- PUSHA(pool_data[index].o);
- }
+#endif /* DIRECT_THREADED */
+ insn_ldc_w:
+ PUSHA ((jobject) AVAL2U ());
NEXT_INSN;
- insn_ldc2_w:
+ insn_ldc2_w:
{
- int index = get2u (pc); pc += 2;
- memcpy (sp, &pool_data[index], 2*sizeof (_Jv_word));
+ void *where = AVAL2UP ();
+ memcpy (sp, where, 2*sizeof (_Jv_word));
sp += 2;
}
NEXT_INSN;
- insn_lload:
- LOADL (get1u (pc++));
+ insn_lload:
+ LOADL (GET1U ());
NEXT_INSN;
- insn_fload:
- LOADF (get1u (pc++));
+ insn_fload:
+ LOADF (GET1U ());
NEXT_INSN;
- insn_dload:
- LOADD (get1u (pc++));
+ insn_dload:
+ LOADD (GET1U ());
NEXT_INSN;
- insn_aload:
- LOADA (get1u (pc++));
+ insn_aload:
+ LOADA (GET1U ());
NEXT_INSN;
- insn_iload_0:
+ insn_iload_0:
LOADI (0);
NEXT_INSN;
- insn_iload_2:
+ insn_iload_2:
LOADI (2);
NEXT_INSN;
- insn_iload_3:
+ insn_iload_3:
LOADI (3);
NEXT_INSN;
- insn_lload_0:
+ insn_lload_0:
LOADL (0);
NEXT_INSN;
- insn_lload_1:
+ insn_lload_1:
LOADL (1);
NEXT_INSN;
- insn_lload_2:
+ insn_lload_2:
LOADL (2);
NEXT_INSN;
- insn_lload_3:
+ insn_lload_3:
LOADL (3);
NEXT_INSN;
- insn_fload_0:
+ insn_fload_0:
LOADF (0);
NEXT_INSN;
- insn_fload_1:
+ insn_fload_1:
LOADF (1);
NEXT_INSN;
- insn_fload_2:
+ insn_fload_2:
LOADF (2);
NEXT_INSN;
- insn_fload_3:
+ insn_fload_3:
LOADF (3);
NEXT_INSN;
- insn_dload_0:
+ insn_dload_0:
LOADD (0);
NEXT_INSN;
- insn_dload_1:
+ insn_dload_1:
LOADD (1);
NEXT_INSN;
- insn_dload_2:
+ insn_dload_2:
LOADD (2);
NEXT_INSN;
- insn_dload_3:
+ insn_dload_3:
LOADD (3);
NEXT_INSN;
- insn_aload_1:
+ insn_aload_1:
LOADA(1);
NEXT_INSN;
- insn_aload_2:
+ insn_aload_2:
LOADA(2);
NEXT_INSN;
- insn_aload_3:
+ insn_aload_3:
LOADA(3);
NEXT_INSN;
- insn_iaload:
- SAVE_PC;
+ insn_iaload:
{
jint index = POPI();
jintArray arr = (jintArray) POPA();
- NULLCHECK (arr);
- if (index < 0 || index >= arr->length)
- {
- _Jv_ThrowBadArrayIndex (index);
- }
+ NULLARRAYCHECK (arr);
+ ARRAYBOUNDSCHECK (arr, index);
PUSHI( elements(arr)[index] );
}
NEXT_INSN;
- insn_laload:
- SAVE_PC;
+ insn_laload:
{
jint index = POPI();
jlongArray arr = (jlongArray) POPA();
- NULLCHECK (arr);
- if (index < 0 || index >= arr->length)
- {
- _Jv_ThrowBadArrayIndex (index);
- }
+ NULLARRAYCHECK (arr);
+ ARRAYBOUNDSCHECK (arr, index);
PUSHL( elements(arr)[index] );
}
NEXT_INSN;
- insn_faload:
- SAVE_PC;
+ insn_faload:
{
jint index = POPI();
jfloatArray arr = (jfloatArray) POPA();
- NULLCHECK (arr);
- if (index < 0 || index >= arr->length)
- {
- _Jv_ThrowBadArrayIndex (index);
- }
+ NULLARRAYCHECK (arr);
+ ARRAYBOUNDSCHECK (arr, index);
PUSHF( elements(arr)[index] );
}
NEXT_INSN;
- insn_daload:
- SAVE_PC;
+ insn_daload:
{
jint index = POPI();
jdoubleArray arr = (jdoubleArray) POPA();
- NULLCHECK (arr);
- if (index < 0 || index >= arr->length)
- {
- _Jv_ThrowBadArrayIndex (index);
- }
+ NULLARRAYCHECK (arr);
+ ARRAYBOUNDSCHECK (arr, index);
PUSHD( elements(arr)[index] );
}
NEXT_INSN;
- insn_aaload:
- SAVE_PC;
+ insn_aaload:
{
jint index = POPI();
jobjectArray arr = (jobjectArray) POPA();
- NULLCHECK (arr);
- if (index < 0 || index >= arr->length)
- {
- _Jv_ThrowBadArrayIndex (index);
- }
+ NULLARRAYCHECK (arr);
+ ARRAYBOUNDSCHECK (arr, index);
PUSHA( elements(arr)[index] );
}
NEXT_INSN;
- insn_baload:
- SAVE_PC;
+ insn_baload:
{
jint index = POPI();
jbyteArray arr = (jbyteArray) POPA();
- NULLCHECK (arr);
- if (index < 0 || index >= arr->length)
- {
- _Jv_ThrowBadArrayIndex (index);
- }
+ NULLARRAYCHECK (arr);
+ ARRAYBOUNDSCHECK (arr, index);
PUSHI( elements(arr)[index] );
}
NEXT_INSN;
- insn_caload:
- SAVE_PC;
+ insn_caload:
{
jint index = POPI();
jcharArray arr = (jcharArray) POPA();
- NULLCHECK (arr);
- if (index < 0 || index >= arr->length)
- {
- _Jv_ThrowBadArrayIndex (index);
- }
+ NULLARRAYCHECK (arr);
+ ARRAYBOUNDSCHECK (arr, index);
PUSHI( elements(arr)[index] );
}
NEXT_INSN;
- insn_saload:
- SAVE_PC;
+ insn_saload:
{
jint index = POPI();
jshortArray arr = (jshortArray) POPA();
- NULLCHECK (arr);
- if (index < 0 || index >= arr->length)
- {
- _Jv_ThrowBadArrayIndex (index);
- }
+ NULLARRAYCHECK (arr);
+ ARRAYBOUNDSCHECK (arr, index);
PUSHI( elements(arr)[index] );
}
NEXT_INSN;
- insn_istore:
- STOREI (get1u (pc++));
+ insn_istore:
+ STOREI (GET1U ());
NEXT_INSN;
- insn_lstore:
- STOREL (get1u (pc++));
+ insn_lstore:
+ STOREL (GET1U ());
NEXT_INSN;
- insn_fstore:
- STOREF (get1u (pc++));
+ insn_fstore:
+ STOREF (GET1U ());
NEXT_INSN;
- insn_dstore:
- STORED (get1u (pc++));
+ insn_dstore:
+ STORED (GET1U ());
NEXT_INSN;
- insn_astore:
- STOREI (get1u (pc++));
+ insn_astore:
+ STOREA (GET1U ());
NEXT_INSN;
- insn_istore_0:
+ insn_istore_0:
STOREI (0);
NEXT_INSN;
- insn_istore_1:
+ insn_istore_1:
STOREI (1);
NEXT_INSN;
- insn_istore_2:
+ insn_istore_2:
STOREI (2);
NEXT_INSN;
- insn_istore_3:
+ insn_istore_3:
STOREI (3);
NEXT_INSN;
- insn_lstore_0:
+ insn_lstore_0:
STOREL (0);
NEXT_INSN;
- insn_lstore_1:
+ insn_lstore_1:
STOREL (1);
NEXT_INSN;
- insn_lstore_2:
+ insn_lstore_2:
STOREL (2);
NEXT_INSN;
- insn_lstore_3:
+ insn_lstore_3:
STOREL (3);
NEXT_INSN;
- insn_fstore_0:
+ insn_fstore_0:
STOREF (0);
NEXT_INSN;
- insn_fstore_1:
+ insn_fstore_1:
STOREF (1);
NEXT_INSN;
- insn_fstore_2:
+ insn_fstore_2:
STOREF (2);
NEXT_INSN;
- insn_fstore_3:
+ insn_fstore_3:
STOREF (3);
NEXT_INSN;
- insn_dstore_0:
+ insn_dstore_0:
STORED (0);
NEXT_INSN;
- insn_dstore_1:
+ insn_dstore_1:
STORED (1);
NEXT_INSN;
- insn_dstore_2:
+ insn_dstore_2:
STORED (2);
NEXT_INSN;
- insn_dstore_3:
+ insn_dstore_3:
STORED (3);
NEXT_INSN;
- insn_astore_0:
+ insn_astore_0:
STOREA(0);
NEXT_INSN;
- insn_astore_1:
+ insn_astore_1:
STOREA(1);
NEXT_INSN;
- insn_astore_2:
+ insn_astore_2:
STOREA(2);
NEXT_INSN;
- insn_astore_3:
+ insn_astore_3:
STOREA(3);
NEXT_INSN;
- insn_iastore:
- SAVE_PC;
+ insn_iastore:
{
jint value = POPI();
jint index = POPI();
jintArray arr = (jintArray) POPA();
- NULLCHECK (arr);
- if (index < 0 || index >= arr->length)
- {
- _Jv_ThrowBadArrayIndex (index);
- }
+ NULLARRAYCHECK (arr);
+ ARRAYBOUNDSCHECK (arr, index);
elements(arr)[index] = value;
}
NEXT_INSN;
- insn_lastore:
- SAVE_PC;
+ insn_lastore:
{
jlong value = POPL();
jint index = POPI();
jlongArray arr = (jlongArray) POPA();
- NULLCHECK (arr);
- if (index < 0 || index >= arr->length)
- {
- _Jv_ThrowBadArrayIndex (index);
- }
+ NULLARRAYCHECK (arr);
+ ARRAYBOUNDSCHECK (arr, index);
elements(arr)[index] = value;
}
NEXT_INSN;
- insn_fastore:
- SAVE_PC;
+ insn_fastore:
{
jfloat value = POPF();
jint index = POPI();
jfloatArray arr = (jfloatArray) POPA();
- NULLCHECK (arr);
- if (index < 0 || index >= arr->length)
- {
- _Jv_ThrowBadArrayIndex (index);
- }
+ NULLARRAYCHECK (arr);
+ ARRAYBOUNDSCHECK (arr, index);
elements(arr)[index] = value;
}
NEXT_INSN;
- insn_dastore:
- SAVE_PC;
+ insn_dastore:
{
jdouble value = POPD();
jint index = POPI();
jdoubleArray arr = (jdoubleArray) POPA();
- NULLCHECK (arr);
- if (index < 0 || index >= arr->length)
- {
- _Jv_ThrowBadArrayIndex (index);
- }
+ NULLARRAYCHECK (arr);
+ ARRAYBOUNDSCHECK (arr, index);
elements(arr)[index] = value;
}
NEXT_INSN;
- insn_aastore:
- SAVE_PC;
+ insn_aastore:
{
jobject value = POPA();
jint index = POPI();
jobjectArray arr = (jobjectArray) POPA();
- NULLCHECK (arr);
- if (index < 0 || index >= arr->length)
- {
- _Jv_ThrowBadArrayIndex (index);
- }
+ NULLARRAYCHECK (arr);
+ ARRAYBOUNDSCHECK (arr, index);
_Jv_CheckArrayStore (arr, value);
elements(arr)[index] = value;
}
NEXT_INSN;
- insn_bastore:
- SAVE_PC;
+ insn_bastore:
{
jbyte value = (jbyte) POPI();
jint index = POPI();
jbyteArray arr = (jbyteArray) POPA();
- NULLCHECK (arr);
- if (index < 0 || index >= arr->length)
- {
- _Jv_ThrowBadArrayIndex (index);
- }
+ NULLARRAYCHECK (arr);
+ ARRAYBOUNDSCHECK (arr, index);
elements(arr)[index] = value;
}
NEXT_INSN;
- insn_castore:
- SAVE_PC;
+ insn_castore:
{
jchar value = (jchar) POPI();
jint index = POPI();
jcharArray arr = (jcharArray) POPA();
- NULLCHECK (arr);
- if (index < 0 || index >= arr->length)
- {
- _Jv_ThrowBadArrayIndex (index);
- }
+ NULLARRAYCHECK (arr);
+ ARRAYBOUNDSCHECK (arr, index);
elements(arr)[index] = value;
}
NEXT_INSN;
- insn_sastore:
- SAVE_PC;
+ insn_sastore:
{
jshort value = (jshort) POPI();
jint index = POPI();
jshortArray arr = (jshortArray) POPA();
- NULLCHECK (arr);
- if (index < 0 || index >= arr->length)
- {
- _Jv_ThrowBadArrayIndex (index);
- }
+ NULLARRAYCHECK (arr);
+ ARRAYBOUNDSCHECK (arr, index);
elements(arr)[index] = value;
}
NEXT_INSN;
- insn_pop:
+ insn_pop:
sp -= 1;
NEXT_INSN;
- insn_pop2:
+ insn_pop2:
sp -= 2;
NEXT_INSN;
- insn_dup:
+ insn_dup:
sp[0] = sp[-1];
sp += 1;
NEXT_INSN;
- insn_dup_x1:
+ insn_dup_x1:
dupx (sp, 1, 1); sp+=1;
NEXT_INSN;
- insn_dup_x2:
+ insn_dup_x2:
dupx (sp, 1, 2); sp+=1;
NEXT_INSN;
- insn_dup2:
+ insn_dup2:
sp[0] = sp[-2];
sp[1] = sp[-1];
sp += 2;
NEXT_INSN;
- insn_dup2_x1:
+ insn_dup2_x1:
dupx (sp, 2, 1); sp+=2;
NEXT_INSN;
- insn_dup2_x2:
+ insn_dup2_x2:
dupx (sp, 2, 2); sp+=2;
NEXT_INSN;
- insn_swap:
+ insn_swap:
{
jobject tmp1 = POPA();
jobject tmp2 = POPA();
}
NEXT_INSN;
- insn_iadd:
+ insn_iadd:
BINOPI(+);
NEXT_INSN;
- insn_ladd:
+ insn_ladd:
BINOPL(+);
NEXT_INSN;
- insn_fadd:
+ insn_fadd:
BINOPF(+);
NEXT_INSN;
- insn_dadd:
+ insn_dadd:
BINOPD(+);
NEXT_INSN;
- insn_isub:
+ insn_isub:
BINOPI(-);
NEXT_INSN;
- insn_lsub:
+ insn_lsub:
BINOPL(-);
NEXT_INSN;
- insn_fsub:
+ insn_fsub:
BINOPF(-);
NEXT_INSN;
- insn_dsub:
+ insn_dsub:
BINOPD(-);
NEXT_INSN;
- insn_imul:
+ insn_imul:
BINOPI(*);
NEXT_INSN;
- insn_lmul:
+ insn_lmul:
BINOPL(*);
NEXT_INSN;
- insn_fmul:
+ insn_fmul:
BINOPF(*);
NEXT_INSN;
- insn_dmul:
+ insn_dmul:
BINOPD(*);
NEXT_INSN;
- insn_idiv:
- SAVE_PC;
+ insn_idiv:
{
jint value2 = POPI();
jint value1 = POPI();
- ZEROCHECK (value2);
- jint res = value1 / value2;
+ jint res = _Jv_divI (value1, value2);
PUSHI (res);
}
NEXT_INSN;
- insn_ldiv:
- SAVE_PC;
+ insn_ldiv:
{
jlong value2 = POPL();
jlong value1 = POPL();
- ZEROCHECK (value2);
- jlong res = value1 / value2;
+ jlong res = _Jv_divJ (value1, value2);
PUSHL (res);
}
NEXT_INSN;
- insn_fdiv:
- SAVE_PC;
+ insn_fdiv:
{
jfloat value2 = POPF();
jfloat value1 = POPF();
- ZEROCHECK (value2);
jfloat res = value1 / value2;
PUSHF (res);
}
NEXT_INSN;
- insn_ddiv:
- SAVE_PC;
+ insn_ddiv:
{
jdouble value2 = POPD();
jdouble value1 = POPD();
- ZEROCHECK (value2);
jdouble res = value1 / value2;
PUSHD (res);
}
NEXT_INSN;
- insn_irem:
- SAVE_PC;
+ insn_irem:
{
jint value2 = POPI();
- jint value1 = POPI();
- ZEROCHECK (value2);
- jint res = value1 % value2;
+ jint value1 = POPI();
+ jint res = _Jv_remI (value1, value2);
PUSHI (res);
}
NEXT_INSN;
- insn_lrem:
- SAVE_PC;
+ insn_lrem:
{
jlong value2 = POPL();
jlong value1 = POPL();
- ZEROCHECK (value2);
- jlong res = value1 % value2;
+ jlong res = _Jv_remJ (value1, value2);
PUSHL (res);
}
NEXT_INSN;
- insn_frem:
- SAVE_PC;
+ insn_frem:
{
jfloat value2 = POPF();
jfloat value1 = POPF();
- ZEROCHECK (value2);
jfloat res = __ieee754_fmod (value1, value2);
PUSHF (res);
}
NEXT_INSN;
- insn_drem:
- SAVE_PC;
+ insn_drem:
{
jdouble value2 = POPD();
jdouble value1 = POPD();
- ZEROCHECK (value2);
jdouble res = __ieee754_fmod (value1, value2);
PUSHD (res);
}
NEXT_INSN;
- insn_ineg:
+ insn_ineg:
{
jint value = POPI();
PUSHI (value * -1);
}
NEXT_INSN;
- insn_lneg:
+ insn_lneg:
{
jlong value = POPL();
PUSHL (value * -1);
}
NEXT_INSN;
- insn_fneg:
+ insn_fneg:
{
jfloat value = POPF();
PUSHF (value * -1);
}
NEXT_INSN;
- insn_dneg:
+ insn_dneg:
{
jdouble value = POPD();
PUSHD (value * -1);
}
NEXT_INSN;
- insn_ishl:
+ insn_ishl:
{
jint shift = (POPI() & 0x1f);
jint value = POPI();
}
NEXT_INSN;
- insn_lshl:
+ insn_lshl:
{
jint shift = (POPI() & 0x3f);
jlong value = POPL();
}
NEXT_INSN;
- insn_ishr:
+ insn_ishr:
{
jint shift = (POPI() & 0x1f);
jint value = POPI();
}
NEXT_INSN;
- insn_lshr:
+ insn_lshr:
{
jint shift = (POPI() & 0x3f);
jlong value = POPL();
}
NEXT_INSN;
- insn_iushr:
+ insn_iushr:
{
jint shift = (POPI() & 0x1f);
- unsigned long value = POPI();
+ _Jv_uint value = (_Jv_uint) POPI();
PUSHI ((jint) (value >> shift));
}
NEXT_INSN;
- insn_lushr:
+ insn_lushr:
{
jint shift = (POPI() & 0x3f);
- UINT64 value = (UINT64) POPL();
- PUSHL ((value >> shift));
+ _Jv_ulong value = (_Jv_ulong) POPL();
+ PUSHL ((jlong) (value >> shift));
}
NEXT_INSN;
- insn_iand:
+ insn_iand:
BINOPI (&);
NEXT_INSN;
- insn_land:
+ insn_land:
BINOPL (&);
NEXT_INSN;
- insn_ior:
+ insn_ior:
BINOPI (|);
NEXT_INSN;
- insn_lor:
+ insn_lor:
BINOPL (|);
NEXT_INSN;
- insn_ixor:
+ insn_ixor:
BINOPI (^);
NEXT_INSN;
- insn_lxor:
+ insn_lxor:
BINOPL (^);
NEXT_INSN;
- insn_iinc:
+ insn_iinc:
{
- jint index = get1u (pc++);
- jint amount = get1s (pc++);
+ jint index = GET1U ();
+ jint amount = GET1S ();
locals[index].i += amount;
}
NEXT_INSN;
- insn_i2l:
+ insn_i2l:
{jlong value = POPI(); PUSHL (value);}
NEXT_INSN;
- insn_i2f:
+ insn_i2f:
{jfloat value = POPI(); PUSHF (value);}
NEXT_INSN;
- insn_i2d:
+ insn_i2d:
{jdouble value = POPI(); PUSHD (value);}
NEXT_INSN;
- insn_l2i:
+ insn_l2i:
{jint value = POPL(); PUSHI (value);}
NEXT_INSN;
- insn_l2f:
+ insn_l2f:
{jfloat value = POPL(); PUSHF (value);}
NEXT_INSN;
- insn_l2d:
+ insn_l2d:
{jdouble value = POPL(); PUSHD (value);}
NEXT_INSN;
- insn_f2i:
- { jint value = (jint)POPF (); PUSHI(value); }
+ insn_f2i:
+ {
+ using namespace java::lang;
+ jint value = convert (POPF (), Integer::MIN_VALUE, Integer::MAX_VALUE);
+ PUSHI(value);
+ }
NEXT_INSN;
- insn_f2l:
- { jlong value = (jlong)POPF (); PUSHL(value); }
+ insn_f2l:
+ {
+ using namespace java::lang;
+ jlong value = convert (POPF (), Long::MIN_VALUE, Long::MAX_VALUE);
+ PUSHL(value);
+ }
NEXT_INSN;
- insn_f2d:
+ insn_f2d:
{ jdouble value = POPF (); PUSHD(value); }
NEXT_INSN;
- insn_d2i:
- { jint value = (jint)POPD (); PUSHI(value); }
+ insn_d2i:
+ {
+ using namespace java::lang;
+ jint value = convert (POPD (), Integer::MIN_VALUE, Integer::MAX_VALUE);
+ PUSHI(value);
+ }
NEXT_INSN;
- insn_d2l:
- { jlong value = (jlong)POPD (); PUSHL(value); }
+ insn_d2l:
+ {
+ using namespace java::lang;
+ jlong value = convert (POPD (), Long::MIN_VALUE, Long::MAX_VALUE);
+ PUSHL(value);
+ }
NEXT_INSN;
- insn_d2f:
+ insn_d2f:
{ jfloat value = POPD (); PUSHF(value); }
NEXT_INSN;
- insn_i2b:
+ insn_i2b:
{ jbyte value = POPI (); PUSHI(value); }
NEXT_INSN;
- insn_i2c:
+ insn_i2c:
{ jchar value = POPI (); PUSHI(value); }
NEXT_INSN;
- insn_i2s:
+ insn_i2s:
{ jshort value = POPI (); PUSHI(value); }
NEXT_INSN;
- insn_lcmp:
+ insn_lcmp:
{
jlong value2 = POPL ();
jlong value1 = POPL ();
}
NEXT_INSN;
- insn_fcmpl:
- insn_fcmpg:
+ insn_fcmpl:
+ tmpval = -1;
+ goto fcmp;
+
+ insn_fcmpg:
+ tmpval = 1;
+
+ fcmp:
{
jfloat value2 = POPF ();
jfloat value1 = POPF ();
PUSHI (0);
else if (value1 < value2)
PUSHI (-1);
- else if ((*(pc-1)) == op_fcmpg)
- PUSHI (1);
else
- PUSHI (-1);
+ PUSHI (tmpval);
}
NEXT_INSN;
- insn_dcmpl:
- insn_dcmpg:
+ insn_dcmpl:
+ tmpval = 1;
+ goto dcmp;
+
+ insn_dcmpg:
+ tmpval = -1;
+
+ dcmp:
{
jdouble value2 = POPD ();
jdouble value1 = POPD ();
PUSHI (0);
else if (value1 < value2)
PUSHI (-1);
- else if ((*(pc-1)) == op_dcmpg)
- PUSHI (1);
else
- PUSHI (-1);
+ PUSHI (tmpval);
}
NEXT_INSN;
- insn_ifeq:
+ insn_ifeq:
{
- jint offset = get2s (pc);
if (POPI() == 0)
- pc = pc-1+offset;
+ TAKE_GOTO;
else
- pc = pc+2;
+ SKIP_GOTO;
}
NEXT_INSN;
- insn_ifne:
+ insn_ifne:
{
- jint offset = get2s (pc);
if (POPI() != 0)
- pc = pc-1+offset;
+ TAKE_GOTO;
else
- pc = pc+2;
+ SKIP_GOTO;
}
NEXT_INSN;
- insn_iflt:
+ insn_iflt:
{
- jint offset = get2s (pc);
if (POPI() < 0)
- pc = pc-1+offset;
+ TAKE_GOTO;
else
- pc = pc+2;
+ SKIP_GOTO;
}
NEXT_INSN;
- insn_ifge:
+ insn_ifge:
{
- jint offset = get2s (pc);
if (POPI() >= 0)
- pc = pc-1+offset;
+ TAKE_GOTO;
else
- pc = pc+2;
+ SKIP_GOTO;
}
NEXT_INSN;
- insn_ifgt:
+ insn_ifgt:
{
- jint offset = get2s (pc);
if (POPI() > 0)
- pc = pc-1+offset;
+ TAKE_GOTO;
else
- pc = pc+2;
+ SKIP_GOTO;
}
NEXT_INSN;
- insn_ifle:
+ insn_ifle:
{
- jint offset = get2s (pc);
if (POPI() <= 0)
- pc = pc-1+offset;
+ TAKE_GOTO;
else
- pc = pc+2;
+ SKIP_GOTO;
}
NEXT_INSN;
- insn_if_icmpeq:
+ insn_if_icmpeq:
{
- jint offset = get2s (pc);
jint value2 = POPI();
jint value1 = POPI();
if (value1 == value2)
- pc = pc-1+offset;
+ TAKE_GOTO;
else
- pc = pc+2;
+ SKIP_GOTO;
}
NEXT_INSN;
- insn_if_icmpne:
+ insn_if_icmpne:
{
- jint offset = get2s (pc);
jint value2 = POPI();
jint value1 = POPI();
if (value1 != value2)
- pc = pc-1+offset;
+ TAKE_GOTO;
else
- pc = pc+2;
+ SKIP_GOTO;
}
NEXT_INSN;
- insn_if_icmplt:
+ insn_if_icmplt:
{
- jint offset = get2s (pc);
jint value2 = POPI();
jint value1 = POPI();
if (value1 < value2)
- pc = pc-1+offset;
+ TAKE_GOTO;
else
- pc = pc+2;
+ SKIP_GOTO;
}
NEXT_INSN;
- insn_if_icmpge:
+ insn_if_icmpge:
{
- jint offset = get2s (pc);
jint value2 = POPI();
jint value1 = POPI();
if (value1 >= value2)
- pc = pc-1+offset;
+ TAKE_GOTO;
else
- pc = pc+2;
+ SKIP_GOTO;
}
NEXT_INSN;
- insn_if_icmpgt:
+ insn_if_icmpgt:
{
- jint offset = get2s (pc);
jint value2 = POPI();
jint value1 = POPI();
if (value1 > value2)
- pc = pc-1+offset;
+ TAKE_GOTO;
else
- pc = pc+2;
+ SKIP_GOTO;
}
NEXT_INSN;
- insn_if_icmple:
+ insn_if_icmple:
{
- jint offset = get2s (pc);
jint value2 = POPI();
jint value1 = POPI();
if (value1 <= value2)
- pc = pc-1+offset;
+ TAKE_GOTO;
else
- pc = pc+2;
+ SKIP_GOTO;
}
NEXT_INSN;
- insn_if_acmpeq:
+ insn_if_acmpeq:
{
- jint offset = get2s (pc);
jobject value2 = POPA();
jobject value1 = POPA();
if (value1 == value2)
- pc = pc-1+offset;
+ TAKE_GOTO;
else
- pc = pc+2;
+ SKIP_GOTO;
}
NEXT_INSN;
- insn_if_acmpne:
+ insn_if_acmpne:
{
- jint offset = get2s (pc);
jobject value2 = POPA();
jobject value1 = POPA();
if (value1 != value2)
- pc = pc-1+offset;
+ TAKE_GOTO;
else
- pc = pc+2;
+ SKIP_GOTO;
}
NEXT_INSN;
- insn_goto:
+ insn_goto_w:
+#ifndef DIRECT_THREADED
+ // For direct threaded, goto and goto_w are the same.
+ pc = pc - 1 + get4 (pc);
+ NEXT_INSN;
+#endif /* DIRECT_THREADED */
+ insn_goto:
+ TAKE_GOTO;
+ NEXT_INSN;
+
+ insn_jsr_w:
+#ifndef DIRECT_THREADED
+ // For direct threaded, jsr and jsr_w are the same.
{
- jint offset = get2s (pc);
- pc = pc-1+offset;
+ pc_t next = pc - 1 + get4 (pc);
+ pc += 4;
+ PUSHA ((jobject) pc);
+ pc = next;
}
NEXT_INSN;
-
- insn_jsr:
+#endif /* DIRECT_THREADED */
+ insn_jsr:
{
- unsigned char *base_pc = pc-1;
- jint offset = get2s (pc); pc += 2;
- PUSHA ((jobject)pc);
- pc = base_pc+offset;
+ pc_t next = GOTO_VAL();
+ SKIP_GOTO;
+ PUSHA ((jobject) pc);
+ pc = next;
}
NEXT_INSN;
- insn_ret:
+ insn_ret:
{
- jint index = get1u (pc);
- pc = (unsigned char*) PEEKA (index);
+ jint index = GET1U ();
+ pc = (pc_t) PEEKA (index);
}
NEXT_INSN;
- insn_tableswitch:
+ insn_tableswitch:
{
- unsigned char *base_pc = pc-1;
+#ifdef DIRECT_THREADED
+ void *def = (pc++)->datum;
+
int index = POPI();
- unsigned char* base = bytecode ();
- while ((pc-base) % 4 != 0)
- pc++;
+ jint low = INTVAL ();
+ jint high = INTVAL ();
- jint def = get4 (pc);
- jint low = get4 (pc+4);
- jint high = get4 (pc+8);
+ if (index < low || index > high)
+ pc = (insn_slot *) def;
+ else
+ pc = (insn_slot *) ((pc + index - low)->datum);
+#else
+ pc_t base_pc = pc - 1;
+ int index = POPI ();
+
+ pc_t base = (pc_t) bytecode ();
+ while ((pc - base) % 4 != 0)
+ ++pc;
+ jint def = get4 (pc);
+ jint low = get4 (pc + 4);
+ jint high = get4 (pc + 8);
if (index < low || index > high)
- pc = base_pc + def;
+ pc = base_pc + def;
else
- pc = base_pc + get4 (pc+4*(index-low+3));
+ pc = base_pc + get4 (pc + 4 * (index - low + 3));
+#endif /* DIRECT_THREADED */
}
NEXT_INSN;
- insn_lookupswitch:
+ insn_lookupswitch:
{
- unsigned char *base_pc = pc-1;
- int index = POPI();
+#ifdef DIRECT_THREADED
+ void *def = (pc++)->insn;
- unsigned char* base = bytecode ();
- while ((pc-base) % 4 != 0)
- pc++;
+ int index = POPI();
- jint def = get4 (pc);
- jint npairs = get4 (pc+4);
+ jint npairs = INTVAL ();
- int max = npairs-1;
+ int max = npairs - 1;
int min = 0;
- // simple binary search...
+ // Simple binary search...
while (min < max)
{
- int half = (min+max)/2;
- int match = get4 (pc+ 4*(2 + 2*half));
+ int half = (min + max) / 2;
+ int match = pc[2 * half].int_val;
if (index == match)
- min = max = half;
-
+ {
+ // Found it.
+ pc = (insn_slot *) pc[2 * half + 1].datum;
+ NEXT_INSN;
+ }
else if (index < match)
- max = half-1;
-
+ // We can use HALF - 1 here because we check again on
+ // loop exit.
+ max = half - 1;
else
- min = half+1;
+ // We can use HALF + 1 here because we check again on
+ // loop exit.
+ min = half + 1;
+ }
+ if (index == pc[2 * min].int_val)
+ pc = (insn_slot *) pc[2 * min + 1].datum;
+ else
+ pc = (insn_slot *) def;
+#else
+ unsigned char *base_pc = pc-1;
+ int index = POPI();
+
+ unsigned char* base = bytecode ();
+ while ((pc-base) % 4 != 0)
+ ++pc;
+
+ jint def = get4 (pc);
+ jint npairs = get4 (pc+4);
+
+ int max = npairs-1;
+ int min = 0;
+
+ // Simple binary search...
+ while (min < max)
+ {
+ int half = (min+max)/2;
+ int match = get4 (pc+ 4*(2 + 2*half));
+
+ if (index == match)
+ min = max = half;
+ else if (index < match)
+ // We can use HALF - 1 here because we check again on
+ // loop exit.
+ max = half - 1;
+ else
+ // We can use HALF + 1 here because we check again on
+ // loop exit.
+ min = half + 1;
}
if (index == get4 (pc+ 4*(2 + 2*min)))
pc = base_pc + get4 (pc+ 4*(2 + 2*min + 1));
else
pc = base_pc + def;
+#endif /* DIRECT_THREADED */
}
NEXT_INSN;
- /* on return, just save the sp and return to caller */
- insn_ireturn:
- insn_lreturn:
- insn_freturn:
- insn_dreturn:
- insn_areturn:
- insn_return:
- inv->sp = sp;
+ insn_areturn:
+ *(jobject *) retp = POPA ();
+ return;
+
+ insn_lreturn:
+ *(jlong *) retp = POPL ();
+ return;
+
+ insn_freturn:
+ *(jfloat *) retp = POPF ();
+ return;
+
+ insn_dreturn:
+ *(jdouble *) retp = POPD ();
+ return;
+
+ insn_ireturn:
+ *(jint *) retp = POPI ();
return;
- insn_getstatic:
- SAVE_PC;
+ insn_return:
+ return;
+
+ insn_getstatic:
{
- unsigned char *base_pc = pc-1;
- jint fieldref_index = get2u (pc); pc += 2;
+ jint fieldref_index = GET2U ();
_Jv_ResolvePoolEntry (defining_class, fieldref_index);
_Jv_Field *field = pool_data[fieldref_index].field;
jclass type = field->type;
+ // We rewrite the instruction once we discover what it refers
+ // to.
+ void *newinsn = NULL;
if (type->isPrimitive ())
{
switch (type->size_in_bytes)
{
case 1:
- *base_pc = op_getstatic_1;
+ PUSHI (*field->u.byte_addr);
+ newinsn = AMPAMP (getstatic_resolved_1);
break;
case 2:
if (type == JvPrimClass (char))
- *base_pc = op_getstatic_2u;
+ {
+ PUSHI (*field->u.char_addr);
+ newinsn = AMPAMP (getstatic_resolved_char);
+ }
else
- *base_pc = op_getstatic_2s;
+ {
+ PUSHI (*field->u.short_addr);
+ newinsn = AMPAMP (getstatic_resolved_short);
+ }
break;
case 4:
- *base_pc = op_getstatic_4;
+ PUSHI(*field->u.int_addr);
+ newinsn = AMPAMP (getstatic_resolved_4);
break;
case 8:
- *base_pc = op_getstatic_8;
+ PUSHL(*field->u.long_addr);
+ newinsn = AMPAMP (getstatic_resolved_8);
break;
}
}
else
{
- *base_pc = op_getstatic_a;
+ PUSHA(*field->u.object_addr);
+ newinsn = AMPAMP (getstatic_resolved_obj);
}
- pc = base_pc;
+#ifdef DIRECT_THREADED
+ pc[-2].insn = newinsn;
+ pc[-1].datum = field->u.addr;
+#endif /* DIRECT_THREADED */
}
NEXT_INSN;
- insn_getfield:
- SAVE_PC;
+#ifdef DIRECT_THREADED
+ getstatic_resolved_1:
+ PUSHI (*(jbyte *) AVAL ());
+ NEXT_INSN;
+
+ getstatic_resolved_char:
+ PUSHI (*(jchar *) AVAL ());
+ NEXT_INSN;
+
+ getstatic_resolved_short:
+ PUSHI (*(jshort *) AVAL ());
+ NEXT_INSN;
+
+ getstatic_resolved_4:
+ PUSHI (*(jint *) AVAL ());
+ NEXT_INSN;
+
+ getstatic_resolved_8:
+ PUSHL (*(jlong *) AVAL ());
+ NEXT_INSN;
+
+ getstatic_resolved_obj:
+ PUSHA (*(jobject *) AVAL ());
+ NEXT_INSN;
+#endif /* DIRECT_THREADED */
+
+ insn_getfield:
{
- unsigned char *base_pc = pc-1;
- jint fieldref_index = get2u (pc); pc += 2;
+ jint fieldref_index = GET2U ();
_Jv_ResolvePoolEntry (defining_class, fieldref_index);
_Jv_Field *field = pool_data[fieldref_index].field;
(JvNewStringLatin1 ("field is static"));
jclass type = field->type;
+ jint field_offset = field->u.boffset;
+ if (field_offset > 0xffff)
+ throw new java::lang::VirtualMachineError;
+ jobject obj = POPA();
+ NULLCHECK(obj);
+
+ void *newinsn = NULL;
+ _Jv_value *val = (_Jv_value *) ((char *)obj + field_offset);
if (type->isPrimitive ())
{
switch (type->size_in_bytes)
{
case 1:
- *base_pc = op_getfield_1;
+ PUSHI (val->byte_value);
+ newinsn = AMPAMP (getfield_resolved_1);
break;
case 2:
if (type == JvPrimClass (char))
- *base_pc = op_getfield_2u;
+ {
+ PUSHI (val->char_value);
+ newinsn = AMPAMP (getfield_resolved_char);
+ }
else
- *base_pc = op_getfield_2s;
+ {
+ PUSHI (val->short_value);
+ newinsn = AMPAMP (getfield_resolved_short);
+ }
break;
case 4:
- *base_pc = op_getfield_4;
+ PUSHI (val->int_value);
+ newinsn = AMPAMP (getfield_resolved_4);
break;
case 8:
- *base_pc = op_getfield_8;
+ PUSHL (val->long_value);
+ newinsn = AMPAMP (getfield_resolved_8);
break;
}
}
else
{
- *base_pc = op_getfield_a;
+ PUSHA (val->object_value);
+ newinsn = AMPAMP (getfield_resolved_obj);
}
- if (field->u.boffset > 0xffff)
- JvThrow (new java::lang::VirtualMachineError);
+#ifdef DIRECT_THREADED
+ pc[-2].insn = newinsn;
+ pc[-1].int_val = field_offset;
+#endif /* DIRECT_THREADED */
+ }
+ NEXT_INSN;
+
+#ifdef DIRECT_THREADED
+ getfield_resolved_1:
+ {
+ char *obj = (char *) POPA ();
+ NULLCHECK (obj);
+ PUSHI (*(jbyte *) (obj + INTVAL ()));
+ }
+ NEXT_INSN;
+
+ getfield_resolved_char:
+ {
+ char *obj = (char *) POPA ();
+ NULLCHECK (obj);
+ PUSHI (*(jchar *) (obj + INTVAL ()));
+ }
+ NEXT_INSN;
+
+ getfield_resolved_short:
+ {
+ char *obj = (char *) POPA ();
+ NULLCHECK (obj);
+ PUSHI (*(jshort *) (obj + INTVAL ()));
+ }
+ NEXT_INSN;
- base_pc[1] = (field->u.boffset>>8) & 0xff;
- base_pc[2] = field->u.boffset & 0xff;
+ getfield_resolved_4:
+ {
+ char *obj = (char *) POPA ();
+ NULLCHECK (obj);
+ PUSHI (*(jint *) (obj + INTVAL ()));
+ }
+ NEXT_INSN;
- pc = base_pc;
+ getfield_resolved_8:
+ {
+ char *obj = (char *) POPA ();
+ NULLCHECK (obj);
+ PUSHL (*(jlong *) (obj + INTVAL ()));
}
NEXT_INSN;
- insn_putstatic:
- SAVE_PC;
+ getfield_resolved_obj:
{
- unsigned char* base_pc = pc-1;
- jint fieldref_index = get2u (pc); pc += 2;
+ char *obj = (char *) POPA ();
+ NULLCHECK (obj);
+ PUSHA (*(jobject *) (obj + INTVAL ()));
+ }
+ NEXT_INSN;
+#endif /* DIRECT_THREADED */
+
+ insn_putstatic:
+ {
+ jint fieldref_index = GET2U ();
_Jv_ResolvePoolEntry (defining_class, fieldref_index);
_Jv_Field *field = pool_data[fieldref_index].field;
throw_incompatible_class_change_error
(JvNewStringLatin1 ("field no longer static"));
- /* if this is patented, then maybe we could install
- a function in the constant pool, to do the right thing */
-
+ void *newinsn = NULL;
if (type->isPrimitive ())
{
switch (type->size_in_bytes)
{
case 1:
- *base_pc = op_putstatic_1;
- break;
+ {
+ jint value = POPI();
+ *field->u.byte_addr = value;
+ newinsn = AMPAMP (putstatic_resolved_1);
+ break;
+ }
case 2:
- *base_pc = op_putstatic_2;
- break;
+ {
+ jint value = POPI();
+ *field->u.char_addr = value;
+ newinsn = AMPAMP (putstatic_resolved_2);
+ break;
+ }
case 4:
- *base_pc = op_putstatic_4;
- break;
+ {
+ jint value = POPI();
+ *field->u.int_addr = value;
+ newinsn = AMPAMP (putstatic_resolved_4);
+ break;
+ }
case 8:
- *base_pc = op_putstatic_8;
- break;
+ {
+ jlong value = POPL();
+ *field->u.long_addr = value;
+ newinsn = AMPAMP (putstatic_resolved_8);
+ break;
+ }
}
}
else
{
- *base_pc = op_putstatic_a;
+ jobject value = POPA();
+ *field->u.object_addr = value;
+ newinsn = AMPAMP (putstatic_resolved_obj);
}
- // do the instruction again!
- pc = base_pc;
+#ifdef DIRECT_THREADED
+ pc[-2].insn = newinsn;
+ pc[-1].datum = field->u.addr;
+#endif /* DIRECT_THREADED */
}
NEXT_INSN;
+#ifdef DIRECT_THREADED
+ putstatic_resolved_1:
+ *(jbyte *) AVAL () = POPI ();
+ NEXT_INSN;
+
+ putstatic_resolved_2:
+ *(jchar *) AVAL () = POPI ();
+ NEXT_INSN;
+
+ putstatic_resolved_4:
+ *(jint *) AVAL () = POPI ();
+ NEXT_INSN;
- insn_putfield:
- SAVE_PC;
+ putstatic_resolved_8:
+ *(jlong *) AVAL () = POPL ();
+ NEXT_INSN;
+
+ putstatic_resolved_obj:
+ *(jobject *) AVAL () = POPA ();
+ NEXT_INSN;
+#endif /* DIRECT_THREADED */
+
+ insn_putfield:
{
- unsigned char* base_pc = pc-1;
- jint fieldref_index = get2u (pc); pc += 2;
+ jint fieldref_index = GET2U ();
_Jv_ResolvePoolEntry (defining_class, fieldref_index);
_Jv_Field *field = pool_data[fieldref_index].field;
throw_incompatible_class_change_error
(JvNewStringLatin1 ("field is static"));
+ jint field_offset = field->u.boffset;
+ if (field_offset > 0xffff)
+ throw new java::lang::VirtualMachineError;
+
+ void *newinsn = NULL;
if (type->isPrimitive ())
{
switch (type->size_in_bytes)
{
case 1:
- *base_pc = op_putfield_1;
- break;
+ {
+ jint value = POPI();
+ jobject obj = POPA();
+ NULLCHECK(obj);
+ *(jbyte*) ((char*)obj + field_offset) = value;
+ newinsn = AMPAMP (putfield_resolved_1);
+ break;
+ }
case 2:
- *base_pc = op_putfield_2;
- break;
+ {
+ jint value = POPI();
+ jobject obj = POPA();
+ NULLCHECK(obj);
+ *(jchar*) ((char*)obj + field_offset) = value;
+ newinsn = AMPAMP (putfield_resolved_2);
+ break;
+ }
case 4:
- *base_pc = op_putfield_4;
- break;
+ {
+ jint value = POPI();
+ jobject obj = POPA();
+ NULLCHECK(obj);
+ *(jint*) ((char*)obj + field_offset) = value;
+ newinsn = AMPAMP (putfield_resolved_4);
+ break;
+ }
case 8:
- *base_pc = op_putfield_8;
- break;
+ {
+ jlong value = POPL();
+ jobject obj = POPA();
+ NULLCHECK(obj);
+ *(jlong*) ((char*)obj + field_offset) = value;
+ newinsn = AMPAMP (putfield_resolved_8);
+ break;
+ }
}
}
else
{
- *base_pc = op_putfield_a;
+ jobject value = POPA();
+ jobject obj = POPA();
+ NULLCHECK(obj);
+ *(jobject*) ((char*)obj + field_offset) = value;
+ newinsn = AMPAMP (putfield_resolved_obj);
}
- if (field->u.boffset > 0xffff)
- JvThrow (new java::lang::VirtualMachineError);
-
- base_pc[1] = (field->u.boffset>>8) & 0xff;
- base_pc[2] = field->u.boffset & 0xff;
-
- // do the instruction again!
- pc = base_pc;
+#ifdef DIRECT_THREADED
+ pc[-2].insn = newinsn;
+ pc[-1].int_val = field_offset;
+#endif /* DIRECT_THREADED */
}
NEXT_INSN;
-
- insn_getfield_1:
- SAVE_PC;
+#ifdef DIRECT_THREADED
+ putfield_resolved_1:
{
- jobject obj = POPA();
- NULLCHECK(obj);
- jint field_offset = get2u (pc); pc += 2;
- PUSHI (*(jbyte*) ((char*)obj + field_offset));
+ jint val = POPI ();
+ char *obj = (char *) POPA ();
+ NULLCHECK (obj);
+ *(jbyte *) (obj + INTVAL ()) = val;
}
NEXT_INSN;
- insn_getfield_2s:
- SAVE_PC;
+ putfield_resolved_2:
{
- jobject obj = POPA();
- NULLCHECK(obj);
- jint field_offset = get2u (pc); pc += 2;
- PUSHI (*(jshort*) ((char*)obj + field_offset));
+ jint val = POPI ();
+ char *obj = (char *) POPA ();
+ NULLCHECK (obj);
+ *(jchar *) (obj + INTVAL ()) = val;
}
NEXT_INSN;
- insn_getfield_2u:
- SAVE_PC;
+ putfield_resolved_4:
{
- jobject obj = POPA();
- NULLCHECK(obj);
- jint field_offset = get2u (pc); pc += 2;
- PUSHI (*(jchar*) ((char*)obj + field_offset));
+ jint val = POPI ();
+ char *obj = (char *) POPA ();
+ NULLCHECK (obj);
+ *(jint *) (obj + INTVAL ()) = val;
}
NEXT_INSN;
- insn_getfield_8:
- SAVE_PC;
+ putfield_resolved_8:
{
- jobject obj = POPA();
- NULLCHECK(obj);
- jint field_offset = get2u (pc); pc += 2;
- PUSHL(*(jlong*) ((char*)obj + field_offset));
+ jlong val = POPL ();
+ char *obj = (char *) POPA ();
+ NULLCHECK (obj);
+ *(jlong *) (obj + INTVAL ()) = val;
}
NEXT_INSN;
- insn_getstatic_1:
+ putfield_resolved_obj:
{
- jint fieldref_index = get2u (pc); pc += 2;
- _Jv_Field *field = pool_data[fieldref_index].field;
- PUSHI (*(jbyte*) (field->u.addr));
+ jobject val = POPA ();
+ char *obj = (char *) POPA ();
+ NULLCHECK (obj);
+ *(jobject *) (obj + INTVAL ()) = val;
}
NEXT_INSN;
+#endif /* DIRECT_THREADED */
- insn_getstatic_2s:
+ insn_invokespecial:
{
- jint fieldref_index = get2u (pc); pc += 2;
- _Jv_Field *field = pool_data[fieldref_index].field;
- PUSHI(*(jshort*) (field->u.addr));
- }
- NEXT_INSN;
+ int index = GET2U ();
- insn_getstatic_2u:
- {
- jint fieldref_index = get2u (pc); pc += 2;
- _Jv_Field *field = pool_data[fieldref_index].field;
- PUSHI(*(jchar*) (field->u.addr));
- }
- NEXT_INSN;
-
- insn_getstatic_4:
- {
- jint fieldref_index = get2u (pc); pc += 2;
- _Jv_Field *field = pool_data[fieldref_index].field;
- PUSHI(*(jint*) (field->u.addr));
- }
- NEXT_INSN;
-
- insn_getstatic_8:
- {
- jint fieldref_index = get2u (pc); pc += 2;
- _Jv_Field *field = pool_data[fieldref_index].field;
- PUSHL(*(jlong*) (field->u.addr));
- }
- NEXT_INSN;
+ rmeth = (_Jv_ResolvePoolEntry (defining_class, index)).rmethod;
- insn_getstatic_a:
- {
- jint fieldref_index = get2u (pc); pc += 2;
- _Jv_Field *field = pool_data[fieldref_index].field;
- PUSHA(*(jobject*) (field->u.addr));
- }
- NEXT_INSN;
+ sp -= rmeth->stack_item_count;
- insn_putfield_1:
- SAVE_PC;
- {
- jint value = POPI();
- jobject obj = POPA();
- NULLCHECK(obj);
- jint field_offset = get2u (pc); pc += 2;
- *(jbyte*) ((char*)obj + field_offset) = value;
- }
- NEXT_INSN;
+ // We don't use NULLCHECK here because we can't rely on that
+ // working for <init>. So instead we do an explicit test.
+ if (! sp[0].o)
+ throw new java::lang::NullPointerException;
- insn_putfield_2:
- SAVE_PC;
- {
- jint value = POPI();
- jobject obj = POPA();
- NULLCHECK(obj);
- jint field_offset = get2u (pc); pc += 2;
- *(jchar*) ((char*)obj + field_offset) = value;
- }
- NEXT_INSN;
+ fun = (void (*)()) rmeth->method->ncode;
- insn_putfield_4:
- SAVE_PC;
- {
- jint value = POPI();
- jobject obj = POPA();
- NULLCHECK(obj);
- jint field_offset = get2u (pc); pc += 2;
- *(jint*) ((char*)obj + field_offset) = value;
+#ifdef DIRECT_THREADED
+ // Rewrite instruction so that we use a faster pre-resolved
+ // method.
+ pc[-2].insn = &&invokespecial_resolved;
+ pc[-1].datum = rmeth;
+#endif /* DIRECT_THREADED */
}
- NEXT_INSN;
+ goto perform_invoke;
- insn_putfield_8:
- SAVE_PC;
+#ifdef DIRECT_THREADED
+ invokespecial_resolved:
{
- jlong value = POPL();
- jobject obj = POPA();
- NULLCHECK(obj);
- jint field_offset = get2u (pc); pc += 2;
- *(jlong*) ((char*)obj + field_offset) = value;
+ rmeth = (_Jv_ResolvedMethod *) AVAL ();
+ sp -= rmeth->stack_item_count;
+ // We don't use NULLCHECK here because we can't rely on that
+ // working for <init>. So instead we do an explicit test.
+ if (! sp[0].o)
+ throw new java::lang::NullPointerException;
+ fun = (void (*)()) rmeth->method->ncode;
}
- NEXT_INSN;
+ goto perform_invoke;
+#endif /* DIRECT_THREADED */
- insn_putfield_a:
- SAVE_PC;
+ insn_invokestatic:
{
- jobject value = POPA();
- jobject obj = POPA();
- NULLCHECK(obj);
- jint field_offset = get2u (pc); pc += 2;
- *(jobject*) ((char*)obj + field_offset) = value;
- }
- NEXT_INSN;
+ int index = GET2U ();
- insn_putstatic_1:
- {
- jint value = POPI();
- jint fieldref_index = get2u (pc); pc += 2;
- _Jv_Field *field = pool_data[fieldref_index].field;
- *(jbyte*) (field->u.addr) = value;
- }
- NEXT_INSN;
+ rmeth = (_Jv_ResolvePoolEntry (defining_class, index)).rmethod;
- insn_putstatic_2:
- {
- jint value = POPI();
- jint fieldref_index = get2u (pc); pc += 2;
- _Jv_Field *field = pool_data[fieldref_index].field;
- *(jchar*) (field->u.addr) = value;
- }
- NEXT_INSN;
+ sp -= rmeth->stack_item_count;
- insn_putstatic_4:
- {
- jint value = POPI();
- jint fieldref_index = get2u (pc); pc += 2;
- _Jv_Field *field = pool_data[fieldref_index].field;
- *(jint*) (field->u.addr) = value;
- }
- NEXT_INSN;
+ fun = (void (*)()) rmeth->method->ncode;
- insn_putstatic_8:
- {
- jlong value = POPL();
- jint fieldref_index = get2u (pc); pc += 2;
- _Jv_Field *field = pool_data[fieldref_index].field;
- *(jlong*) (field->u.addr) = value;
+#ifdef DIRECT_THREADED
+ // Rewrite instruction so that we use a faster pre-resolved
+ // method.
+ pc[-2].insn = &&invokestatic_resolved;
+ pc[-1].datum = rmeth;
+#endif /* DIRECT_THREADED */
}
- NEXT_INSN;
+ goto perform_invoke;
- insn_putstatic_a:
+#ifdef DIRECT_THREADED
+ invokestatic_resolved:
{
- jobject value = POPA();
- jint fieldref_index = get2u (pc); pc += 2;
- _Jv_Field *field = pool_data[fieldref_index].field;
- *(jobject*) (field->u.addr) = value;
+ rmeth = (_Jv_ResolvedMethod *) AVAL ();
+ sp -= rmeth->stack_item_count;
+ fun = (void (*)()) rmeth->method->ncode;
}
- NEXT_INSN;
+ goto perform_invoke;
+#endif /* DIRECT_THREADED */
- insn_invokespecial:
- SAVE_PC;
+ insn_invokeinterface:
{
- int index = get2u (pc); pc += 2;
+ int index = GET2U ();
rmeth = (_Jv_ResolvePoolEntry (defining_class, index)).rmethod;
sp -= rmeth->stack_item_count;
- NULLCHECK(sp[0]);
-
- fun = (void (*) (...))rmeth->method->ncode;
- }
- goto perform_invoke;
-
- insn_invokestatic:
- SAVE_PC;
- {
- int index = get2u (pc); pc += 2;
+ jobject rcv = sp[0].o;
- rmeth = (_Jv_ResolvePoolEntry (defining_class, index)).rmethod;
+ NULLCHECK (rcv);
- sp -= rmeth->stack_item_count;
+ fun = (void (*)())
+ _Jv_LookupInterfaceMethod (rcv->getClass (),
+ rmeth->method->name,
+ rmeth->method->signature);
- _Jv_InitClass (rmeth->klass);
- fun = (void (*) (...))rmeth->method->ncode;
+#ifdef DIRECT_THREADED
+ // Rewrite instruction so that we use a faster pre-resolved
+ // method.
+ pc[-2].insn = &&invokeinterface_resolved;
+ pc[-1].datum = rmeth;
+#else
+ // Skip dummy bytes.
+ pc += 2;
+#endif /* DIRECT_THREADED */
}
goto perform_invoke;
- insn_invokeinterface:
- SAVE_PC;
+#ifdef DIRECT_THREADED
+ invokeinterface_resolved:
{
- int index = get2u (pc); pc += 2;
-
- // invokeinterface has two unused bytes...
- pc += 2;
-
- rmeth = (_Jv_ResolvePoolEntry (defining_class, index)).rmethod;
-
+ rmeth = (_Jv_ResolvedMethod *) AVAL ();
sp -= rmeth->stack_item_count;
- NULLCHECK(sp[0]);
-
jobject rcv = sp[0].o;
-
- fun = (void (*) (...))
+ NULLCHECK (rcv);
+ fun = (void (*)())
_Jv_LookupInterfaceMethod (rcv->getClass (),
rmeth->method->name,
rmeth->method->signature);
}
goto perform_invoke;
+#endif /* DIRECT_THREADED */
-
- insn_new:
- SAVE_PC;
+ insn_new:
{
- int index = get2u (pc); pc += 2;
+ int index = GET2U ();
jclass klass = (_Jv_ResolvePoolEntry (defining_class, index)).clazz;
- _Jv_InitClass (klass);
- jobject res = _Jv_AllocObject (klass, klass->size_in_bytes);
+ jobject res = _Jv_AllocObject (klass);
PUSHA (res);
+
+#ifdef DIRECT_THREADED
+ pc[-2].insn = &&new_resolved;
+ pc[-1].datum = klass;
+#endif /* DIRECT_THREADED */
}
NEXT_INSN;
- insn_newarray:
- SAVE_PC;
+#ifdef DIRECT_THREADED
+ new_resolved:
{
- int atype = get1u (pc++);
+ jclass klass = (jclass) AVAL ();
+ jobject res = _Jv_AllocObject (klass);
+ PUSHA (res);
+ }
+ NEXT_INSN;
+#endif /* DIRECT_THREADED */
+
+ insn_newarray:
+ {
+ int atype = GET1U ();
int size = POPI();
jobject result = _Jv_NewArray (atype, size);
PUSHA (result);
}
NEXT_INSN;
- insn_anewarray:
- SAVE_PC;
+ insn_anewarray:
{
- int index = get2u (pc); pc += 2;
+ int index = GET2U ();
jclass klass = (_Jv_ResolvePoolEntry (defining_class, index)).clazz;
int size = POPI();
- _Jv_InitClass (klass);
jobject result = _Jv_NewObjectArray (size, klass, 0);
PUSHA (result);
+
+#ifdef DIRECT_THREADED
+ pc[-2].insn = &&anewarray_resolved;
+ pc[-1].datum = klass;
+#endif /* DIRECT_THREADED */
}
NEXT_INSN;
- insn_arraylength:
- SAVE_PC;
+#ifdef DIRECT_THREADED
+ anewarray_resolved:
+ {
+ jclass klass = (jclass) AVAL ();
+ int size = POPI ();
+ jobject result = _Jv_NewObjectArray (size, klass, 0);
+ PUSHA (result);
+ }
+ NEXT_INSN;
+#endif /* DIRECT_THREADED */
+
+ insn_arraylength:
{
__JArray *arr = (__JArray*)POPA();
+ NULLARRAYCHECK (arr);
PUSHI (arr->length);
}
NEXT_INSN;
- insn_athrow:
- SAVE_PC;
+ insn_athrow:
{
jobject value = POPA();
- JvThrow (value);
+ throw static_cast<jthrowable>(value);
}
NEXT_INSN;
- insn_checkcast:
- SAVE_PC;
+ insn_checkcast:
{
jobject value = POPA();
- jint index = get2u (pc); pc += 2;
+ jint index = GET2U ();
jclass to = (_Jv_ResolvePoolEntry (defining_class, index)).clazz;
if (value != NULL && ! to->isInstance (value))
- {
- JvThrow (new java::lang::ClassCastException
- (to->getName()));
- }
+ throw new java::lang::ClassCastException (to->getName());
+
+ PUSHA (value);
+
+#ifdef DIRECT_THREADED
+ pc[-2].insn = &&checkcast_resolved;
+ pc[-1].datum = to;
+#endif /* DIRECT_THREADED */
+ }
+ NEXT_INSN;
+#ifdef DIRECT_THREADED
+ checkcast_resolved:
+ {
+ jobject value = POPA ();
+ jclass to = (jclass) AVAL ();
+ if (value != NULL && ! to->isInstance (value))
+ throw new java::lang::ClassCastException (to->getName());
PUSHA (value);
}
NEXT_INSN;
+#endif /* DIRECT_THREADED */
- insn_instanceof:
- SAVE_PC;
+ insn_instanceof:
{
jobject value = POPA();
- jint index = get2u (pc); pc += 2;
+ jint index = GET2U ();
jclass to = (_Jv_ResolvePoolEntry (defining_class, index)).clazz;
PUSHI (to->isInstance (value));
+
+#ifdef DIRECT_THREADED
+ pc[-2].insn = &&instanceof_resolved;
+ pc[-1].datum = to;
+#endif /* DIRECT_THREADED */
+ }
+ NEXT_INSN;
+
+#ifdef DIRECT_THREADED
+ instanceof_resolved:
+ {
+ jobject value = POPA ();
+ jclass to = (jclass) AVAL ();
+ PUSHI (to->isInstance (value));
}
NEXT_INSN;
+#endif /* DIRECT_THREADED */
- insn_monitorenter:
- SAVE_PC;
+ insn_monitorenter:
{
jobject value = POPA();
NULLCHECK(value);
}
NEXT_INSN;
- insn_monitorexit:
- SAVE_PC;
+ insn_monitorexit:
{
jobject value = POPA();
NULLCHECK(value);
}
NEXT_INSN;
- insn_ifnull:
+ insn_ifnull:
{
- unsigned char* base_pc = pc-1;
- jint offset = get2s (pc); pc += 2;
jobject val = POPA();
if (val == NULL)
- pc = base_pc+offset;
+ TAKE_GOTO;
+ else
+ SKIP_GOTO;
}
NEXT_INSN;
- insn_ifnonnull:
+ insn_ifnonnull:
{
- unsigned char* base_pc = pc-1;
- jint offset = get2s (pc); pc += 2;
jobject val = POPA();
if (val != NULL)
- pc = base_pc+offset;
+ TAKE_GOTO;
+ else
+ SKIP_GOTO;
+ }
+ NEXT_INSN;
+
+ insn_multianewarray:
+ {
+ int kind_index = GET2U ();
+ int dim = GET1U ();
+
+ jclass type
+ = (_Jv_ResolvePoolEntry (defining_class, kind_index)).clazz;
+ jint *sizes = (jint*) __builtin_alloca (sizeof (jint)*dim);
+
+ for (int i = dim - 1; i >= 0; i--)
+ {
+ sizes[i] = POPI ();
+ }
+
+ jobject res = _Jv_NewMultiArray (type,dim, sizes);
+
+ PUSHA (res);
}
NEXT_INSN;
- insn_wide:
- SAVE_PC;
+#ifndef DIRECT_THREADED
+ insn_wide:
{
jint the_mod_op = get1u (pc++);
jint wide = get2u (pc); pc += 2;
LOADI (wide);
NEXT_INSN;
+ case op_fload:
+ LOADF (wide);
+ NEXT_INSN;
+
case op_aload:
LOADA (wide);
NEXT_INSN;
}
}
+#endif /* DIRECT_THREADED */
+ }
+ catch (java::lang::Throwable *ex)
+ {
+#ifdef DIRECT_THREADED
+ void *logical_pc = (void *) ((insn_slot *) pc - 1);
+#else
+ int logical_pc = pc - 1 - bytecode ();
+#endif
+ _Jv_InterpException *exc = exceptions ();
+ jclass exc_class = ex->getClass ();
- insn_multianewarray:
- SAVE_PC;
- {
- int kind_index = get2u (pc); pc += 2;
- int dim = get1u (pc); pc += 1;
-
- jclass type
- = (_Jv_ResolvePoolEntry (defining_class, kind_index)).clazz;
- _Jv_InitClass (type);
- jint *sizes = (jint*) alloca (sizeof (jint)*dim);
-
- for (int i = dim - 1; i >= 0; i--)
- {
- sizes[i] = POPI ();
- }
-
- jobject res = _Jv_NewMultiArray (type,dim, sizes);
-
- PUSHA (res);
- }
- NEXT_INSN;
-
- insn_goto_w:
- {
- unsigned char* base_pc = pc-1;
- int offset = get4 (pc); pc += 4;
- pc = base_pc+offset;
- }
- NEXT_INSN;
+ for (int i = 0; i < exc_count; i++)
+ {
+ if (PCVAL (exc[i].start_pc) <= logical_pc
+ && logical_pc < PCVAL (exc[i].end_pc))
+ {
+#ifdef DIRECT_THREADED
+ jclass handler = (jclass) exc[i].handler_type.p;
+#else
+ jclass handler = NULL;
+ if (exc[i].handler_type.i != 0)
+ handler = (_Jv_ResolvePoolEntry (defining_class,
+ exc[i].handler_type.i)).clazz;
+#endif /* DIRECT_THREADED */
+
+ if (handler == NULL || handler->isAssignableFrom (exc_class))
+ {
+#ifdef DIRECT_THREADED
+ pc = (insn_slot *) exc[i].handler_pc.p;
+#else
+ pc = bytecode () + exc[i].handler_pc.i;
+#endif /* DIRECT_THREADED */
+ sp = stack;
+ sp++->o = ex; // Push exception.
+ NEXT_INSN;
+ }
+ }
+ }
- insn_jsr_w:
- {
- unsigned char* base_pc = pc-1;
- int offset = get4 (pc); pc += 4;
- PUSHA((jobject)pc);
- pc = base_pc+offset;
- }
- NEXT_INSN;
+ // No handler, so re-throw.
+ throw ex;
+ }
}
-
static void
throw_internal_error (char *msg)
{
- JvThrow (new java::lang::InternalError (JvNewStringLatin1 (msg)));
+ throw new java::lang::InternalError (JvNewStringLatin1 (msg));
}
static void
throw_incompatible_class_change_error (jstring msg)
{
- JvThrow (new java::lang::IncompatibleClassChangeError (msg));
+ throw new java::lang::IncompatibleClassChangeError (msg);
}
-#if !HANDLE_SEGV
+#ifndef HANDLE_SEGV
static java::lang::NullPointerException *null_pointer_exc;
static void
throw_null_pointer_exception ()
if (null_pointer_exc == NULL)
null_pointer_exc = new java::lang::NullPointerException;
- JvThrow (null_pointer_exc);
-}
-#endif
-
-#if !HANDLE_FPE
-static java::lang::ArithmeticException *arithmetic_exc;
-static void
-throw_arithmetic_exception ()
-{
- if (arithmetic_exc == NULL)
- arithmetic_exc = new java::lang::ArithmeticException
- (JvNewStringLatin1 ("/ by zero"));
-
- JvThrow (arithmetic_exc);
+ throw null_pointer_exc;
}
#endif
-
#endif // INTERPRETER