/* javaint.c: Copyright (C) Codemist Ltd., 1996. */
#include <stdio.h>
/* #include <stdlib.h> */
#include <string.h>
#include "machine.h"
#include "tags.h"
#include "cslerror.h"
#include "externs.h"
#include "read.h"
#include "stream.h"
#include "arith.h"
#include "entries.h"
#include "javahost.h"
#include "javaops.h"
#include "javaglb.h"
/* integers representing exceptions (map to Java exceptions in javaint(). */
#define E_NegativeArraySizeException 1
#define E_OutOfMemoryError 2
#define E_NullPointerException 3
#define E_ArrayIndexOutOfBoundsException 4
#define JSTK_MAX 10000
#ifdef DOWNWARD_STACK /* need to fix up locals too! */
#define push_(sp,v) (*--(sp)=(v))
#define pop_(sp) (*(sp)++)
#define lose_(sp,k) ((sp)+=(k))
#define stk_(sp,k) ((sp)[k])
#define STLO 0
#define STHI 1
#define loc_(lv,k) (*((lv)-(k)))
#else
#define push_(sp,v) (*++(sp)=(v))
#define pop_(sp) (*(sp)--)
#define lose_(sp,k) ((sp)-=(k))
#define stk_(sp,k) (*((sp)-(k)))
#define STLO 1
#define STHI 0
#define loc_(lv,k) ((lv)[k])
#endif
static void jraise(int E_whatever)
{ jsyserr("Exceptions unimplemented");
}
static int java_sizeof(int32 t)
{ switch (t)
{ default: jsyserr("bad type code to newarray()");
case T_BOOLEAN: return 1;
case T_CHAR: return 1;
case T_FLOAT: return 4;
case T_DOUBLE: return 8;
case T_BYTE: return 1;
case T_SHORT: return 2;
case T_INT: return 4;
case T_LONG: return 8;
case -1: return 4; /* for anewarray */
}
}
typedef struct JavaArray
{ unsigned32 length;
/* access long/double by stream as maybe not aligned */
union { int8 elts8[1]; unsigned8 eltu8[1];
int16 elts16[1]; unsigned16 eltu16[1]; int32 elt32[1]; } u;
} JavaArray;
static int32 java_newarray(int32 *sp, int32 flavour, int32 refclass, int32 k)
{ /* Note that 'k' is (number of dimensions)-1. */
/* Caller loses junk when k>0 (j_multinewarray). */
/* k>0 not supported yet. */
JavaArray *res;
int32 nelts = stk_(sp,0), csize;
if (nelts < 0) return E_NegativeArraySizeException;
csize = java_sizeof(flavour)*nelts + sizeof(int32);
res = (JavaArray *)jmalloc(csize);
if (res == 0) return E_OutOfMemoryError;
memset(res, 0, csize); /* @@@ beware 0 = HR_NULL assumed! */
res->length = nelts;
stk_(sp,k) = (int32)res; /*ALPHA*/
return 0;
}
/* beware host/java rep issues here */
#define HR_NULL 0 /* Host Representation? */
static const union { struct { double d[2]; float f[3]; } s;
int32 r[7];
} hostflttab = { 0.0, 1.0, 0.0f, 1.0f, 2.0f };
/* Remember many of the following are zero (optimise?) */
#define HR_D0W1 hostflttab.r[0]
#define HR_D0W2 hostflttab.r[1]
#define HR_D1W1 hostflttab.r[2]
#define HR_D1W2 hostflttab.r[3]
#define HR_F0 hostflttab.r[4]
#define HR_F1 hostflttab.r[5]
#define HR_F2 hostflttab.r[6]
typedef union DbleRep { int32 irep[2]; double d; } DbleRep;
/* Some of the following optimise if we know double's only need to be */
/* 32-bit aligned. */
static int32 *sim_i2d(int32 *sp)
{ DbleRep u;
u.d = (double)stk_(sp,0);
stk_(sp,0) = u.irep[STHI];
push_(sp, u.irep[STLO]);
return sp;
}
static int32 *sim_d2i(int32 *sp)
{ DbleRep u;
u.irep[STLO] = pop_(sp);
u.irep[STHI] = stk_(sp,0);
stk_(sp,0) = (int32)u.d;
return sp;
}
static int32 *sim_l2d(int32 *sp) { jsyserr("l2d"); return sp;}
static int32 *sim_d2l(int32 *sp) { jsyserr("d2l"); return sp;}
static int32 *sim_f2l(int32 *sp) { jsyserr("f2l"); lose_(sp,1); return sp;}
static int32 *sim_l2f(int32 *sp) { jsyserr("l2f"); push_(sp,0); return sp;}
static int32 *sim_f2d(int32 *sp)
{ DbleRep u;
u.d = (double)stk_((float *)sp,0);
stk_(sp,0) = u.irep[STHI];
push_(sp, u.irep[STLO]);
return sp;
}
static int32 *sim_d2f(int32 *sp)
{ DbleRep u;
u.irep[STLO] = pop_(sp);
u.irep[STHI] = stk_(sp,0);
stk_((float *)sp,0) = (float)u.d;
return sp;
}
static Code_Attribute *findcodeattr(Attribute_Info *v, unsigned32 n)
{ int i;
for (i = 0; i<n; i++)
if (v[i].sort == ATT_Code)
return v[i].uattr.code;
return 0;
}
#define case3(a,b,c) case a: case b: case c
#define case2(a,b) case a: case b
void javaint(ClassFile *cf)
{
int32 *sp, *lv;
int32 *spbase;
int8 *pc; /* @@@ */
Cp_Info *cp; /* litpool */ /* @@@ init */
int32 t1, t2, t3; /* make more local? */
int32 pb; /* beware live round main loop (see j_wide) */
int32 sv; /* stack val */
JavaArray *sv_qua_array;
int32 ao; /* array index (tidy?) */
int32 op;
int32 r1,r2;
unsigned32 r1u;
lv = (int32 *)jmalloc(JSTK_MAX * sizeof(*sp));
loc_(lv,0) = HR_NULL; /* arg[] */
sp = lv;
spbase = lv+1; /* !DOWNWARD_STACK */
/* Provisional placing of following block (maybe share with 'invoke'). */
cp = cf->constant_pool;
{ int i;
for (i = 0; i < cf->methods_count; i++)
{ unsigned32 n = cf->methods[i].name_index;
if (0 < n && n < cf->constant_pool_count &&
cp[n].tag == CONSTANT_Utf8 &&
memcmp(cp[n].u.utf8, "main", 4) == 0)
{ Code_Attribute *p = findcodeattr(cf->methods[i].attributes,
cf->methods[i].attributes_count);
if (p == 0) jsyserr("no code for main");
pc = (int8 *)p->code; goto foundmain;
}
}
jsyserr("no main()");
return;
}
foundmain:
jdebug("Execution...");
#define u8i_(pc) (*(pc)++ & 255)
#define s8i_(pc) (*(pc)++)
#define s16i_(pc) (t1 = s8i_(pc), t1<<8 | u8i_(pc))
#define u16i_(pc) (t1 = u8i_(pc), t1<<8 | u8i_(pc))
#define s32i_(pc) (t1 = s8i_(pc), t1 = t1<<8 | u8i_(pc), \
t1 = t1<<8 | u8i_(pc), t1<<8 | u8i_(pc))
#define cp_maybe_string_(d) \
(cp[d].tag == CONSTANT_String ? cp[cp[d].u.val].u.val : cp[d].u.val)
#define cp1_(d) (cp[d].u.val)
#define cp2_(d) (cp[(d)+1].u.val)
for (pb = 0;;) switch (jdebug("trace %d", op = u8i_(pc)), op)
{
default: jsyserr("Illegal java op %d/%s", op, jdecodeopname(op));
break;
unimp: jsyserr("Unimplemented java op %d/%s", op, jdecodeopname(op));
break;
case j_bipush: push_(sp, s8i_(pc)); break;
case j_sipush: push_(sp, s16i_(pc)); break;
case j_ldc1: t2 = u8i_(pc); push_(sp, cp_maybe_string_(t2)); break;
case j_ldc2: t2 = u16i_(pc); push_(sp, cp_maybe_string_(t2)); break;
case j_ldc2w: t2 = u16i_(pc); push_(sp, cp1_(t2)); push_(sp, cp2_(t2)); break;
case j_aconst_null: push_(sp, HR_NULL); break;
case j_iconst_m1: push_(sp, -1); break;
case j_iconst_0: push_(sp, 0); break;
case j_iconst_1: push_(sp, 1); break;
case j_iconst_2: push_(sp, 2); break;
case j_iconst_3: push_(sp, 3); break;
case j_iconst_4: push_(sp, 4); break;
case j_iconst_5: push_(sp, 5); break;
case j_lconst_0: push_(sp, 0); push_(sp, 0); break;
case j_lconst_1: push_(sp, 0); push_(sp, 0); break;
case j_fconst_0: push_(sp, HR_F0); break;
case j_fconst_1: push_(sp, HR_F1); break;
case j_fconst_2: push_(sp, HR_F2); break;
case j_dconst_0: push_(sp, HR_D0W1); push_(sp, HR_D0W2); break;
case j_dconst_1: push_(sp, HR_D1W1); push_(sp, HR_D1W2); break;
case3(j_iload,j_fload,j_aload):
push_(sp, loc_(lv,pb+u8i_(pc))); pb = 0; break;
case3(j_iload_0,j_fload_0,j_aload_0): push_(sp, loc_(lv,0)); break;
case3(j_iload_1,j_fload_1,j_aload_1): push_(sp, loc_(lv,1)); break;
case3(j_iload_2,j_fload_2,j_aload_2): push_(sp, loc_(lv,2)); break;
case3(j_iload_3,j_fload_3,j_aload_3): push_(sp, loc_(lv,3)); break;
/* Could use sv1,sv2 if lots of registers on my target. */
case2(j_lload,j_dload): pb += u8i_(pc); /* STHI, STLO */
sv = loc_(lv, pb+0); push_(sp, sv);
sv = loc_(lv, pb+1); push_(sp, sv); pb = 0; break;
case2(j_lload_0,j_dload_0): push_(sp, loc_(lv,0)); push_(sp, loc_(lv,1)); break;
case2(j_lload_1,j_dload_1): push_(sp, loc_(lv,1)); push_(sp, loc_(lv,2)); break;
case2(j_lload_2,j_dload_2): push_(sp, loc_(lv,2)); push_(sp, loc_(lv,3)); break;
case2(j_lload_3,j_dload_3): push_(sp, loc_(lv,3)); push_(sp, loc_(lv,4)); break;
case3(j_istore,j_fstore,j_astore):
loc_(lv, pb+u8i_(pc)) = pop_(sp); pb = 0; break;
case3(j_istore_0,j_fstore_0,j_astore_0): loc_(lv,0) = pop_(sp); break;
case3(j_istore_1,j_fstore_1,j_astore_1): loc_(lv,1) = pop_(sp); break;
case3(j_istore_2,j_fstore_2,j_astore_2): loc_(lv,2) = pop_(sp); break;
case3(j_istore_3,j_fstore_3,j_astore_3): loc_(lv,3) = pop_(sp); break;
/* Could use sv1,sv2 if lots of registers on my target. */
case2(j_lstore,j_dstore): pb += u8i_(pc); /* STHI, STLO */
sv = pop_(sp); loc_(lv, pb+1) = sv;
sv = pop_(sp); loc_(lv, pb+0) = sv; pb = 0; break;
case2(j_lstore_0,j_dstore_0): loc_(lv,1)=pop_(sp); loc_(lv,0)=pop_(sp); break;
case2(j_lstore_1,j_dstore_1): loc_(lv,2)=pop_(sp); loc_(lv,1)=pop_(sp); break;
case2(j_lstore_2,j_dstore_2): loc_(lv,3)=pop_(sp); loc_(lv,2)=pop_(sp); break;
case2(j_lstore_3,j_dstore_3): loc_(lv,4)=pop_(sp); loc_(lv,3)=pop_(sp); break;
case j_iinc: pb += u8i_(pc); loc_(lv, pb) += s8i_(pc); pb = 0; break;
case j_wide: pb = u8i_(pc) << 8; break;
case j_newarray: if ((t1 = java_newarray(sp, u8i_(pc), 0, 0)) != 0)
{ jraise(t1);
}
break;
case j_anewarray: t2 = u16i_(pc);
if ((t1 = java_newarray(sp, -1, cp1_(t2), 0)) != 0)
{ jraise(t1);
}
break;
case j_multinewarray: t2 = u16i_(pc); t3 = u8i_(pc)-1;
t1 = java_newarray(sp, -1, cp1_(t2), t3);
sp += t3;
if (t1 != 0)
{ jraise(t1);
}
break;
case j_arraylength:
if ((sv_qua_array = (JavaArray *)stk_(sp,0)) == HR_NULL) /*ALPHA*/
{ jraise(E_NullPointerException);
}
stk_(sp,0) = sv_qua_array->length;
break;
case3(j_iaload,j_faload,j_aaload):
ao = pop_(sp);
if ((sv_qua_array = (JavaArray *)stk_(sp,0)) == HR_NULL) /*ALPHA*/
{ jraise(E_NullPointerException);
}
if ((unsigned32)ao >= sv_qua_array->length)
{ jraise(E_ArrayIndexOutOfBoundsException);
}
stk_(sp,0) = sv_qua_array->u.elt32[ao];
break;
case2(j_laload,j_daload):
ao = pop_(sp);
if ((sv_qua_array = (JavaArray *)stk_(sp,0)) == HR_NULL) /*ALPHA*/
{ jraise(E_NullPointerException);
}
if ((unsigned32)ao >= sv_qua_array->length)
{ jraise(E_ArrayIndexOutOfBoundsException);
}
stk_(sp,0) = sv_qua_array->u.elt32[2*ao+STHI];
push_(sp, sv_qua_array->u.elt32[2*ao+STLO]);
break;
case j_baload: ao = pop_(sp);
if ((sv_qua_array = (JavaArray *)stk_(sp,0)) == HR_NULL) /*ALPHA*/
{ jraise(E_NullPointerException);
}
if ((unsigned32)ao >= sv_qua_array->length)
{ jraise(E_ArrayIndexOutOfBoundsException);
}
stk_(sp,0) = sv_qua_array->u.elts8[ao];
break;
case j_caload: ao = pop_(sp);
if ((sv_qua_array = (JavaArray *)stk_(sp,0)) == HR_NULL) /*ALPHA*/
{ jraise(E_NullPointerException);
}
if ((unsigned32)ao >= sv_qua_array->length)
{ jraise(E_ArrayIndexOutOfBoundsException);
}
stk_(sp,0) = sv_qua_array->u.eltu16[ao];
break;
case j_saload: ao = pop_(sp);
if ((sv_qua_array = (JavaArray *)stk_(sp,0)) == HR_NULL) /*ALPHA*/
{ jraise(E_NullPointerException);
}
if ((unsigned32)ao >= sv_qua_array->length)
{ jraise(E_ArrayIndexOutOfBoundsException);
}
stk_(sp,0) = sv_qua_array->u.elts16[ao];
break;
case3(j_iastore,j_fastore,j_aastore):
if ((sv_qua_array = (JavaArray *)stk_(sp,2)) == HR_NULL) /*ALPHA*/
{ jraise(E_NullPointerException);
}
if ((unsigned32)(ao = stk_(sp,1)) >= sv_qua_array->length)
{ jraise(E_ArrayIndexOutOfBoundsException);
}
sv_qua_array->u.elt32[ao] = stk_(sp,0);
lose_(sp,3);
break;
case2(j_lastore,j_dastore):
if ((sv_qua_array = (JavaArray *)stk_(sp,3)) == HR_NULL) /*ALPHA*/
{ jraise(E_NullPointerException);
}
if ((unsigned32)(ao = stk_(sp,2)) >= sv_qua_array->length)
{ jraise(E_ArrayIndexOutOfBoundsException);
}
sv_qua_array->u.elt32[2*ao+STLO] = stk_(sp,0);
sv_qua_array->u.elt32[2*ao+STHI] = stk_(sp,1);
lose_(sp,4);
break;
case j_bastore:
if ((sv_qua_array = (JavaArray *)stk_(sp,2)) == HR_NULL) /*ALPHA*/
{ jraise(E_NullPointerException);
}
if ((unsigned32)(ao = stk_(sp,1)) >= sv_qua_array->length)
{ jraise(E_ArrayIndexOutOfBoundsException);
}
sv_qua_array->u.eltu8[ao] = stk_(sp,0);
lose_(sp,3);
break;
case2(j_sastore,j_castore):
if ((sv_qua_array = (JavaArray *)stk_(sp,2)) == HR_NULL) /*ALPHA*/
{ jraise(E_NullPointerException);
}
if ((unsigned32)(ao = stk_(sp,1)) >= sv_qua_array->length)
{ jraise(E_ArrayIndexOutOfBoundsException);
}
sv_qua_array->u.eltu16[ao] = stk_(sp,0);
lose_(sp,3);
break;
case j_nop: break;
case j_pop: lose_(sp,1); break;
case j_pop2: lose_(sp,2); break;
case j_dup: sv = stk_(sp, 0); push_(sp, sv); break;
case j_dup2: sv = stk_(sp, 1); push_(sp, sv);
sv = stk_(sp, 1); push_(sp, sv); break;
case j_dup_x1: sv = stk_(sp, 0); stk_(sp, 0) = stk_(sp, 1);
stk_(sp, 1) = sv; push_(sp, sv); break;
case j_dup2_x1: r1 = stk_(sp, 0); r2 = stk_(sp, 1); stk_(sp,0) = stk_(sp,2);
stk_(sp,1) = r1; stk_(sp,2) = r2; push_(sp, r2); push_(sp,r1);
break;
case j_dup_x2: sv = stk_(sp, 0); push_(sp, sv); stk_(sp,1) = stk_(sp,2);
stk_(sp,2) = stk_(sp,3); stk_(sp,3) = sv; break;
case j_dup2_x2: sv = stk_(sp, 1); push_(sp, sv); stk_(sp,2) = stk_(sp,4);
stk_(sp,4) = sv;
sv = stk_(sp, 1); push_(sp, sv); stk_(sp,2) = stk_(sp,4);
stk_(sp,4) = sv; break;
case j_swap: sv = stk_(sp, 0); stk_(sp, 0) = stk_(sp, 1);
stk_(sp, 1) = sv; break;
case j_iadd: r1 = pop_(sp); stk_(sp,0) += r1; break;
case j_ladd: goto unimp;
case j_fadd: goto unimp;
case j_dadd: goto unimp;
case j_isub: r1 = pop_(sp); stk_(sp,0) -= r1; break;
case j_lsub: goto unimp;
case j_fsub: goto unimp;
case j_dsub: goto unimp;
case j_imul: r1 = pop_(sp); stk_(sp,0) *= r1; break;
case j_lmul: goto unimp;
case j_fmul: goto unimp;
case j_dmul: goto unimp;
case j_idiv: r1 = pop_(sp); stk_(sp,0) /= r1; break;
case j_ldiv: goto unimp;
case j_fdiv: goto unimp;
case j_ddiv: goto unimp;
case j_irem: r1 = pop_(sp); stk_(sp,0) %= r1; break;
case j_lrem: goto unimp;
case j_frem: goto unimp;
case j_drem: goto unimp;
case j_ineg: stk_(sp,0) = -stk_(sp,0); break;
case j_lneg: goto unimp;
case j_fneg: goto unimp;
case j_dneg: goto unimp;
case j_ishl: r1 = pop_(sp); stk_(sp,0) <<= r1&31; break;
#ifdef HOST_SHIFT_SIGNED
case j_ishr: r1 = pop_(sp); stk_(sp,0) >>= r1&31; break;
#else
case j_ishr: goto unimp;
#endif
case j_iushr: r1 = pop_(sp); stk_(sp,0) = (unsigned32)stk_(sp,0) >> r1&31; break;
case j_lshl: goto unimp;
case j_lshr: goto unimp;
case j_lushr: goto unimp;
case j_iand: r1 = pop_(sp); stk_(sp,0) &= r1; break;
case j_land: stk_(sp,2) &= stk_(sp,0); stk_(sp,3) &= stk_(sp,1);
lose_(sp,2); break;
case j_ior: r1 = pop_(sp); stk_(sp,0) |= r1; break;
case j_lor: stk_(sp,2) |= stk_(sp,0); stk_(sp,3) |= stk_(sp,1);
lose_(sp,2); break;
case j_ixor: r1 = pop_(sp); stk_(sp,0) ^= r1; break;
case j_lxor: stk_(sp,2) ^= stk_(sp,0); stk_(sp,3) ^= stk_(sp,1);
lose_(sp,2); break;
case j_i2l: r1u = stk_(sp,0); push_(sp, -(r1u >> 31)); break;
case j_i2f: stk_((float *)sp,0) = (float)stk_(sp,0); break;
case j_i2d: sp = sim_i2d(sp); break;
case j_l2i: lose_(sp,1); break;
case j_l2f: sp = sim_l2f(sp); break;
case j_l2d: sp = sim_l2d(sp); break;
case j_f2i: stk_(sp,0) = (int32)stk_((float *)sp,0); break;
case j_f2l: sp = sim_f2l(sp); break;
case j_f2d: sp = sim_f2d(sp); break;
case j_d2i: sp = sim_d2i(sp); break;
case j_d2l: sp = sim_d2l(sp); break;
case j_d2f: sp = sim_d2f(sp); break;
#define signext_(w,n) ((((w) & (1<<n)-1) ^ (1<<n-1)) - (1<<n-1))
case j_int2byte: stk_(sp,0) = signext_(stk_(sp,0), 8); break;
case j_int2char: stk_(sp,0) = stk_(sp,0) & 0xffff; break;
case j_int2short: stk_(sp,0) = signext_(stk_(sp,0), 16); break;
#define condbr(TEST) t2 = s16i_(pc); if (TEST) pc += t2-3
case j_ifeq: condbr(pop_(sp) == 0); break;
case j_ifnull: condbr(pop_(sp) == HR_NULL); break;
case j_iflt: condbr(pop_(sp) < 0); break;
case j_ifle: condbr(pop_(sp) <= 0); break;
case j_ifne: condbr(pop_(sp) != 0); break;
case j_ifnonnull: condbr(pop_(sp) != HR_NULL); break;
case j_ifgt: condbr(pop_(sp) > 0); break;
case j_ifge: condbr(pop_(sp) >= 0); break;
case j_if_icmpeq: sv = pop_(sp); condbr(pop_(sp) == sv); break;
case j_if_icmpne: sv = pop_(sp); condbr(pop_(sp) != sv); break;
case j_if_icmplt: sv = pop_(sp); condbr(pop_(sp) < sv); break;
case j_if_icmpgt: sv = pop_(sp); condbr(pop_(sp) > sv); break;
case j_if_icmple: sv = pop_(sp); condbr(pop_(sp) <= sv); break;
case j_if_icmpge: sv = pop_(sp); condbr(pop_(sp) >= sv); break;
case j_lcmp:
case j_fcmpl:
case j_fcmpg:
case j_dcmpl:
case j_dcmpg:
case j_if_acmpeq:
case j_if_acmpne:
case j_goto: t2 = s16i_(pc); pc += t2-3; break;
case j_goto_w: t2 = s32i_(pc); pc += t2-5; break;
case j_jsr: t2 = s16i_(pc); push_(sp,(int32)pc); pc += t2-3; break; /*ALPHA*/
case j_jsr_w: t2 = s32i_(pc); push_(sp,(int32)pc); pc += t2-5; break; /*ALPHA*/
case j_ret: t2 = u8i_(pc); pc = (int8 *)stk_(sp, t2); break; /*ALPHA*/
case j_ret_w: t2 = u16i_(pc); pc = (int8 *)stk_(sp, t2); break; /*ALPHA*/
case j_ireturn:
case j_lreturn:
case j_freturn:
case j_dreturn:
case j_areturn:
case j_return:
case j_breakpoint:
case j_tableswitch:
case j_lookupswitch:
case j_putfield: goto unimp;
case j_getfield:
if ((sv_qua_array = (JavaArray *)stk_(sp,0)) == HR_NULL) /*ALPHA*/
{ jraise(E_NullPointerException);
}
case j_putstatic: goto unimp;
case j_getstatic: t2 = u16i_(pc);
push_(sp, (int32)&java_PrintStream); /* @@@ */
break; /* @@@ */
case j_invokevirtual: t2 = u16i_(pc);
cf = (ClassFile *)*spbase;
if (cf != &java_PrintStream)
jsyserr("invokevirtual");
if (cf->methods_count == 1 && /* @@@ */
cf->methods[0].access_flags & ACC_NATIVE)
{ sp = ((JavaBuiltin)(cf->methods[0].attributes))(spbase);
}
else
{ lv = spbase;
spbase = sp+1;
goto unimp;
}
break;
case j_invokenonvirtual: goto unimp;
case j_invokestatic: goto unimp;
case j_invokeinterface: goto unimp;
case j_athrow: goto unimp;
case j_new: t2 = u16i_(pc);
term_printf("NEW %d %d %.8x\n",
t2, cp[t2].tag, cp_maybe_string_(t2));
goto unimp;
case j_checkcast: goto unimp;
case j_instanceof: goto unimp;
case j_monitorenter: goto unimp;
case j_monitorexit: goto unimp;
}
}