mirror of
https://github.com/LuaJIT/LuaJIT.git
synced 2025-02-07 23:24:09 +00:00
PPCSPE: Fix dispatch for binop metamethods.
This commit is contained in:
Mike Pall
parent
9687472454
commit
6599bc7db2
@ -802,6 +802,7 @@ static void build_subroutines(BuildCtx *ctx)
|
||||
| // BASE = old base, CRET1 = new base, stack = cont/func/o1/o2
|
||||
| sub TMP1, CRET1, BASE
|
||||
| stw PC, -16(CRET1) // [cont|PC]
|
||||
| mr TMP2, BASE
|
||||
| addi PC, TMP1, FRAME_CONT
|
||||
| mr BASE, CRET1
|
||||
| li NARGS8:RC, 16 // 2 args for func(o1, o2).
|
||||
|
||||
@ -12,7 +12,7 @@
|
||||
#define DASM_SECTION_CODE_OP 0
|
||||
#define DASM_SECTION_CODE_SUB 1
|
||||
#define DASM_MAXSECTION 2
|
||||
static const unsigned int build_actionlist[4992] = {
|
||||
static const unsigned int build_actionlist[4993] = {
|
||||
0x00010001,
|
||||
0x00060014,
|
||||
0x72000000,
|
||||
@ -733,6 +733,7 @@ static const unsigned int build_actionlist[4992] = {
|
||||
0x00060035,
|
||||
0x7d0e1850,
|
||||
0x9203fff0,
|
||||
0x7dc97378,
|
||||
0x3a080000,
|
||||
0x00098200,
|
||||
0x7c6e1b78,
|
||||
@ -5376,104 +5377,104 @@ static void build_subroutines(BuildCtx *ctx)
|
||||
dasm_put(Dst, 637, -(BCBIAS_J*4 >> 16), LJ_TTRUE, LJ_TFALSE, Dt1(->base));
|
||||
dasm_put(Dst, 706, Dt1(->base), FRAME_CONT);
|
||||
#ifdef LUAJIT_ENABLE_LUA52COMPAT
|
||||
dasm_put(Dst, 728);
|
||||
dasm_put(Dst, 729);
|
||||
#endif
|
||||
dasm_put(Dst, 730, Dt1(->base));
|
||||
dasm_put(Dst, 731, Dt1(->base));
|
||||
#ifdef LUAJIT_ENABLE_LUA52COMPAT
|
||||
dasm_put(Dst, 738);
|
||||
dasm_put(Dst, 739);
|
||||
#else
|
||||
dasm_put(Dst, 745);
|
||||
dasm_put(Dst, 746);
|
||||
#endif
|
||||
dasm_put(Dst, 748, Dt1(->base), Dt7(->pc), Dt1(->base), Dt1(->base));
|
||||
dasm_put(Dst, 749, Dt1(->base), Dt7(->pc), Dt1(->base), Dt1(->base));
|
||||
#if LJ_HASJIT
|
||||
dasm_put(Dst, 796);
|
||||
dasm_put(Dst, 797);
|
||||
#endif
|
||||
dasm_put(Dst, 798);
|
||||
dasm_put(Dst, 799);
|
||||
#if LJ_HASJIT
|
||||
dasm_put(Dst, 800, BC_JFORI);
|
||||
dasm_put(Dst, 801, BC_JFORI);
|
||||
#endif
|
||||
dasm_put(Dst, 803);
|
||||
dasm_put(Dst, 804);
|
||||
#if LJ_HASJIT
|
||||
dasm_put(Dst, 805, BC_JFORI);
|
||||
dasm_put(Dst, 806, BC_JFORI);
|
||||
#endif
|
||||
dasm_put(Dst, 808, BC_FORI, ~LJ_TNUMX, 31-3, Dt8(->upvalue), Dt6(->metatable), DISPATCH_GL(gcroot[GCROOT_MMNAME+MM_metatable]));
|
||||
dasm_put(Dst, 873, Dt6(->hmask), Dt5(->hash), Dt6(->node), 31-5, 31-3, DtB(->key), DtB(->val), DtB(->next), LJ_TUDATA, 31-2, 4*~LJ_TNUMX, DISPATCH_GL(gcroot[GCROOT_BASEMT]));
|
||||
dasm_put(Dst, 929, Dt6(->metatable), Dt6(->marked), LJ_GC_BLACK, Dt6(->metatable), DISPATCH_GL(gc.grayagain), DISPATCH_GL(gc.grayagain), Dt6(->marked), Dt6(->gclist));
|
||||
dasm_put(Dst, 989, DISPATCH_GL(gcroot[GCROOT_BASEMT_NUM]), Dt1(->base), DISPATCH_GL(gc.total), DISPATCH_GL(gc.threshold), Dt1(->base), Dt1(->top), (2+1)*8);
|
||||
dasm_put(Dst, 809, BC_FORI, ~LJ_TNUMX, 31-3, Dt8(->upvalue), Dt6(->metatable), DISPATCH_GL(gcroot[GCROOT_MMNAME+MM_metatable]));
|
||||
dasm_put(Dst, 874, Dt6(->hmask), Dt5(->hash), Dt6(->node), 31-5, 31-3, DtB(->key), DtB(->val), DtB(->next), LJ_TUDATA, 31-2, 4*~LJ_TNUMX, DISPATCH_GL(gcroot[GCROOT_BASEMT]));
|
||||
dasm_put(Dst, 930, Dt6(->metatable), Dt6(->marked), LJ_GC_BLACK, Dt6(->metatable), DISPATCH_GL(gc.grayagain), DISPATCH_GL(gc.grayagain), Dt6(->marked), Dt6(->gclist));
|
||||
dasm_put(Dst, 990, DISPATCH_GL(gcroot[GCROOT_BASEMT_NUM]), Dt1(->base), DISPATCH_GL(gc.total), DISPATCH_GL(gc.threshold), Dt1(->base), Dt1(->top), (2+1)*8);
|
||||
#ifdef LUAJIT_ENABLE_LUA52COMPAT
|
||||
dasm_put(Dst, 1062, Dt6(->metatable), Dt8(->upvalue[0]));
|
||||
dasm_put(Dst, 1063, Dt6(->metatable), Dt8(->upvalue[0]));
|
||||
#else
|
||||
dasm_put(Dst, 1071, Dt8(->upvalue[0]));
|
||||
dasm_put(Dst, 1072, Dt8(->upvalue[0]));
|
||||
#endif
|
||||
dasm_put(Dst, 1075, (3+1)*8, Dt6(->asize), Dt6(->array), 31-3, (0+1)*8, (2+1)*8, Dt6(->hmask), (0+1)*8, (0+1)*8);
|
||||
dasm_put(Dst, 1139);
|
||||
dasm_put(Dst, 1076, (3+1)*8, Dt6(->asize), Dt6(->array), 31-3, (0+1)*8, (2+1)*8, Dt6(->hmask), (0+1)*8, (0+1)*8);
|
||||
dasm_put(Dst, 1140);
|
||||
#ifdef LUAJIT_ENABLE_LUA52COMPAT
|
||||
dasm_put(Dst, 1152, Dt6(->metatable), Dt8(->upvalue[0]));
|
||||
dasm_put(Dst, 1153, Dt6(->metatable), Dt8(->upvalue[0]));
|
||||
#else
|
||||
dasm_put(Dst, 1161, Dt8(->upvalue[0]));
|
||||
dasm_put(Dst, 1162, Dt8(->upvalue[0]));
|
||||
#endif
|
||||
dasm_put(Dst, 1165, (3+1)*8, DISPATCH_GL(hookmask), 32-HOOK_ACTIVE_SHIFT, 8+FRAME_PCALL, DISPATCH_GL(hookmask), 32-HOOK_ACTIVE_SHIFT, 16+FRAME_PCALL, LJ_TTHREAD, Dt1(->status), Dt1(->cframe), Dt1(->top));
|
||||
dasm_put(Dst, 1226, LUA_YIELD, Dt1(->base), Dt1(->maxstack), Dt1(->base), Dt1(->top), Dt1(->top), Dt1(->base), LUA_YIELD, Dt1(->top), ~LJ_VMST_INTERP, Dt1(->base), DISPATCH_GL(vmstate), Dt1(->maxstack));
|
||||
dasm_put(Dst, 1289, Dt1(->top), FRAME_TYPE, LJ_TTRUE, FRAME_TYPE, LJ_TFALSE, Dt1(->top), (2+1)*8, 32-3);
|
||||
dasm_put(Dst, 1349, Dt8(->upvalue[0].gcr), Dt1(->status), Dt1(->cframe), Dt1(->top), LUA_YIELD, Dt1(->base), Dt1(->maxstack), Dt1(->base), Dt1(->top), Dt1(->top), Dt1(->base), LUA_YIELD, Dt1(->top), ~LJ_VMST_INTERP);
|
||||
dasm_put(Dst, 1408, Dt1(->base), DISPATCH_GL(vmstate), Dt1(->maxstack), Dt1(->top), FRAME_TYPE, 32-3, Dt1(->cframe));
|
||||
dasm_put(Dst, 1465, Dt1(->base), CFRAME_RESUME, Dt1(->top), LUA_YIELD, Dt1(->cframe), Dt1(->status), (1+1)*8, FRAME_TYPE);
|
||||
dasm_put(Dst, 1530);
|
||||
dasm_put(Dst, 1599);
|
||||
dasm_put(Dst, 1662);
|
||||
dasm_put(Dst, 1727);
|
||||
dasm_put(Dst, 1797, Dt8(->upvalue[0]), DISPATCH_GL(tmptv), DISPATCH_GL(tmptv), (2+1)*8, (2+1)*8);
|
||||
dasm_put(Dst, 1869, Dt5(->len));
|
||||
dasm_put(Dst, 1936, Dt5(->len), (0+1)*8, Dt5([1]), (1+1)*8, DISPATCH_GL(gc.total), DISPATCH_GL(gc.threshold), DISPATCH_GL(tmptv), Dt1(->base), Dt1(->base), DISPATCH_GL(gc.total), DISPATCH_GL(gc.threshold));
|
||||
dasm_put(Dst, 1996, Dt5(->len), sizeof(GCstr)-1, DISPATCH_GL(gc.total), DISPATCH_GL(gc.threshold));
|
||||
dasm_put(Dst, 2062, Dt5(->len), DISPATCH_GL(tmpbuf.sz), Dt5([1]), DISPATCH_GL(tmpbuf.buf), DISPATCH_GL(strempty), DISPATCH_GL(gc.total), DISPATCH_GL(gc.threshold));
|
||||
dasm_put(Dst, 2121, DISPATCH_GL(tmpbuf.sz), Dt5(->len), sizeof(GCstr), DISPATCH_GL(tmpbuf.buf), DISPATCH_GL(gc.total), DISPATCH_GL(gc.threshold), DISPATCH_GL(tmpbuf.sz), Dt5(->len), sizeof(GCstr), DISPATCH_GL(tmpbuf.buf));
|
||||
dasm_put(Dst, 2180, DISPATCH_GL(gc.total), DISPATCH_GL(gc.threshold), DISPATCH_GL(tmpbuf.sz), Dt5(->len), sizeof(GCstr), DISPATCH_GL(tmpbuf.buf));
|
||||
dasm_put(Dst, 2247);
|
||||
dasm_put(Dst, 2318);
|
||||
dasm_put(Dst, 2406, Dt8(->f), 8*LUA_MINSTACK, Dt1(->maxstack), Dt1(->base), Dt1(->top), Dt1(->base), 31-3, Dt1(->top), Dt7(->pc));
|
||||
dasm_put(Dst, 2485, FRAME_TYPE, LUA_MINSTACK, Dt1(->base), Dt1(->base), Dt1(->top), Dt1(->base), Dt1(->top));
|
||||
dasm_put(Dst, 1166, (3+1)*8, DISPATCH_GL(hookmask), 32-HOOK_ACTIVE_SHIFT, 8+FRAME_PCALL, DISPATCH_GL(hookmask), 32-HOOK_ACTIVE_SHIFT, 16+FRAME_PCALL, LJ_TTHREAD, Dt1(->status), Dt1(->cframe), Dt1(->top));
|
||||
dasm_put(Dst, 1227, LUA_YIELD, Dt1(->base), Dt1(->maxstack), Dt1(->base), Dt1(->top), Dt1(->top), Dt1(->base), LUA_YIELD, Dt1(->top), ~LJ_VMST_INTERP, Dt1(->base), DISPATCH_GL(vmstate), Dt1(->maxstack));
|
||||
dasm_put(Dst, 1290, Dt1(->top), FRAME_TYPE, LJ_TTRUE, FRAME_TYPE, LJ_TFALSE, Dt1(->top), (2+1)*8, 32-3);
|
||||
dasm_put(Dst, 1350, Dt8(->upvalue[0].gcr), Dt1(->status), Dt1(->cframe), Dt1(->top), LUA_YIELD, Dt1(->base), Dt1(->maxstack), Dt1(->base), Dt1(->top), Dt1(->top), Dt1(->base), LUA_YIELD, Dt1(->top), ~LJ_VMST_INTERP);
|
||||
dasm_put(Dst, 1409, Dt1(->base), DISPATCH_GL(vmstate), Dt1(->maxstack), Dt1(->top), FRAME_TYPE, 32-3, Dt1(->cframe));
|
||||
dasm_put(Dst, 1466, Dt1(->base), CFRAME_RESUME, Dt1(->top), LUA_YIELD, Dt1(->cframe), Dt1(->status), (1+1)*8, FRAME_TYPE);
|
||||
dasm_put(Dst, 1531);
|
||||
dasm_put(Dst, 1600);
|
||||
dasm_put(Dst, 1663);
|
||||
dasm_put(Dst, 1728);
|
||||
dasm_put(Dst, 1798, Dt8(->upvalue[0]), DISPATCH_GL(tmptv), DISPATCH_GL(tmptv), (2+1)*8, (2+1)*8);
|
||||
dasm_put(Dst, 1870, Dt5(->len));
|
||||
dasm_put(Dst, 1937, Dt5(->len), (0+1)*8, Dt5([1]), (1+1)*8, DISPATCH_GL(gc.total), DISPATCH_GL(gc.threshold), DISPATCH_GL(tmptv), Dt1(->base), Dt1(->base), DISPATCH_GL(gc.total), DISPATCH_GL(gc.threshold));
|
||||
dasm_put(Dst, 1997, Dt5(->len), sizeof(GCstr)-1, DISPATCH_GL(gc.total), DISPATCH_GL(gc.threshold));
|
||||
dasm_put(Dst, 2063, Dt5(->len), DISPATCH_GL(tmpbuf.sz), Dt5([1]), DISPATCH_GL(tmpbuf.buf), DISPATCH_GL(strempty), DISPATCH_GL(gc.total), DISPATCH_GL(gc.threshold));
|
||||
dasm_put(Dst, 2122, DISPATCH_GL(tmpbuf.sz), Dt5(->len), sizeof(GCstr), DISPATCH_GL(tmpbuf.buf), DISPATCH_GL(gc.total), DISPATCH_GL(gc.threshold), DISPATCH_GL(tmpbuf.sz), Dt5(->len), sizeof(GCstr), DISPATCH_GL(tmpbuf.buf));
|
||||
dasm_put(Dst, 2181, DISPATCH_GL(gc.total), DISPATCH_GL(gc.threshold), DISPATCH_GL(tmpbuf.sz), Dt5(->len), sizeof(GCstr), DISPATCH_GL(tmpbuf.buf));
|
||||
dasm_put(Dst, 2248);
|
||||
dasm_put(Dst, 2319);
|
||||
dasm_put(Dst, 2407, Dt8(->f), 8*LUA_MINSTACK, Dt1(->maxstack), Dt1(->base), Dt1(->top), Dt1(->base), 31-3, Dt1(->top), Dt7(->pc));
|
||||
dasm_put(Dst, 2486, FRAME_TYPE, LUA_MINSTACK, Dt1(->base), Dt1(->base), Dt1(->top), Dt1(->base), Dt1(->top));
|
||||
#if LJ_HASJIT
|
||||
dasm_put(Dst, 2527);
|
||||
dasm_put(Dst, 2528);
|
||||
#endif
|
||||
dasm_put(Dst, 2529, DISPATCH_GL(hookmask), HOOK_ACTIVE, GG_DISP2STATIC, DISPATCH_GL(hookmask), DISPATCH_GL(hookcount), HOOK_ACTIVE, 31-LUA_HOOKLINE, DISPATCH_GL(hookcount), Dt1(->base), Dt1(->base));
|
||||
dasm_put(Dst, 2576, GG_DISP2STATIC);
|
||||
dasm_put(Dst, 2530, DISPATCH_GL(hookmask), HOOK_ACTIVE, GG_DISP2STATIC, DISPATCH_GL(hookmask), DISPATCH_GL(hookcount), HOOK_ACTIVE, 31-LUA_HOOKLINE, DISPATCH_GL(hookcount), Dt1(->base), Dt1(->base));
|
||||
dasm_put(Dst, 2577, GG_DISP2STATIC);
|
||||
#if LJ_HASJIT
|
||||
dasm_put(Dst, 2594);
|
||||
dasm_put(Dst, 2595);
|
||||
#endif
|
||||
dasm_put(Dst, 2596);
|
||||
dasm_put(Dst, 2597);
|
||||
#if LJ_HASJIT
|
||||
dasm_put(Dst, 2599);
|
||||
dasm_put(Dst, 2600);
|
||||
#endif
|
||||
dasm_put(Dst, 2602);
|
||||
dasm_put(Dst, 2603);
|
||||
#if LJ_HASJIT
|
||||
dasm_put(Dst, 2604);
|
||||
dasm_put(Dst, 2605);
|
||||
#endif
|
||||
dasm_put(Dst, 2607, Dt1(->base), Dt1(->top), Dt1(->base), Dt1(->top));
|
||||
dasm_put(Dst, 2608, Dt1(->base), Dt1(->top), Dt1(->base), Dt1(->top));
|
||||
#if LJ_HASJIT
|
||||
dasm_put(Dst, 2629);
|
||||
dasm_put(Dst, 2630);
|
||||
#endif
|
||||
dasm_put(Dst, 2631);
|
||||
dasm_put(Dst, 2632);
|
||||
#if LJ_HASJIT
|
||||
dasm_put(Dst, 2633);
|
||||
dasm_put(Dst, 2634);
|
||||
#endif
|
||||
dasm_put(Dst, 2635);
|
||||
dasm_put(Dst, 2636);
|
||||
#if LJ_HASJIT
|
||||
dasm_put(Dst, 2719);
|
||||
dasm_put(Dst, 2720);
|
||||
#else
|
||||
dasm_put(Dst, 2742);
|
||||
dasm_put(Dst, 2743);
|
||||
#endif
|
||||
dasm_put(Dst, 2745);
|
||||
dasm_put(Dst, 2746);
|
||||
#if LJ_HASJIT
|
||||
dasm_put(Dst, 2747);
|
||||
dasm_put(Dst, 2748);
|
||||
#endif
|
||||
dasm_put(Dst, 2749);
|
||||
dasm_put(Dst, 2750);
|
||||
#if LJ_HASJIT
|
||||
dasm_put(Dst, 2751);
|
||||
dasm_put(Dst, 2752);
|
||||
#endif
|
||||
dasm_put(Dst, 2753);
|
||||
dasm_put(Dst, 2754);
|
||||
#if LJ_HASFFI
|
||||
dasm_put(Dst, 2816);
|
||||
dasm_put(Dst, 2817);
|
||||
#endif
|
||||
}
|
||||
|
||||
@ -5481,7 +5482,7 @@ static void build_subroutines(BuildCtx *ctx)
|
||||
static void build_ins(BuildCtx *ctx, BCOp op, int defop)
|
||||
{
|
||||
int vk = 0;
|
||||
dasm_put(Dst, 2818, defop);
|
||||
dasm_put(Dst, 2819, defop);
|
||||
|
||||
switch (op) {
|
||||
|
||||
@ -5490,118 +5491,118 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop)
|
||||
/* Remember: all ops branch for a true comparison, fall through otherwise. */
|
||||
|
||||
case BC_ISLT: case BC_ISGE: case BC_ISLE: case BC_ISGT:
|
||||
dasm_put(Dst, 2820, -(BCBIAS_J*4 >> 16));
|
||||
dasm_put(Dst, 2821, -(BCBIAS_J*4 >> 16));
|
||||
if (op == BC_ISLE || op == BC_ISGT) {
|
||||
dasm_put(Dst, 2834);
|
||||
dasm_put(Dst, 2835);
|
||||
}
|
||||
if (op == BC_ISLT || op == BC_ISLE) {
|
||||
dasm_put(Dst, 2837);
|
||||
dasm_put(Dst, 2838);
|
||||
} else {
|
||||
dasm_put(Dst, 2839);
|
||||
dasm_put(Dst, 2840);
|
||||
}
|
||||
dasm_put(Dst, 2841);
|
||||
dasm_put(Dst, 2842);
|
||||
break;
|
||||
|
||||
case BC_ISEQV: case BC_ISNEV:
|
||||
vk = op == BC_ISEQV;
|
||||
dasm_put(Dst, 2852, -(BCBIAS_J*4 >> 16));
|
||||
dasm_put(Dst, 2853, -(BCBIAS_J*4 >> 16));
|
||||
if (vk) {
|
||||
dasm_put(Dst, 2866);
|
||||
dasm_put(Dst, 2867);
|
||||
} else {
|
||||
dasm_put(Dst, 2868);
|
||||
dasm_put(Dst, 2869);
|
||||
}
|
||||
dasm_put(Dst, 2870, ~LJ_TISPRI, ~LJ_TISTABUD);
|
||||
dasm_put(Dst, 2871, ~LJ_TISPRI, ~LJ_TISTABUD);
|
||||
if (vk) {
|
||||
dasm_put(Dst, 2892);
|
||||
dasm_put(Dst, 2893);
|
||||
} else {
|
||||
dasm_put(Dst, 2894);
|
||||
dasm_put(Dst, 2895);
|
||||
}
|
||||
dasm_put(Dst, 2896);
|
||||
dasm_put(Dst, 2897);
|
||||
if (vk) {
|
||||
dasm_put(Dst, 2898);
|
||||
dasm_put(Dst, 2899);
|
||||
} else {
|
||||
dasm_put(Dst, 2900);
|
||||
dasm_put(Dst, 2901);
|
||||
}
|
||||
dasm_put(Dst, 2902, Dt6(->metatable), 1-vk, Dt6(->nomm), 1<<MM_eq);
|
||||
dasm_put(Dst, 2903, Dt6(->metatable), 1-vk, Dt6(->nomm), 1<<MM_eq);
|
||||
break;
|
||||
|
||||
case BC_ISEQS: case BC_ISNES:
|
||||
vk = op == BC_ISEQS;
|
||||
dasm_put(Dst, 2923, 32-1, -(BCBIAS_J*4 >> 16));
|
||||
dasm_put(Dst, 2924, 32-1, -(BCBIAS_J*4 >> 16));
|
||||
if (vk) {
|
||||
dasm_put(Dst, 2937);
|
||||
dasm_put(Dst, 2938);
|
||||
} else {
|
||||
dasm_put(Dst, 2939);
|
||||
dasm_put(Dst, 2940);
|
||||
}
|
||||
dasm_put(Dst, 2941);
|
||||
dasm_put(Dst, 2942);
|
||||
break;
|
||||
|
||||
case BC_ISEQN: case BC_ISNEN:
|
||||
vk = op == BC_ISEQN;
|
||||
dasm_put(Dst, 2952, -(BCBIAS_J*4 >> 16));
|
||||
dasm_put(Dst, 2953, -(BCBIAS_J*4 >> 16));
|
||||
if (vk) {
|
||||
dasm_put(Dst, 2966);
|
||||
dasm_put(Dst, 2967);
|
||||
} else {
|
||||
dasm_put(Dst, 2969);
|
||||
dasm_put(Dst, 2970);
|
||||
}
|
||||
dasm_put(Dst, 2971);
|
||||
dasm_put(Dst, 2972);
|
||||
if (!vk) {
|
||||
dasm_put(Dst, 2983);
|
||||
dasm_put(Dst, 2984);
|
||||
}
|
||||
break;
|
||||
|
||||
case BC_ISEQP: case BC_ISNEP:
|
||||
vk = op == BC_ISEQP;
|
||||
dasm_put(Dst, 2989, 32-3, -(BCBIAS_J*4 >> 16));
|
||||
dasm_put(Dst, 2990, 32-3, -(BCBIAS_J*4 >> 16));
|
||||
if (vk) {
|
||||
dasm_put(Dst, 3001);
|
||||
dasm_put(Dst, 3002);
|
||||
} else {
|
||||
dasm_put(Dst, 3003);
|
||||
dasm_put(Dst, 3004);
|
||||
}
|
||||
dasm_put(Dst, 3005);
|
||||
dasm_put(Dst, 3006);
|
||||
break;
|
||||
|
||||
/* -- Unary test and copy ops ------------------------------------------- */
|
||||
|
||||
case BC_ISTC: case BC_ISFC: case BC_IST: case BC_ISF:
|
||||
dasm_put(Dst, 3016);
|
||||
dasm_put(Dst, 3017);
|
||||
if (op == BC_IST || op == BC_ISF) {
|
||||
dasm_put(Dst, 3022, -(BCBIAS_J*4 >> 16));
|
||||
dasm_put(Dst, 3023, -(BCBIAS_J*4 >> 16));
|
||||
if (op == BC_IST) {
|
||||
dasm_put(Dst, 3027);
|
||||
dasm_put(Dst, 3028);
|
||||
} else {
|
||||
dasm_put(Dst, 3029);
|
||||
dasm_put(Dst, 3030);
|
||||
}
|
||||
} else {
|
||||
if (op == BC_ISTC) {
|
||||
dasm_put(Dst, 3031);
|
||||
dasm_put(Dst, 3032);
|
||||
} else {
|
||||
dasm_put(Dst, 3034);
|
||||
dasm_put(Dst, 3035);
|
||||
}
|
||||
dasm_put(Dst, 3037, -(BCBIAS_J*4 >> 16));
|
||||
dasm_put(Dst, 3038, -(BCBIAS_J*4 >> 16));
|
||||
}
|
||||
dasm_put(Dst, 3044);
|
||||
dasm_put(Dst, 3045);
|
||||
break;
|
||||
|
||||
/* -- Unary ops --------------------------------------------------------- */
|
||||
|
||||
case BC_MOV:
|
||||
dasm_put(Dst, 3055);
|
||||
dasm_put(Dst, 3056);
|
||||
break;
|
||||
case BC_NOT:
|
||||
dasm_put(Dst, 3068, LJ_TTRUE);
|
||||
dasm_put(Dst, 3069, LJ_TTRUE);
|
||||
break;
|
||||
case BC_UNM:
|
||||
dasm_put(Dst, 3084);
|
||||
dasm_put(Dst, 3085);
|
||||
break;
|
||||
case BC_LEN:
|
||||
dasm_put(Dst, 3101, Dt5(->len));
|
||||
dasm_put(Dst, 3102, Dt5(->len));
|
||||
#ifdef LUAJIT_ENABLE_LUA52COMPAT
|
||||
dasm_put(Dst, 3125, Dt6(->metatable));
|
||||
dasm_put(Dst, 3126, Dt6(->metatable));
|
||||
#endif
|
||||
dasm_put(Dst, 3132);
|
||||
dasm_put(Dst, 3133);
|
||||
#ifdef LUAJIT_ENABLE_LUA52COMPAT
|
||||
dasm_put(Dst, 3138, Dt6(->nomm), 1<<MM_len);
|
||||
dasm_put(Dst, 3139, Dt6(->nomm), 1<<MM_len);
|
||||
#endif
|
||||
break;
|
||||
|
||||
@ -5612,262 +5613,262 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop)
|
||||
vk = ((int)op - BC_ADDVN) / (BC_ADDNV-BC_ADDVN);
|
||||
switch (vk) {
|
||||
case 0:
|
||||
dasm_put(Dst, 3148);
|
||||
dasm_put(Dst, 3149);
|
||||
break;
|
||||
case 1:
|
||||
dasm_put(Dst, 3154);
|
||||
dasm_put(Dst, 3155);
|
||||
break;
|
||||
default:
|
||||
dasm_put(Dst, 3160);
|
||||
dasm_put(Dst, 3161);
|
||||
break;
|
||||
}
|
||||
dasm_put(Dst, 3167);
|
||||
dasm_put(Dst, 3168);
|
||||
break;
|
||||
case BC_SUBVN: case BC_SUBNV: case BC_SUBVV:
|
||||
vk = ((int)op - BC_ADDVN) / (BC_ADDNV-BC_ADDVN);
|
||||
switch (vk) {
|
||||
case 0:
|
||||
dasm_put(Dst, 3180);
|
||||
dasm_put(Dst, 3181);
|
||||
break;
|
||||
case 1:
|
||||
dasm_put(Dst, 3186);
|
||||
dasm_put(Dst, 3187);
|
||||
break;
|
||||
default:
|
||||
dasm_put(Dst, 3192);
|
||||
dasm_put(Dst, 3193);
|
||||
break;
|
||||
}
|
||||
dasm_put(Dst, 3199);
|
||||
dasm_put(Dst, 3200);
|
||||
break;
|
||||
case BC_MULVN: case BC_MULNV: case BC_MULVV:
|
||||
vk = ((int)op - BC_ADDVN) / (BC_ADDNV-BC_ADDVN);
|
||||
switch (vk) {
|
||||
case 0:
|
||||
dasm_put(Dst, 3212);
|
||||
dasm_put(Dst, 3213);
|
||||
break;
|
||||
case 1:
|
||||
dasm_put(Dst, 3218);
|
||||
dasm_put(Dst, 3219);
|
||||
break;
|
||||
default:
|
||||
dasm_put(Dst, 3224);
|
||||
dasm_put(Dst, 3225);
|
||||
break;
|
||||
}
|
||||
dasm_put(Dst, 3231);
|
||||
dasm_put(Dst, 3232);
|
||||
break;
|
||||
case BC_DIVVN: case BC_DIVNV: case BC_DIVVV:
|
||||
vk = ((int)op - BC_ADDVN) / (BC_ADDNV-BC_ADDVN);
|
||||
switch (vk) {
|
||||
case 0:
|
||||
dasm_put(Dst, 3244);
|
||||
dasm_put(Dst, 3245);
|
||||
break;
|
||||
case 1:
|
||||
dasm_put(Dst, 3250);
|
||||
dasm_put(Dst, 3251);
|
||||
break;
|
||||
default:
|
||||
dasm_put(Dst, 3256);
|
||||
dasm_put(Dst, 3257);
|
||||
break;
|
||||
}
|
||||
dasm_put(Dst, 3263);
|
||||
dasm_put(Dst, 3264);
|
||||
break;
|
||||
case BC_MODVN:
|
||||
vk = ((int)op - BC_ADDVN) / (BC_ADDNV-BC_ADDVN);
|
||||
switch (vk) {
|
||||
case 0:
|
||||
dasm_put(Dst, 3276);
|
||||
dasm_put(Dst, 3277);
|
||||
break;
|
||||
case 1:
|
||||
dasm_put(Dst, 3282);
|
||||
dasm_put(Dst, 3283);
|
||||
break;
|
||||
default:
|
||||
dasm_put(Dst, 3288);
|
||||
dasm_put(Dst, 3289);
|
||||
break;
|
||||
}
|
||||
dasm_put(Dst, 3295);
|
||||
dasm_put(Dst, 3296);
|
||||
break;
|
||||
case BC_MODNV: case BC_MODVV:
|
||||
vk = ((int)op - BC_ADDVN) / (BC_ADDNV-BC_ADDVN);
|
||||
switch (vk) {
|
||||
case 0:
|
||||
dasm_put(Dst, 3313);
|
||||
dasm_put(Dst, 3314);
|
||||
break;
|
||||
case 1:
|
||||
dasm_put(Dst, 3319);
|
||||
dasm_put(Dst, 3320);
|
||||
break;
|
||||
default:
|
||||
dasm_put(Dst, 3325);
|
||||
dasm_put(Dst, 3326);
|
||||
break;
|
||||
}
|
||||
dasm_put(Dst, 3332);
|
||||
dasm_put(Dst, 3333);
|
||||
break;
|
||||
case BC_POW:
|
||||
dasm_put(Dst, 3335);
|
||||
dasm_put(Dst, 3336);
|
||||
break;
|
||||
|
||||
case BC_CAT:
|
||||
dasm_put(Dst, 3357, Dt1(->base), 32-3, Dt1(->base));
|
||||
dasm_put(Dst, 3358, Dt1(->base), 32-3, Dt1(->base));
|
||||
break;
|
||||
|
||||
/* -- Constant ops ------------------------------------------------------ */
|
||||
|
||||
case BC_KSTR:
|
||||
dasm_put(Dst, 3387, 32-1);
|
||||
dasm_put(Dst, 3388, 32-1);
|
||||
break;
|
||||
case BC_KCDATA:
|
||||
#if LJ_HASFFI
|
||||
dasm_put(Dst, 3404, 32-1, LJ_TCDATA);
|
||||
dasm_put(Dst, 3405, 32-1, LJ_TCDATA);
|
||||
#endif
|
||||
break;
|
||||
case BC_KSHORT:
|
||||
dasm_put(Dst, 3423, 32-3);
|
||||
dasm_put(Dst, 3424, 32-3);
|
||||
break;
|
||||
case BC_KNUM:
|
||||
dasm_put(Dst, 3439);
|
||||
dasm_put(Dst, 3440);
|
||||
break;
|
||||
case BC_KPRI:
|
||||
dasm_put(Dst, 3452, 32-3);
|
||||
dasm_put(Dst, 3453, 32-3);
|
||||
break;
|
||||
case BC_KNIL:
|
||||
dasm_put(Dst, 3467);
|
||||
dasm_put(Dst, 3468);
|
||||
break;
|
||||
|
||||
/* -- Upvalue and function ops ------------------------------------------ */
|
||||
|
||||
case BC_UGET:
|
||||
dasm_put(Dst, 3486, 32-1, offsetof(GCfuncL, uvptr), DtA(->v));
|
||||
dasm_put(Dst, 3487, 32-1, offsetof(GCfuncL, uvptr), DtA(->v));
|
||||
break;
|
||||
case BC_USETV:
|
||||
dasm_put(Dst, 3507, 32-1, offsetof(GCfuncL, uvptr), DtA(->marked), DtA(->v), LJ_GC_BLACK, DtA(->closed), -(LJ_TISNUM+1), LJ_TISGCV - (LJ_TISNUM+1), Dt4(->gch.marked), LJ_GC_WHITES, GG_DISP2G);
|
||||
dasm_put(Dst, 3508, 32-1, offsetof(GCfuncL, uvptr), DtA(->marked), DtA(->v), LJ_GC_BLACK, DtA(->closed), -(LJ_TISNUM+1), LJ_TISGCV - (LJ_TISNUM+1), Dt4(->gch.marked), LJ_GC_WHITES, GG_DISP2G);
|
||||
break;
|
||||
case BC_USETS:
|
||||
dasm_put(Dst, 3559, 32-1, 32-1, offsetof(GCfuncL, uvptr), DtA(->marked), DtA(->v), LJ_GC_BLACK, Dt5(->marked), DtA(->closed), LJ_GC_WHITES, GG_DISP2G);
|
||||
dasm_put(Dst, 3560, 32-1, 32-1, offsetof(GCfuncL, uvptr), DtA(->marked), DtA(->v), LJ_GC_BLACK, Dt5(->marked), DtA(->closed), LJ_GC_WHITES, GG_DISP2G);
|
||||
break;
|
||||
case BC_USETN:
|
||||
dasm_put(Dst, 3608, 32-1, offsetof(GCfuncL, uvptr), DtA(->v));
|
||||
dasm_put(Dst, 3609, 32-1, offsetof(GCfuncL, uvptr), DtA(->v));
|
||||
break;
|
||||
case BC_USETP:
|
||||
dasm_put(Dst, 3629, 32-1, offsetof(GCfuncL, uvptr), 32-3, DtA(->v));
|
||||
dasm_put(Dst, 3630, 32-1, offsetof(GCfuncL, uvptr), 32-3, DtA(->v));
|
||||
break;
|
||||
|
||||
case BC_UCLO:
|
||||
dasm_put(Dst, 3652, Dt1(->openupval), 32-1, -(BCBIAS_J*4 >> 16), Dt1(->base), Dt1(->base));
|
||||
dasm_put(Dst, 3653, Dt1(->openupval), 32-1, -(BCBIAS_J*4 >> 16), Dt1(->base), Dt1(->base));
|
||||
break;
|
||||
|
||||
case BC_FNEW:
|
||||
dasm_put(Dst, 3682, 32-1, Dt1(->base), Dt1(->base));
|
||||
dasm_put(Dst, 3683, 32-1, Dt1(->base), Dt1(->base));
|
||||
break;
|
||||
|
||||
/* -- Table ops --------------------------------------------------------- */
|
||||
|
||||
case BC_TNEW:
|
||||
case BC_TDUP:
|
||||
dasm_put(Dst, 3708, DISPATCH_GL(gc.total), DISPATCH_GL(gc.threshold), Dt1(->base));
|
||||
dasm_put(Dst, 3709, DISPATCH_GL(gc.total), DISPATCH_GL(gc.threshold), Dt1(->base));
|
||||
if (op == BC_TNEW) {
|
||||
dasm_put(Dst, 3721);
|
||||
dasm_put(Dst, 3722);
|
||||
} else {
|
||||
dasm_put(Dst, 3729, 32-1);
|
||||
dasm_put(Dst, 3730, 32-1);
|
||||
}
|
||||
dasm_put(Dst, 3736, Dt1(->base));
|
||||
dasm_put(Dst, 3737, Dt1(->base));
|
||||
break;
|
||||
|
||||
case BC_GGET:
|
||||
case BC_GSET:
|
||||
dasm_put(Dst, 3759, 32-1, Dt7(->env));
|
||||
dasm_put(Dst, 3760, 32-1, Dt7(->env));
|
||||
if (op == BC_GGET) {
|
||||
dasm_put(Dst, 3767);
|
||||
dasm_put(Dst, 3768);
|
||||
} else {
|
||||
dasm_put(Dst, 3770);
|
||||
dasm_put(Dst, 3771);
|
||||
}
|
||||
break;
|
||||
|
||||
case BC_TGETV:
|
||||
dasm_put(Dst, 3773, Dt6(->asize), Dt6(->array), 31-3, Dt6(->metatable), Dt6(->nomm), 1<<MM_index);
|
||||
dasm_put(Dst, 3774, Dt6(->asize), Dt6(->array), 31-3, Dt6(->metatable), Dt6(->nomm), 1<<MM_index);
|
||||
break;
|
||||
case BC_TGETS:
|
||||
dasm_put(Dst, 3831, 32-1, Dt6(->hmask), Dt5(->hash), Dt6(->node), 31-5, 31-3, DtB(->key), DtB(->val), DtB(->next), Dt6(->metatable), Dt6(->nomm), 1<<MM_index);
|
||||
dasm_put(Dst, 3895);
|
||||
dasm_put(Dst, 3832, 32-1, Dt6(->hmask), Dt5(->hash), Dt6(->node), 31-5, 31-3, DtB(->key), DtB(->val), DtB(->next), Dt6(->metatable), Dt6(->nomm), 1<<MM_index);
|
||||
dasm_put(Dst, 3896);
|
||||
break;
|
||||
case BC_TGETB:
|
||||
dasm_put(Dst, 3900, 32-3, Dt6(->asize), Dt6(->array), Dt6(->metatable), Dt6(->nomm), 1<<MM_index);
|
||||
dasm_put(Dst, 3901, 32-3, Dt6(->asize), Dt6(->array), Dt6(->metatable), Dt6(->nomm), 1<<MM_index);
|
||||
break;
|
||||
|
||||
case BC_TSETV:
|
||||
dasm_put(Dst, 3944, Dt6(->asize), Dt6(->array), 31-3, Dt6(->marked), LJ_GC_BLACK, Dt6(->metatable), Dt6(->nomm), 1<<MM_newindex);
|
||||
dasm_put(Dst, 4011, DISPATCH_GL(gc.grayagain), DISPATCH_GL(gc.grayagain), Dt6(->marked), Dt6(->gclist));
|
||||
dasm_put(Dst, 3945, Dt6(->asize), Dt6(->array), 31-3, Dt6(->marked), LJ_GC_BLACK, Dt6(->metatable), Dt6(->nomm), 1<<MM_newindex);
|
||||
dasm_put(Dst, 4012, DISPATCH_GL(gc.grayagain), DISPATCH_GL(gc.grayagain), Dt6(->marked), Dt6(->gclist));
|
||||
break;
|
||||
case BC_TSETS:
|
||||
dasm_put(Dst, 4023, 32-1, Dt6(->hmask), Dt5(->hash), Dt6(->node), Dt6(->nomm), 31-5, 31-3, Dt6(->marked), DtB(->key), DtB(->val), LJ_GC_BLACK, DtB(->val), Dt6(->metatable));
|
||||
dasm_put(Dst, 4084, Dt6(->nomm), 1<<MM_newindex, DtB(->next), Dt6(->metatable), DISPATCH_GL(tmptv), Dt1(->base), Dt6(->nomm), 1<<MM_newindex, Dt1(->base), DISPATCH_GL(gc.grayagain), DISPATCH_GL(gc.grayagain));
|
||||
dasm_put(Dst, 4135, Dt6(->marked), Dt6(->gclist));
|
||||
dasm_put(Dst, 4024, 32-1, Dt6(->hmask), Dt5(->hash), Dt6(->node), Dt6(->nomm), 31-5, 31-3, Dt6(->marked), DtB(->key), DtB(->val), LJ_GC_BLACK, DtB(->val), Dt6(->metatable));
|
||||
dasm_put(Dst, 4085, Dt6(->nomm), 1<<MM_newindex, DtB(->next), Dt6(->metatable), DISPATCH_GL(tmptv), Dt1(->base), Dt6(->nomm), 1<<MM_newindex, Dt1(->base), DISPATCH_GL(gc.grayagain), DISPATCH_GL(gc.grayagain));
|
||||
dasm_put(Dst, 4136, Dt6(->marked), Dt6(->gclist));
|
||||
break;
|
||||
case BC_TSETB:
|
||||
dasm_put(Dst, 4142, 32-3, Dt6(->asize), Dt6(->array), Dt6(->marked), LJ_GC_BLACK, Dt6(->metatable), Dt6(->nomm), 1<<MM_newindex, DISPATCH_GL(gc.grayagain), DISPATCH_GL(gc.grayagain), Dt6(->marked));
|
||||
dasm_put(Dst, 4202, Dt6(->gclist));
|
||||
dasm_put(Dst, 4143, 32-3, Dt6(->asize), Dt6(->array), Dt6(->marked), LJ_GC_BLACK, Dt6(->metatable), Dt6(->nomm), 1<<MM_newindex, DISPATCH_GL(gc.grayagain), DISPATCH_GL(gc.grayagain), Dt6(->marked));
|
||||
dasm_put(Dst, 4203, Dt6(->gclist));
|
||||
break;
|
||||
|
||||
case BC_TSETM:
|
||||
dasm_put(Dst, 4207, 32-3, Dt6(->asize), 31-3, Dt6(->marked), Dt6(->array), LJ_GC_BLACK, Dt1(->base), DISPATCH_GL(gc.grayagain), DISPATCH_GL(gc.grayagain), Dt6(->marked), Dt6(->gclist));
|
||||
dasm_put(Dst, 4276);
|
||||
dasm_put(Dst, 4208, 32-3, Dt6(->asize), 31-3, Dt6(->marked), Dt6(->array), LJ_GC_BLACK, Dt1(->base), DISPATCH_GL(gc.grayagain), DISPATCH_GL(gc.grayagain), Dt6(->marked), Dt6(->gclist));
|
||||
dasm_put(Dst, 4277);
|
||||
break;
|
||||
|
||||
/* -- Calls and vararg handling ----------------------------------------- */
|
||||
|
||||
case BC_CALLM:
|
||||
dasm_put(Dst, 4279);
|
||||
dasm_put(Dst, 4280);
|
||||
break;
|
||||
case BC_CALL:
|
||||
dasm_put(Dst, 4281, Dt7(->pc));
|
||||
dasm_put(Dst, 4282, Dt7(->pc));
|
||||
break;
|
||||
|
||||
case BC_CALLMT:
|
||||
dasm_put(Dst, 4301);
|
||||
dasm_put(Dst, 4302);
|
||||
break;
|
||||
case BC_CALLT:
|
||||
dasm_put(Dst, 4303, FRAME_TYPE, Dt7(->ffid), FRAME_VARG, Dt7(->pc), -4-8, Dt7(->pc), PC2PROTO(k), FRAME_TYPEP);
|
||||
dasm_put(Dst, 4368, FRAME_TYPE);
|
||||
dasm_put(Dst, 4304, FRAME_TYPE, Dt7(->ffid), FRAME_VARG, Dt7(->pc), -4-8, Dt7(->pc), PC2PROTO(k), FRAME_TYPEP);
|
||||
dasm_put(Dst, 4369, FRAME_TYPE);
|
||||
break;
|
||||
|
||||
case BC_ITERC:
|
||||
dasm_put(Dst, 4375, Dt7(->pc));
|
||||
dasm_put(Dst, 4376, Dt7(->pc));
|
||||
break;
|
||||
|
||||
case BC_ITERN:
|
||||
#if LJ_HASJIT
|
||||
#endif
|
||||
dasm_put(Dst, 4401, Dt6(->asize), Dt6(->array), 31-3, -(BCBIAS_J*4 >> 16), Dt6(->hmask), Dt6(->node), 31-5, 31-3, DtB(->key), -(BCBIAS_J*4 >> 16));
|
||||
dasm_put(Dst, 4480);
|
||||
dasm_put(Dst, 4402, Dt6(->asize), Dt6(->array), 31-3, -(BCBIAS_J*4 >> 16), Dt6(->hmask), Dt6(->node), 31-5, 31-3, DtB(->key), -(BCBIAS_J*4 >> 16));
|
||||
dasm_put(Dst, 4481);
|
||||
break;
|
||||
|
||||
case BC_ISNEXT:
|
||||
dasm_put(Dst, 4484, LJ_TTAB, LJ_TFUNC, LJ_TNIL, Dt8(->ffid), FF_next_N, 32-1, -(BCBIAS_J*4 >> 16), BC_JMP, BC_ITERC, -(BCBIAS_J*4 >> 16));
|
||||
dasm_put(Dst, 4485, LJ_TTAB, LJ_TFUNC, LJ_TNIL, Dt8(->ffid), FF_next_N, 32-1, -(BCBIAS_J*4 >> 16), BC_JMP, BC_ITERC, -(BCBIAS_J*4 >> 16));
|
||||
break;
|
||||
|
||||
case BC_VARG:
|
||||
dasm_put(Dst, 4535, FRAME_VARG, Dt1(->maxstack), Dt1(->top), Dt1(->base), 32-3, Dt1(->base));
|
||||
dasm_put(Dst, 4615);
|
||||
dasm_put(Dst, 4536, FRAME_VARG, Dt1(->maxstack), Dt1(->top), Dt1(->base), 32-3, Dt1(->base));
|
||||
dasm_put(Dst, 4616);
|
||||
break;
|
||||
|
||||
/* -- Returns ----------------------------------------------------------- */
|
||||
|
||||
case BC_RETM:
|
||||
dasm_put(Dst, 4621);
|
||||
dasm_put(Dst, 4622);
|
||||
break;
|
||||
|
||||
case BC_RET:
|
||||
dasm_put(Dst, 4623, FRAME_TYPE, FRAME_VARG, Dt7(->pc), PC2PROTO(k), FRAME_TYPEP);
|
||||
dasm_put(Dst, 4624, FRAME_TYPE, FRAME_VARG, Dt7(->pc), PC2PROTO(k), FRAME_TYPEP);
|
||||
break;
|
||||
|
||||
case BC_RET0: case BC_RET1:
|
||||
dasm_put(Dst, 4693, FRAME_TYPE, FRAME_VARG);
|
||||
dasm_put(Dst, 4694, FRAME_TYPE, FRAME_VARG);
|
||||
if (op == BC_RET1) {
|
||||
dasm_put(Dst, 4706);
|
||||
dasm_put(Dst, 4707);
|
||||
}
|
||||
dasm_put(Dst, 4709, Dt7(->pc), PC2PROTO(k));
|
||||
dasm_put(Dst, 4710, Dt7(->pc), PC2PROTO(k));
|
||||
break;
|
||||
|
||||
/* -- Loops and branches ------------------------------------------------ */
|
||||
|
||||
case BC_FORL:
|
||||
#if LJ_HASJIT
|
||||
dasm_put(Dst, 4737);
|
||||
dasm_put(Dst, 4738);
|
||||
#endif
|
||||
break;
|
||||
|
||||
@ -5879,35 +5880,35 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop)
|
||||
case BC_FORI:
|
||||
case BC_IFORL:
|
||||
vk = (op == BC_IFORL || op == BC_JFORL);
|
||||
dasm_put(Dst, 4739, FORL_IDX*8, FORL_STEP*8, FORL_STOP*8);
|
||||
dasm_put(Dst, 4740, FORL_IDX*8, FORL_STEP*8, FORL_STOP*8);
|
||||
if (!vk) {
|
||||
dasm_put(Dst, 4747);
|
||||
dasm_put(Dst, 4748);
|
||||
}
|
||||
if (vk) {
|
||||
dasm_put(Dst, 4755, FORL_IDX*8);
|
||||
dasm_put(Dst, 4756, FORL_IDX*8);
|
||||
}
|
||||
dasm_put(Dst, 4759, FORL_EXT*8);
|
||||
dasm_put(Dst, 4760, FORL_EXT*8);
|
||||
if (op != BC_JFORL) {
|
||||
dasm_put(Dst, 4767, 32-1);
|
||||
dasm_put(Dst, 4768, 32-1);
|
||||
if (op == BC_JFORI) {
|
||||
dasm_put(Dst, 4771, -(BCBIAS_J*4 >> 16));
|
||||
dasm_put(Dst, 4772, -(BCBIAS_J*4 >> 16));
|
||||
} else {
|
||||
dasm_put(Dst, 4774, -(BCBIAS_J*4 >> 16));
|
||||
dasm_put(Dst, 4775, -(BCBIAS_J*4 >> 16));
|
||||
}
|
||||
}
|
||||
if (op == BC_FORI) {
|
||||
dasm_put(Dst, 4777);
|
||||
dasm_put(Dst, 4778);
|
||||
} else if (op == BC_IFORL) {
|
||||
dasm_put(Dst, 4779);
|
||||
dasm_put(Dst, 4780);
|
||||
} else {
|
||||
dasm_put(Dst, 4781, BC_JLOOP);
|
||||
dasm_put(Dst, 4782, BC_JLOOP);
|
||||
}
|
||||
dasm_put(Dst, 4784);
|
||||
dasm_put(Dst, 4785);
|
||||
break;
|
||||
|
||||
case BC_ITERL:
|
||||
#if LJ_HASJIT
|
||||
dasm_put(Dst, 4799);
|
||||
dasm_put(Dst, 4800);
|
||||
#endif
|
||||
break;
|
||||
|
||||
@ -5916,40 +5917,40 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop)
|
||||
break;
|
||||
#endif
|
||||
case BC_IITERL:
|
||||
dasm_put(Dst, 4801);
|
||||
dasm_put(Dst, 4802);
|
||||
if (op == BC_JITERL) {
|
||||
dasm_put(Dst, 4807);
|
||||
dasm_put(Dst, 4808);
|
||||
} else {
|
||||
dasm_put(Dst, 4809, 32-1, -(BCBIAS_J*4 >> 16));
|
||||
dasm_put(Dst, 4810, 32-1, -(BCBIAS_J*4 >> 16));
|
||||
}
|
||||
dasm_put(Dst, 4816);
|
||||
dasm_put(Dst, 4817);
|
||||
break;
|
||||
|
||||
case BC_LOOP:
|
||||
#if LJ_HASJIT
|
||||
dasm_put(Dst, 4828);
|
||||
dasm_put(Dst, 4829);
|
||||
#endif
|
||||
break;
|
||||
|
||||
case BC_ILOOP:
|
||||
dasm_put(Dst, 4830);
|
||||
dasm_put(Dst, 4831);
|
||||
break;
|
||||
|
||||
case BC_JLOOP:
|
||||
#if LJ_HASJIT
|
||||
dasm_put(Dst, 4841);
|
||||
dasm_put(Dst, 4842);
|
||||
#endif
|
||||
break;
|
||||
|
||||
case BC_JMP:
|
||||
dasm_put(Dst, 4843, 32-1, -(BCBIAS_J*4 >> 16));
|
||||
dasm_put(Dst, 4844, 32-1, -(BCBIAS_J*4 >> 16));
|
||||
break;
|
||||
|
||||
/* -- Function headers -------------------------------------------------- */
|
||||
|
||||
case BC_FUNCF:
|
||||
#if LJ_HASJIT
|
||||
dasm_put(Dst, 4859);
|
||||
dasm_put(Dst, 4860);
|
||||
#endif
|
||||
case BC_FUNCV: /* NYI: compiled vararg functions. */
|
||||
break;
|
||||
@ -5959,38 +5960,38 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop)
|
||||
break;
|
||||
#endif
|
||||
case BC_IFUNCF:
|
||||
dasm_put(Dst, 4861, Dt1(->maxstack), -4+PC2PROTO(numparams), -4+PC2PROTO(k), 31-3);
|
||||
dasm_put(Dst, 4862, Dt1(->maxstack), -4+PC2PROTO(numparams), -4+PC2PROTO(k), 31-3);
|
||||
if (op == BC_JFUNCF) {
|
||||
dasm_put(Dst, 4879);
|
||||
dasm_put(Dst, 4880);
|
||||
} else {
|
||||
dasm_put(Dst, 4881);
|
||||
dasm_put(Dst, 4882);
|
||||
}
|
||||
dasm_put(Dst, 4890);
|
||||
dasm_put(Dst, 4891);
|
||||
break;
|
||||
|
||||
case BC_JFUNCV:
|
||||
#if !LJ_HASJIT
|
||||
break;
|
||||
#endif
|
||||
dasm_put(Dst, 4896);
|
||||
dasm_put(Dst, 4897);
|
||||
break; /* NYI: compiled vararg functions. */
|
||||
|
||||
case BC_IFUNCV:
|
||||
dasm_put(Dst, 4898, Dt1(->maxstack), 8+FRAME_VARG, -4+PC2PROTO(k), -4+PC2PROTO(numparams));
|
||||
dasm_put(Dst, 4899, Dt1(->maxstack), 8+FRAME_VARG, -4+PC2PROTO(k), -4+PC2PROTO(numparams));
|
||||
break;
|
||||
|
||||
case BC_FUNCC:
|
||||
case BC_FUNCCW:
|
||||
if (op == BC_FUNCC) {
|
||||
dasm_put(Dst, 4948, Dt8(->f));
|
||||
dasm_put(Dst, 4949, Dt8(->f));
|
||||
} else {
|
||||
dasm_put(Dst, 4951, DISPATCH_GL(wrapf));
|
||||
dasm_put(Dst, 4952, DISPATCH_GL(wrapf));
|
||||
}
|
||||
dasm_put(Dst, 4954, Dt1(->maxstack), Dt1(->base), Dt1(->top), ~LJ_VMST_C);
|
||||
dasm_put(Dst, 4955, Dt1(->maxstack), Dt1(->base), Dt1(->top), ~LJ_VMST_C);
|
||||
if (op == BC_FUNCCW) {
|
||||
dasm_put(Dst, 4967, Dt8(->f));
|
||||
dasm_put(Dst, 4968, Dt8(->f));
|
||||
}
|
||||
dasm_put(Dst, 4970, DISPATCH_GL(vmstate), Dt1(->top), 31-3, Dt1(->base), ~LJ_VMST_INTERP, DISPATCH_GL(vmstate));
|
||||
dasm_put(Dst, 4971, DISPATCH_GL(vmstate), Dt1(->top), 31-3, Dt1(->base), ~LJ_VMST_INTERP, DISPATCH_GL(vmstate));
|
||||
break;
|
||||
|
||||
/* ---------------------------------------------------------------------- */
|
||||
@ -6010,7 +6011,7 @@ static int build_backend(BuildCtx *ctx)
|
||||
|
||||
build_subroutines(ctx);
|
||||
|
||||
dasm_put(Dst, 4991);
|
||||
dasm_put(Dst, 4992);
|
||||
for (op = 0; op < BC__MAX; op++)
|
||||
build_ins(ctx, (BCOp)op, op);
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user