| blob | 78d493776d2cd88fa8e7222d9ed9418c7f6a3530 |
1 /*
2 ** This file has been pre-processed with DynASM.
3 ** http://luajit.org/dynasm.html
4 ** DynASM version 1.3.0, DynASM ppc version 1.3.0
5 ** DO NOT EDIT! The original file is in "buildvm_ppcspe.dasc".
6 */
8 #if DASM_VERSION != 10300
10 #endif
12 #define DASM_SECTION_CODE_OP 0
13 #define DASM_SECTION_CODE_SUB 1
14 #define DASM_MAXSECTION 2
5010 0x00010000
5011 };
5014 GLOB_vm_returnp,
5015 GLOB_cont_dispatch,
5016 GLOB_vm_returnc,
5017 GLOB_BC_RET_Z,
5018 GLOB_vm_return,
5019 GLOB_vm_leave_cp,
5020 GLOB_vm_leave_unw,
5021 GLOB_vm_unwind_c,
5022 GLOB_vm_unwind_c_eh,
5023 GLOB_vm_unwind_ff,
5024 GLOB_vm_unwind_ff_eh,
5025 GLOB_vm_growstack_c,
5026 GLOB_vm_growstack_l,
5027 GLOB_vm_resume,
5028 GLOB_vm_pcall,
5029 GLOB_vm_call,
5030 GLOB_vm_call_dispatch,
5031 GLOB_vmeta_call,
5032 GLOB_vm_call_dispatch_f,
5033 GLOB_vm_cpcall,
5034 GLOB_vm_call_tail,
5035 GLOB_cont_cat,
5036 GLOB_BC_CAT_Z,
5037 GLOB_cont_nop,
5038 GLOB_vmeta_tgets1,
5039 GLOB_vmeta_tgets,
5040 GLOB_vmeta_tgetb,
5041 GLOB_vmeta_tgetv,
5042 GLOB_vmeta_tsets1,
5043 GLOB_vmeta_tsets,
5044 GLOB_vmeta_tsetb,
5045 GLOB_vmeta_tsetv,
5046 GLOB_vmeta_comp,
5047 GLOB_vmeta_binop,
5048 GLOB_cont_ra,
5049 GLOB_cont_condt,
5050 GLOB_cont_condf,
5051 GLOB_vmeta_equal,
5052 GLOB_vmeta_arith_vn,
5053 GLOB_vmeta_arith_nv,
5054 GLOB_vmeta_unm,
5055 GLOB_vmeta_arith_vv,
5056 GLOB_vmeta_len,
5057 GLOB_BC_LEN_Z,
5058 GLOB_vmeta_callt,
5059 GLOB_BC_CALLT_Z,
5060 GLOB_vmeta_for,
5061 GLOB_ff_assert,
5062 GLOB_fff_fallback,
5063 GLOB_fff_res,
5064 GLOB_ff_type,
5065 GLOB_fff_restv,
5066 GLOB_ff_getmetatable,
5067 GLOB_ff_setmetatable,
5068 GLOB_ff_rawget,
5069 GLOB_ff_tonumber,
5070 GLOB_ff_tostring,
5071 GLOB_fff_gcstep,
5072 GLOB_ff_next,
5073 GLOB_ff_pairs,
5074 GLOB_ff_ipairs_aux,
5075 GLOB_ff_ipairs,
5076 GLOB_ff_pcall,
5077 GLOB_ff_xpcall,
5078 GLOB_ff_coroutine_resume,
5079 GLOB_ff_coroutine_wrap_aux,
5080 GLOB_ff_coroutine_yield,
5081 GLOB_ff_math_abs,
5082 GLOB_fff_res1,
5083 GLOB_ff_math_floor,
5084 GLOB_vm_floor_hilo,
5085 GLOB_ff_math_ceil,
5086 GLOB_vm_ceil_hilo,
5087 GLOB_ff_math_sqrt,
5088 GLOB_ff_math_log,
5089 GLOB_ff_math_log10,
5090 GLOB_ff_math_exp,
5091 GLOB_ff_math_sin,
5092 GLOB_ff_math_cos,
5093 GLOB_ff_math_tan,
5094 GLOB_ff_math_asin,
5095 GLOB_ff_math_acos,
5096 GLOB_ff_math_atan,
5097 GLOB_ff_math_sinh,
5098 GLOB_ff_math_cosh,
5099 GLOB_ff_math_tanh,
5100 GLOB_ff_math_pow,
5101 GLOB_ff_math_atan2,
5102 GLOB_ff_math_fmod,
5103 GLOB_ff_math_deg,
5104 GLOB_ff_math_rad,
5105 GLOB_ff_math_ldexp,
5106 GLOB_ff_math_frexp,
5107 GLOB_ff_math_modf,
5108 GLOB_ff_math_min,
5109 GLOB_ff_math_max,
5110 GLOB_ff_string_len,
5111 GLOB_ff_string_byte,
5112 GLOB_ff_string_char,
5113 GLOB_fff_newstr,
5114 GLOB_ff_string_sub,
5115 GLOB_ff_string_rep,
5116 GLOB_ff_string_reverse,
5117 GLOB_ff_string_lower,
5118 GLOB_ff_string_upper,
5119 GLOB_ff_table_getn,
5120 GLOB_ff_bit_tobit,
5121 GLOB_fff_resbit,
5122 GLOB_ff_bit_band,
5123 GLOB_ff_bit_bor,
5124 GLOB_ff_bit_bxor,
5125 GLOB_ff_bit_bswap,
5126 GLOB_ff_bit_bnot,
5127 GLOB_ff_bit_lshift,
5128 GLOB_ff_bit_rshift,
5129 GLOB_ff_bit_arshift,
5130 GLOB_ff_bit_rol,
5131 GLOB_ff_bit_ror,
5132 GLOB_vm_record,
5133 GLOB_vm_rethook,
5134 GLOB_vm_inshook,
5135 GLOB_cont_hook,
5136 GLOB_vm_hotloop,
5137 GLOB_vm_callhook,
5138 GLOB_vm_hotcall,
5139 GLOB_vm_exit_handler,
5140 GLOB_vm_exit_interp,
5141 GLOB_vm_floor,
5142 GLOB_vm_floor_efd,
5143 GLOB_vm_ceil_efd,
5144 GLOB_vm_trunc_efd,
5145 GLOB_vm_trunc_hilo,
5146 GLOB_vm_foldarith,
5147 GLOB_vm_ffi_call,
5148 GLOB_BC_MODVN_Z,
5149 GLOB_BC_TGETS_Z,
5150 GLOB_BC_TSETS_Z,
5151 GLOB_BC_RETV_Z,
5152 GLOB__MAX
5153 };
5294 };
5344 };
5345 #define Dt1(_V) (int)(ptrdiff_t)&(((lua_State *)0)_V)
5346 #define Dt2(_V) (int)(ptrdiff_t)&(((global_State *)0)_V)
5347 #define Dt3(_V) (int)(ptrdiff_t)&(((TValue *)0)_V)
5348 #define Dt4(_V) (int)(ptrdiff_t)&(((GCobj *)0)_V)
5349 #define Dt5(_V) (int)(ptrdiff_t)&(((GCstr *)0)_V)
5350 #define Dt6(_V) (int)(ptrdiff_t)&(((GCtab *)0)_V)
5351 #define Dt7(_V) (int)(ptrdiff_t)&(((GCfuncL *)0)_V)
5352 #define Dt8(_V) (int)(ptrdiff_t)&(((GCfuncC *)0)_V)
5353 #define Dt9(_V) (int)(ptrdiff_t)&(((GCproto *)0)_V)
5354 #define DtA(_V) (int)(ptrdiff_t)&(((GCupval *)0)_V)
5355 #define DtB(_V) (int)(ptrdiff_t)&(((Node *)0)_V)
5356 #define DtC(_V) (int)(ptrdiff_t)&(((int *)0)_V)
5357 #define DtD(_V) (int)(ptrdiff_t)&(((GCtrace *)0)_V)
5358 #define DISPATCH_GL(field) (GG_DISP2G + (int)offsetof(global_State, field))
5359 #define DISPATCH_J(field) (GG_DISP2J + (int)offsetof(jit_State, field))
5360 #define PC2PROTO(field) ((int)offsetof(GCproto, field)-(int)sizeof(GCproto))
5362 /* Generate subroutines used by opcodes and other parts of the VM. */
5363 /* The .code_sub section should be last to help static branch prediction. */
5365 {
5367 dasm_put(Dst, 1, FRAME_P, LJ_TTRUE, FRAME_TYPE, FRAME_C, ~LJ_VMST_C, Dt1(->base), DISPATCH_GL(vmstate), 31-3, Dt1(->top));
5368 dasm_put(Dst, 55, Dt1(->cframe), Dt1(->maxstack), Dt1(->top), 31-3, Dt1(->top), ~LJ_VMST_C, Dt1(->glref), Dt2(->vmstate));
5369 dasm_put(Dst, 135, LJ_TISNUM+1, LJ_TFUNC, LJ_TTAB, Dt1(->base), Dt1(->glref), LJ_TSTR, LJ_TFALSE, LJ_TNIL, ~LJ_VMST_INTERP, GG_G2DISP, DISPATCH_GL(vmstate), LUA_MINSTACK, Dt1(->base), Dt1(->top), 32-3);
5370 dasm_put(Dst, 190, Dt1(->base), Dt1(->top), Dt7(->pc), Dt1(->glref), Dt1(->status), FRAME_CP, CFRAME_RESUME, GG_G2DISP, Dt1(->cframe), Dt1(->base), LJ_TISNUM+1, Dt1(->top), LJ_TFUNC, LJ_TTAB, LJ_TSTR, Dt1(->status), FRAME_TYPE, ~LJ_VMST_INTERP, LJ_TNIL, DISPATCH_GL(vmstate));
5371 dasm_put(Dst, 283, FRAME_CP, FRAME_C, Dt1(->cframe), Dt1(->cframe), Dt1(->glref), GG_G2DISP, Dt1(->base), LJ_TISNUM+1, Dt1(->top), LJ_TFUNC, LJ_TTAB, LJ_TSTR, ~LJ_VMST_INTERP, LJ_TNIL, DISPATCH_GL(vmstate));
5372 dasm_put(Dst, 384, Dt7(->pc), Dt1(->stack), Dt1(->top), Dt1(->cframe), Dt1(->cframe), Dt1(->glref), FRAME_CP, GG_G2DISP, Dt7(->pc), PC2PROTO(k), Dt1(->base));
5373 dasm_put(Dst, 491, DISPATCH_GL(tmptv), DISPATCH_GL(tmptv), DISPATCH_GL(tmptv2), DISPATCH_GL(tmptv), Dt1(->base), FRAME_CONT, Dt1(->top), DISPATCH_GL(tmptv));
5374 dasm_put(Dst, 566, DISPATCH_GL(tmptv), DISPATCH_GL(tmptv2), DISPATCH_GL(tmptv), Dt1(->base), FRAME_CONT, Dt1(->top), Dt1(->base));
5377 #ifdef LUAJIT_ENABLE_LUA52COMPAT
5379 #endif
5381 #ifdef LUAJIT_ENABLE_LUA52COMPAT
5383 #else
5385 #endif
5387 #if LJ_HASJIT
5389 #endif
5391 #if LJ_HASJIT
5393 #endif
5395 #if LJ_HASJIT
5397 #endif
5398 dasm_put(Dst, 819, BC_FORI, ~LJ_TNUMX, 31-3, Dt8(->upvalue), Dt6(->metatable), DISPATCH_GL(gcroot[GCROOT_MMNAME+MM_metatable]));
5399 dasm_put(Dst, 884, 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]));
5400 dasm_put(Dst, 940, Dt6(->metatable), Dt6(->marked), LJ_GC_BLACK, Dt6(->metatable), DISPATCH_GL(gc.grayagain), DISPATCH_GL(gc.grayagain), Dt6(->marked), Dt6(->gclist));
5401 dasm_put(Dst, 1000, DISPATCH_GL(gcroot[GCROOT_BASEMT_NUM]), Dt1(->base), DISPATCH_GL(gc.total), DISPATCH_GL(gc.threshold), Dt1(->base), Dt1(->top), (2+1)*8);
5402 #ifdef LUAJIT_ENABLE_LUA52COMPAT
5404 #else
5406 #endif
5407 dasm_put(Dst, 1086, (3+1)*8, Dt6(->asize), Dt6(->array), 31-3, (0+1)*8, (2+1)*8, Dt6(->hmask), (0+1)*8, (0+1)*8);
5409 #ifdef LUAJIT_ENABLE_LUA52COMPAT
5411 #else
5413 #endif
5414 dasm_put(Dst, 1176, (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));
5415 dasm_put(Dst, 1237, 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));
5416 dasm_put(Dst, 1300, Dt1(->top), FRAME_TYPE, LJ_TTRUE, FRAME_TYPE, LJ_TFALSE, Dt1(->top), (2+1)*8, 32-3);
5417 dasm_put(Dst, 1360, 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);
5418 dasm_put(Dst, 1419, Dt1(->base), DISPATCH_GL(vmstate), Dt1(->maxstack), Dt1(->top), FRAME_TYPE, 32-3, Dt1(->cframe));
5419 dasm_put(Dst, 1476, Dt1(->base), CFRAME_RESUME, Dt1(->top), LUA_YIELD, Dt1(->cframe), Dt1(->status), (1+1)*8, FRAME_TYPE);
5424 dasm_put(Dst, 1808, Dt8(->upvalue[0]), DISPATCH_GL(tmptv), DISPATCH_GL(tmptv), (2+1)*8, (2+1)*8);
5426 dasm_put(Dst, 1947, 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));
5427 dasm_put(Dst, 2007, Dt5(->len), sizeof(GCstr)-1, DISPATCH_GL(gc.total), DISPATCH_GL(gc.threshold));
5428 dasm_put(Dst, 2073, Dt5(->len), DISPATCH_GL(tmpbuf.sz), Dt5([1]), DISPATCH_GL(tmpbuf.buf), DISPATCH_GL(strempty), DISPATCH_GL(gc.total), DISPATCH_GL(gc.threshold));
5429 dasm_put(Dst, 2132, 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));
5430 dasm_put(Dst, 2191, DISPATCH_GL(gc.total), DISPATCH_GL(gc.threshold), DISPATCH_GL(tmpbuf.sz), Dt5(->len), sizeof(GCstr), DISPATCH_GL(tmpbuf.buf));
5433 dasm_put(Dst, 2417, Dt8(->f), 8*LUA_MINSTACK, Dt1(->maxstack), Dt1(->base), Dt1(->top), Dt1(->base), 31-3, Dt1(->top), Dt7(->pc));
5434 dasm_put(Dst, 2496, FRAME_TYPE, LUA_MINSTACK, Dt1(->base), Dt1(->base), Dt1(->top), Dt1(->base), Dt1(->top));
5435 #if LJ_HASJIT
5437 #endif
5438 dasm_put(Dst, 2540, 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));
5440 #if LJ_HASJIT
5442 #endif
5444 #if LJ_HASJIT
5446 #endif
5448 #if LJ_HASJIT
5450 #endif
5452 #if LJ_HASJIT
5454 #endif
5456 #if LJ_HASJIT
5458 #endif
5460 #if LJ_HASJIT
5462 #else
5464 #endif
5466 #if LJ_HASFFI
5468 #endif
5469 }
5471 /* Generate the code for a single instruction. */
5473 {
5479 /* -- Comparison ops ---------------------------------------------------- */
5481 /* Remember: all ops branch for a true comparison, fall through otherwise. */
5487 }
5492 }
5503 }
5509 }
5515 }
5526 }
5537 }
5541 }
5551 }
5555 /* -- Unary test and copy ops ------------------------------------------- */
5565 }
5571 }
5573 }
5577 /* -- Unary ops --------------------------------------------------------- */
5590 #ifdef LUAJIT_ENABLE_LUA52COMPAT
5592 #endif
5594 #ifdef LUAJIT_ENABLE_LUA52COMPAT
5596 #endif
5599 /* -- Binary ops -------------------------------------------------------- */
5614 }
5629 }
5644 }
5659 }
5674 }
5689 }
5700 /* -- Constant ops ------------------------------------------------------ */
5706 #if LJ_HASFFI
5708 #endif
5723 /* -- Upvalue and function ops ------------------------------------------ */
5729 dasm_put(Dst, 3510, 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);
5732 dasm_put(Dst, 3562, 32-1, 32-1, offsetof(GCfuncL, uvptr), DtA(->marked), DtA(->v), LJ_GC_BLACK, Dt5(->marked), DtA(->closed), LJ_GC_WHITES, GG_DISP2G);
5749 /* -- Table ops --------------------------------------------------------- */
5758 }
5769 }
5773 dasm_put(Dst, 3776, Dt6(->asize), Dt6(->array), 31-3, Dt6(->metatable), Dt6(->nomm), 1<<MM_index);
5776 dasm_put(Dst, 3834, 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);
5780 dasm_put(Dst, 3903, 32-3, Dt6(->asize), Dt6(->array), Dt6(->metatable), Dt6(->nomm), 1<<MM_index);
5784 dasm_put(Dst, 3947, Dt6(->asize), Dt6(->array), 31-3, Dt6(->marked), LJ_GC_BLACK, Dt6(->metatable), Dt6(->nomm), 1<<MM_newindex);
5785 dasm_put(Dst, 4014, DISPATCH_GL(gc.grayagain), DISPATCH_GL(gc.grayagain), Dt6(->marked), Dt6(->gclist));
5788 dasm_put(Dst, 4026, 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));
5789 dasm_put(Dst, 4087, 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));
5793 dasm_put(Dst, 4145, 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));
5798 dasm_put(Dst, 4210, 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));
5802 /* -- Calls and vararg handling ----------------------------------------- */
5815 dasm_put(Dst, 4306, FRAME_TYPE, Dt7(->ffid), FRAME_VARG, Dt7(->pc), -4-8, Dt7(->pc), PC2PROTO(k), FRAME_TYPEP);
5824 #if LJ_HASJIT
5825 #endif
5826 dasm_put(Dst, 4404, Dt6(->asize), Dt6(->array), 31-3, -(BCBIAS_J*4 >> 16), Dt6(->hmask), Dt6(->node), 31-5, 31-3, DtB(->key), -(BCBIAS_J*4 >> 16));
5831 dasm_put(Dst, 4487, 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));
5839 /* -- Returns ----------------------------------------------------------- */
5853 }
5857 /* -- Loops and branches ------------------------------------------------ */
5860 #if LJ_HASJIT
5862 #endif
5867 #if !LJ_HASJIT
5869 #endif
5876 }
5879 }
5887 }
5888 }
5895 }
5900 #if LJ_HASJIT
5902 #endif
5906 #if !LJ_HASJIT
5908 #endif
5915 }
5920 #if LJ_HASJIT
5922 #endif
5930 #if LJ_HASJIT
5932 #endif
5939 /* -- Function headers -------------------------------------------------- */
5942 #if LJ_HASJIT
5944 #endif
5949 #if !LJ_HASJIT
5951 #endif
5958 }
5963 #if !LJ_HASJIT
5965 #endif
5979 }
5983 }
5984 dasm_put(Dst, 4973, DISPATCH_GL(vmstate), Dt1(->top), 31-3, Dt1(->base), ~LJ_VMST_INTERP, DISPATCH_GL(vmstate));
5987 /* ---------------------------------------------------------------------- */
5993 }
5994 }
5997 {
6009 }
6011 /* Emit pseudo frame-info for all assembler functions. */
6013 {
6091 }
6092 }