| blob | 6dde1956b0c04ad5721a953ffbd749bbaca75b31 |
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
5007 0x00010000
5008 };
5011 GLOB_vm_returnp,
5012 GLOB_cont_dispatch,
5013 GLOB_vm_returnc,
5014 GLOB_BC_RET_Z,
5015 GLOB_vm_return,
5016 GLOB_vm_leave_cp,
5017 GLOB_vm_leave_unw,
5018 GLOB_vm_unwind_c,
5019 GLOB_vm_unwind_c_eh,
5020 GLOB_vm_unwind_ff,
5021 GLOB_vm_unwind_ff_eh,
5022 GLOB_vm_growstack_c,
5023 GLOB_vm_growstack_l,
5024 GLOB_vm_resume,
5025 GLOB_vm_pcall,
5026 GLOB_vm_call,
5027 GLOB_vm_call_dispatch,
5028 GLOB_vmeta_call,
5029 GLOB_vm_call_dispatch_f,
5030 GLOB_vm_cpcall,
5031 GLOB_vm_call_tail,
5032 GLOB_cont_cat,
5033 GLOB_BC_CAT_Z,
5034 GLOB_cont_nop,
5035 GLOB_vmeta_tgets1,
5036 GLOB_vmeta_tgets,
5037 GLOB_vmeta_tgetb,
5038 GLOB_vmeta_tgetv,
5039 GLOB_vmeta_tsets1,
5040 GLOB_vmeta_tsets,
5041 GLOB_vmeta_tsetb,
5042 GLOB_vmeta_tsetv,
5043 GLOB_vmeta_comp,
5044 GLOB_vmeta_binop,
5045 GLOB_cont_ra,
5046 GLOB_cont_condt,
5047 GLOB_cont_condf,
5048 GLOB_vmeta_equal,
5049 GLOB_vmeta_arith_vn,
5050 GLOB_vmeta_arith_nv,
5051 GLOB_vmeta_unm,
5052 GLOB_vmeta_arith_vv,
5053 GLOB_vmeta_len,
5054 GLOB_BC_LEN_Z,
5055 GLOB_vmeta_callt,
5056 GLOB_BC_CALLT_Z,
5057 GLOB_vmeta_for,
5058 GLOB_ff_assert,
5059 GLOB_fff_fallback,
5060 GLOB_fff_res,
5061 GLOB_ff_type,
5062 GLOB_fff_restv,
5063 GLOB_ff_getmetatable,
5064 GLOB_ff_setmetatable,
5065 GLOB_ff_rawget,
5066 GLOB_ff_tonumber,
5067 GLOB_ff_tostring,
5068 GLOB_fff_gcstep,
5069 GLOB_ff_next,
5070 GLOB_ff_pairs,
5071 GLOB_ff_ipairs_aux,
5072 GLOB_ff_ipairs,
5073 GLOB_ff_pcall,
5074 GLOB_ff_xpcall,
5075 GLOB_ff_coroutine_resume,
5076 GLOB_ff_coroutine_wrap_aux,
5077 GLOB_ff_coroutine_yield,
5078 GLOB_ff_math_abs,
5079 GLOB_fff_res1,
5080 GLOB_ff_math_floor,
5081 GLOB_vm_floor_hilo,
5082 GLOB_ff_math_ceil,
5083 GLOB_vm_ceil_hilo,
5084 GLOB_ff_math_sqrt,
5085 GLOB_ff_math_log,
5086 GLOB_ff_math_log10,
5087 GLOB_ff_math_exp,
5088 GLOB_ff_math_sin,
5089 GLOB_ff_math_cos,
5090 GLOB_ff_math_tan,
5091 GLOB_ff_math_asin,
5092 GLOB_ff_math_acos,
5093 GLOB_ff_math_atan,
5094 GLOB_ff_math_sinh,
5095 GLOB_ff_math_cosh,
5096 GLOB_ff_math_tanh,
5097 GLOB_ff_math_pow,
5098 GLOB_ff_math_atan2,
5099 GLOB_ff_math_fmod,
5100 GLOB_ff_math_deg,
5101 GLOB_ff_math_rad,
5102 GLOB_ff_math_ldexp,
5103 GLOB_ff_math_frexp,
5104 GLOB_ff_math_modf,
5105 GLOB_ff_math_min,
5106 GLOB_ff_math_max,
5107 GLOB_ff_string_len,
5108 GLOB_ff_string_byte,
5109 GLOB_ff_string_char,
5110 GLOB_fff_newstr,
5111 GLOB_ff_string_sub,
5112 GLOB_ff_string_rep,
5113 GLOB_ff_string_reverse,
5114 GLOB_ff_string_lower,
5115 GLOB_ff_string_upper,
5116 GLOB_ff_table_getn,
5117 GLOB_ff_bit_tobit,
5118 GLOB_fff_resbit,
5119 GLOB_ff_bit_band,
5120 GLOB_ff_bit_bor,
5121 GLOB_ff_bit_bxor,
5122 GLOB_ff_bit_bswap,
5123 GLOB_ff_bit_bnot,
5124 GLOB_ff_bit_lshift,
5125 GLOB_ff_bit_rshift,
5126 GLOB_ff_bit_arshift,
5127 GLOB_ff_bit_rol,
5128 GLOB_ff_bit_ror,
5129 GLOB_vm_record,
5130 GLOB_vm_rethook,
5131 GLOB_vm_inshook,
5132 GLOB_cont_hook,
5133 GLOB_vm_hotloop,
5134 GLOB_vm_callhook,
5135 GLOB_vm_hotcall,
5136 GLOB_vm_exit_handler,
5137 GLOB_vm_exit_interp,
5138 GLOB_vm_floor,
5139 GLOB_vm_floor_efd,
5140 GLOB_vm_ceil_efd,
5141 GLOB_vm_trunc_efd,
5142 GLOB_vm_trunc_hilo,
5143 GLOB_vm_powi,
5144 GLOB_vm_foldfpm,
5145 GLOB_vm_foldarith,
5146 GLOB_vm_ffi_call,
5147 GLOB_BC_MODVN_Z,
5148 GLOB_BC_TGETS_Z,
5149 GLOB_BC_TSETS_Z,
5150 GLOB_BC_RETV_Z,
5151 GLOB__MAX
5152 };
5295 };
5345 };
5346 #define Dt1(_V) (int)(ptrdiff_t)&(((lua_State *)0)_V)
5347 #define Dt2(_V) (int)(ptrdiff_t)&(((global_State *)0)_V)
5348 #define Dt3(_V) (int)(ptrdiff_t)&(((TValue *)0)_V)
5349 #define Dt4(_V) (int)(ptrdiff_t)&(((GCobj *)0)_V)
5350 #define Dt5(_V) (int)(ptrdiff_t)&(((GCstr *)0)_V)
5351 #define Dt6(_V) (int)(ptrdiff_t)&(((GCtab *)0)_V)
5352 #define Dt7(_V) (int)(ptrdiff_t)&(((GCfuncL *)0)_V)
5353 #define Dt8(_V) (int)(ptrdiff_t)&(((GCfuncC *)0)_V)
5354 #define Dt9(_V) (int)(ptrdiff_t)&(((GCproto *)0)_V)
5355 #define DtA(_V) (int)(ptrdiff_t)&(((GCupval *)0)_V)
5356 #define DtB(_V) (int)(ptrdiff_t)&(((Node *)0)_V)
5357 #define DtC(_V) (int)(ptrdiff_t)&(((int *)0)_V)
5358 #define DtD(_V) (int)(ptrdiff_t)&(((GCtrace *)0)_V)
5359 #define DISPATCH_GL(field) (GG_DISP2G + (int)offsetof(global_State, field))
5360 #define DISPATCH_J(field) (GG_DISP2J + (int)offsetof(jit_State, field))
5361 #define PC2PROTO(field) ((int)offsetof(GCproto, field)-(int)sizeof(GCproto))
5363 /* Generate subroutines used by opcodes and other parts of the VM. */
5364 /* The .code_sub section should be last to help static branch prediction. */
5366 {
5368 dasm_put(Dst, 1, FRAME_P, LJ_TTRUE, FRAME_TYPE, FRAME_C, ~LJ_VMST_C, Dt1(->base), DISPATCH_GL(vmstate), 31-3, Dt1(->top));
5369 dasm_put(Dst, 55, Dt1(->cframe), Dt1(->maxstack), Dt1(->top), 31-3, Dt1(->top), ~LJ_VMST_C, Dt1(->glref), Dt2(->vmstate));
5370 dasm_put(Dst, 133, 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);
5371 dasm_put(Dst, 188, 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));
5372 dasm_put(Dst, 279, 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));
5373 dasm_put(Dst, 376, Dt7(->pc), Dt1(->stack), Dt1(->top), Dt1(->cframe), Dt1(->cframe), Dt1(->glref), FRAME_CP, GG_G2DISP, Dt7(->pc), PC2PROTO(k), Dt1(->base));
5374 dasm_put(Dst, 481, DISPATCH_GL(tmptv), DISPATCH_GL(tmptv), DISPATCH_GL(tmptv2), DISPATCH_GL(tmptv), Dt1(->base), FRAME_CONT, Dt1(->top), DISPATCH_GL(tmptv));
5375 dasm_put(Dst, 556, DISPATCH_GL(tmptv), DISPATCH_GL(tmptv2), DISPATCH_GL(tmptv), Dt1(->base), FRAME_CONT, Dt1(->top), Dt1(->base));
5378 #ifdef LUAJIT_ENABLE_LUA52COMPAT
5380 #endif
5382 #ifdef LUAJIT_ENABLE_LUA52COMPAT
5384 #else
5386 #endif
5388 #if LJ_HASJIT
5390 #endif
5392 #if LJ_HASJIT
5394 #endif
5396 #if LJ_HASJIT
5398 #endif
5399 dasm_put(Dst, 808, BC_FORI, ~LJ_TNUMX, 31-3, Dt8(->upvalue), Dt6(->metatable), DISPATCH_GL(gcroot[GCROOT_MMNAME+MM_metatable]));
5400 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]));
5401 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));
5402 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);
5403 #ifdef LUAJIT_ENABLE_LUA52COMPAT
5405 #else
5407 #endif
5408 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);
5410 #ifdef LUAJIT_ENABLE_LUA52COMPAT
5412 #else
5414 #endif
5415 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));
5416 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));
5417 dasm_put(Dst, 1289, Dt1(->top), FRAME_TYPE, LJ_TTRUE, FRAME_TYPE, LJ_TFALSE, Dt1(->top), (2+1)*8, 32-3);
5418 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);
5419 dasm_put(Dst, 1408, Dt1(->base), DISPATCH_GL(vmstate), Dt1(->maxstack), Dt1(->top), FRAME_TYPE, 32-3, Dt1(->cframe));
5420 dasm_put(Dst, 1465, Dt1(->base), CFRAME_RESUME, Dt1(->top), LUA_YIELD, Dt1(->cframe), Dt1(->status), (1+1)*8, FRAME_TYPE);
5425 dasm_put(Dst, 1797, Dt8(->upvalue[0]), DISPATCH_GL(tmptv), DISPATCH_GL(tmptv), (2+1)*8, (2+1)*8);
5427 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));
5428 dasm_put(Dst, 1996, Dt5(->len), sizeof(GCstr)-1, DISPATCH_GL(gc.total), DISPATCH_GL(gc.threshold));
5429 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));
5430 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));
5431 dasm_put(Dst, 2180, DISPATCH_GL(gc.total), DISPATCH_GL(gc.threshold), DISPATCH_GL(tmpbuf.sz), Dt5(->len), sizeof(GCstr), DISPATCH_GL(tmpbuf.buf));
5434 dasm_put(Dst, 2406, Dt8(->f), 8*LUA_MINSTACK, Dt1(->maxstack), Dt1(->base), Dt1(->top), Dt1(->base), 31-3, Dt1(->top), Dt7(->pc));
5435 dasm_put(Dst, 2485, FRAME_TYPE, LUA_MINSTACK, Dt1(->base), Dt1(->base), Dt1(->top), Dt1(->base), Dt1(->top));
5436 #if LJ_HASJIT
5438 #endif
5439 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));
5441 #if LJ_HASJIT
5443 #endif
5445 #if LJ_HASJIT
5447 #endif
5449 #if LJ_HASJIT
5451 #endif
5453 #if LJ_HASJIT
5455 #endif
5457 #if LJ_HASJIT
5459 #endif
5461 #if LJ_HASJIT
5463 #else
5465 #endif
5467 #if LJ_HASJIT
5469 #endif
5471 #if LJ_HASJIT
5473 #endif
5475 #if LJ_HASFFI
5477 #endif
5478 }
5480 /* Generate the code for a single instruction. */
5482 {
5488 /* -- Comparison ops ---------------------------------------------------- */
5490 /* Remember: all ops branch for a true comparison, fall through otherwise. */
5496 }
5501 }
5512 }
5518 }
5524 }
5535 }
5546 }
5550 }
5560 }
5564 /* -- Unary test and copy ops ------------------------------------------- */
5574 }
5580 }
5582 }
5586 /* -- Unary ops --------------------------------------------------------- */
5599 #ifdef LUAJIT_ENABLE_LUA52COMPAT
5601 #endif
5603 #ifdef LUAJIT_ENABLE_LUA52COMPAT
5605 #endif
5608 /* -- Binary ops -------------------------------------------------------- */
5623 }
5638 }
5653 }
5668 }
5683 }
5698 }
5709 /* -- Constant ops ------------------------------------------------------ */
5715 #if LJ_HASFFI
5717 #endif
5732 /* -- Upvalue and function ops ------------------------------------------ */
5738 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);
5741 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);
5758 /* -- Table ops --------------------------------------------------------- */
5767 }
5778 }
5782 dasm_put(Dst, 3773, Dt6(->asize), Dt6(->array), 31-3, Dt6(->metatable), Dt6(->nomm), 1<<MM_index);
5785 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);
5789 dasm_put(Dst, 3900, 32-3, Dt6(->asize), Dt6(->array), Dt6(->metatable), Dt6(->nomm), 1<<MM_index);
5793 dasm_put(Dst, 3944, Dt6(->asize), Dt6(->array), 31-3, Dt6(->marked), LJ_GC_BLACK, Dt6(->metatable), Dt6(->nomm), 1<<MM_newindex);
5794 dasm_put(Dst, 4011, DISPATCH_GL(gc.grayagain), DISPATCH_GL(gc.grayagain), Dt6(->marked), Dt6(->gclist));
5797 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));
5798 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));
5802 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));
5807 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));
5811 /* -- Calls and vararg handling ----------------------------------------- */
5824 dasm_put(Dst, 4303, FRAME_TYPE, Dt7(->ffid), FRAME_VARG, Dt7(->pc), -4-8, Dt7(->pc), PC2PROTO(k), FRAME_TYPEP);
5833 #if LJ_HASJIT
5834 #endif
5835 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));
5840 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));
5848 /* -- Returns ----------------------------------------------------------- */
5862 }
5866 /* -- Loops and branches ------------------------------------------------ */
5869 #if LJ_HASJIT
5871 #endif
5876 #if !LJ_HASJIT
5878 #endif
5885 }
5888 }
5896 }
5897 }
5904 }
5909 #if LJ_HASJIT
5911 #endif
5915 #if !LJ_HASJIT
5917 #endif
5924 }
5929 #if LJ_HASJIT
5931 #endif
5939 #if LJ_HASJIT
5941 #endif
5948 /* -- Function headers -------------------------------------------------- */
5951 #if LJ_HASJIT
5953 #endif
5958 #if !LJ_HASJIT
5960 #endif
5967 }
5972 #if !LJ_HASJIT
5974 #endif
5988 }
5992 }
5993 dasm_put(Dst, 4970, DISPATCH_GL(vmstate), Dt1(->top), 31-3, Dt1(->base), ~LJ_VMST_INTERP, DISPATCH_GL(vmstate));
5996 /* ---------------------------------------------------------------------- */
6002 }
6003 }
6006 {
6018 }
6020 /* Emit pseudo frame-info for all assembler functions. */
6022 {
6098 }
6099 }