1 |// Low-level VM code for PowerPC/e500 CPUs.
2 |// Bytecode interpreter, fast functions and helper functions.
3 |// Copyright (C) 2005-2012 Mike Pall. See Copyright Notice in luajit.h
6 |.section code_op, code_sub
8 |.actionlist build_actionlist
10 |.globalnames globnames
11 |.externnames extnames
13 |// Note: The ragged indentation of the instructions is intentional.
14 |// The starting columns indicate data dependencies.
16 |//-----------------------------------------------------------------------
18 |// Fixed register assignments for the interpreter.
19 |// Don't use: r1 = sp, r2 and r13 = reserved and/or small data area ptr
21 |// The following must be C callee-save (but BASE is often refetched).
22 |.define BASE, r14 // Base of current Lua stack frame.
23 |.define KBASE, r15 // Constants of current Lua function.
24 |.define PC, r16 // Next PC.
25 |.define DISPATCH, r17 // Opcode dispatch table.
26 |.define LREG, r18 // Register holding lua_State (also in SAVE_L).
27 |.define MULTRES, r19 // Size of multi-result: (nresults+1)*8.
29 |// Constants for vectorized type-comparisons (hi+low GPR). C callee-save.
36 |.define ZERO, TOBIT // Zero in lo word.
38 |// The following temporaries are not saved across C calls, except for RA.
39 |.define RA, r20 // Callee-save.
43 |.define INS, r7 // Overlaps CARG5.
48 |.define TMP3, r6 // Overlaps CARG4.
50 |// Saved temporaries.
53 |// Calling conventions.
57 |.define CARG4, r6 // Overlaps TMP3.
58 |.define CARG5, r7 // Overlaps INS.
63 |// Stack layout while in interpreter. Must match with lj_frame.h.
64 |.define SAVE_LR, 188(sp)
65 |.define CFRAME_SPACE, 184 // Delta for sp.
66 |// Back chain for sp: 184(sp) <-- sp entering interpreter
67 |.define SAVE_r31, 176(sp) // 64 bit register saves.
68 |.define SAVE_r30, 168(sp)
69 |.define SAVE_r29, 160(sp)
70 |.define SAVE_r28, 152(sp)
71 |.define SAVE_r27, 144(sp)
72 |.define SAVE_r26, 136(sp)
73 |.define SAVE_r25, 128(sp)
74 |.define SAVE_r24, 120(sp)
75 |.define SAVE_r23, 112(sp)
76 |.define SAVE_r22, 104(sp)
77 |.define SAVE_r21, 96(sp)
78 |.define SAVE_r20, 88(sp)
79 |.define SAVE_r19, 80(sp)
80 |.define SAVE_r18, 72(sp)
81 |.define SAVE_r17, 64(sp)
82 |.define SAVE_r16, 56(sp)
83 |.define SAVE_r15, 48(sp)
84 |.define SAVE_r14, 40(sp)
85 |.define SAVE_CR, 36(sp)
86 |.define UNUSED1, 32(sp)
87 |.define SAVE_ERRF, 28(sp) // 32 bit C frame info.
88 |.define SAVE_NRES, 24(sp)
89 |.define SAVE_CFRAME, 20(sp)
90 |.define SAVE_L, 16(sp)
91 |.define SAVE_PC, 12(sp)
92 |.define SAVE_MULTRES, 8(sp)
93 |// Next frame lr: 4(sp)
94 |// Back chain for sp: 0(sp) <-- sp while in interpreter
96 |.macro save_, reg; evstdd reg, SAVE_..reg; .endmacro
97 |.macro rest_, reg; evldd reg, SAVE_..reg; .endmacro
100 | stwu sp, -CFRAME_SPACE(sp)
101 | save_ r14; save_ r15; save_ r16; save_ r17; save_ r18; save_ r19
103 | save_ r20; save_ r21; save_ r22; save_ r23; save_ r24; save_ r25
104 | stw r0, SAVE_LR; stw r12, SAVE_CR
105 | save_ r26; save_ r27; save_ r28; save_ r29; save_ r30; save_ r31
109 | lwz r0, SAVE_LR; lwz r12, SAVE_CR
110 | rest_ r14; rest_ r15; rest_ r16; rest_ r17; rest_ r18; rest_ r19
111 | mtlr r0; mtcrf 0x38, r12
112 | rest_ r20; rest_ r21; rest_ r22; rest_ r23; rest_ r24; rest_ r25
113 | rest_ r26; rest_ r27; rest_ r28; rest_ r29; rest_ r30; rest_ r31
114 | addi sp, sp, CFRAME_SPACE
117 |// Type definitions. Some of these are only used for documentation.
118 |.type L, lua_State, LREG
119 |.type GL, global_State
120 |.type TVALUE, TValue
124 |.type LFUNC, GCfuncL
125 |.type CFUNC, GCfuncC
126 |.type PROTO, GCproto
127 |.type UPVAL, GCupval
130 |.type TRACE, GCtrace
132 |//-----------------------------------------------------------------------
134 |// These basic macros should really be part of DynASM.
135 |.macro srwi, rx, ry, n; rlwinm rx, ry, 32-n, n, 31; .endmacro
136 |.macro slwi, rx, ry, n; rlwinm rx, ry, n, 0, 31-n; .endmacro
137 |.macro rotlwi, rx, ry, n; rlwinm rx, ry, n, 0, 31; .endmacro
138 |.macro rotlw, rx, ry, rn; rlwnm rx, ry, rn, 0, 31; .endmacro
139 |.macro subi, rx, ry, i; addi rx, ry, -i; .endmacro
141 |// Trap for not-yet-implemented parts.
142 |.macro NYI; tw 4, sp, sp; .endmacro
144 |//-----------------------------------------------------------------------
146 |// Access to frame relative to BASE.
147 |.define FRAME_PC, -8
148 |.define FRAME_FUNC, -4
150 |// Instruction decode.
151 |.macro decode_OP4, dst, ins; rlwinm dst, ins, 2, 22, 29; .endmacro
152 |.macro decode_RA8, dst, ins; rlwinm dst, ins, 27, 21, 28; .endmacro
153 |.macro decode_RB8, dst, ins; rlwinm dst, ins, 11, 21, 28; .endmacro
154 |.macro decode_RC8, dst, ins; rlwinm dst, ins, 19, 21, 28; .endmacro
155 |.macro decode_RD8, dst, ins; rlwinm dst, ins, 19, 13, 28; .endmacro
157 |.macro decode_OP1, dst, ins; rlwinm dst, ins, 0, 24, 31; .endmacro
158 |.macro decode_RD4, dst, ins; rlwinm dst, ins, 18, 14, 29; .endmacro
160 |// Instruction fetch.
165 |// Instruction decode+dispatch.
167 | decode_OP4 TMP1, INS
170 | lwzx TMP0, DISPATCH, TMP1
181 |// Instruction footer.
183 | // Replicated dispatch. Less unpredictable branches, but higher I-Cache use.
184 | .define ins_next, ins_NEXT
185 | .define ins_next_, ins_NEXT
186 | .define ins_next1, ins_NEXT1
187 | .define ins_next2, ins_NEXT2
189 | // Common dispatch. Lower I-Cache use, only one (very) unpredictable branch.
190 | // Affects only certain kinds of benchmarks (and only with -j off).
205 |// Call decode and dispatch.
207 | // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, FRAME_PC(BASE) = PC
208 | lwz PC, LFUNC:RB->pc
211 | decode_OP4 TMP1, INS
213 | lwzx TMP0, DISPATCH, TMP1
220 | // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, PC = caller PC
221 | stw PC, FRAME_PC(BASE)
225 |//-----------------------------------------------------------------------
227 |// Macros to test operand types.
228 |.macro checknum, reg; evcmpltu reg, TISNUM; .endmacro
229 |.macro checkstr, reg; evcmpeq reg, TISSTR; .endmacro
230 |.macro checktab, reg; evcmpeq reg, TISTAB; .endmacro
231 |.macro checkfunc, reg; evcmpeq reg, TISFUNC; .endmacro
232 |.macro checknil, reg; evcmpeq reg, TISNIL; .endmacro
233 |.macro checkok, label; blt label; .endmacro
234 |.macro checkfail, label; bge label; .endmacro
235 |.macro checkanyfail, label; bns label; .endmacro
236 |.macro checkallok, label; bso label; .endmacro
241 | addis PC, PC, -(BCBIAS_J*4 >> 16)
244 |// Assumes DISPATCH is relative to GL.
245 #define DISPATCH_GL(field) (GG_DISP2G + (int)offsetof(global_State, field))
246 #define DISPATCH_J(field) (GG_DISP2J + (int)offsetof(jit_State, field))
248 #define PC2PROTO(field) ((int)offsetof(GCproto, field)-(int)sizeof(GCproto))
258 |// Set current VM state. Uses TMP0.
259 |.macro li_vmstate, st; li TMP0, ~LJ_VMST_..st; .endmacro
260 |.macro st_vmstate; stw TMP0, DISPATCH_GL(vmstate)(DISPATCH); .endmacro
262 |// Move table write barrier back. Overwrites mark and tmp.
263 |.macro barrierback, tab, mark, tmp
264 | lwz tmp, DISPATCH_GL(gc.grayagain)(DISPATCH)
265 | // Assumes LJ_GC_BLACK is 0x04.
266 | rlwinm mark, mark, 0, 30, 28 // black2gray(tab)
267 | stw tab, DISPATCH_GL(gc.grayagain)(DISPATCH)
268 | stb mark, tab->marked
269 | stw tmp, tab->gclist
272 |//-----------------------------------------------------------------------
274 /* Generate subroutines used by opcodes and other parts of the VM. */
275 /* The .code_sub section should be last to help static branch prediction. */
276 static void build_subroutines(BuildCtx *ctx)
280 |//-----------------------------------------------------------------------
281 |//-- Return handling ----------------------------------------------------
282 |//-----------------------------------------------------------------------
285 | // See vm_return. Also: TMP2 = previous base.
286 | andi. TMP0, PC, FRAME_P
287 | evsplati TMP1, LJ_TTRUE
288 | beq ->cont_dispatch
290 | // Return from pcall or xpcall fast func.
291 | lwz PC, FRAME_PC(TMP2) // Fetch PC of previous frame.
292 | mr BASE, TMP2 // Restore caller base.
293 | // Prepending may overwrite the pcall frame, so do it at the end.
294 | stwu TMP1, FRAME_PC(RA) // Prepend true to results.
297 | andi. TMP0, PC, FRAME_TYPE
298 | addi RD, RD, 8 // RD = (nresults+1)*8.
300 | beq ->BC_RET_Z // Handle regular return to Lua.
303 | // BASE = base, RA = resultptr, RD/MULTRES = (nresults+1)*8, PC = return
304 | // TMP0 = PC & FRAME_TYPE
305 | cmpwi TMP0, FRAME_C
306 | rlwinm TMP2, PC, 0, 0, 28
308 | sub TMP2, BASE, TMP2 // TMP2 = previous base.
311 | addic. TMP1, RD, -8
313 | lwz TMP2, SAVE_NRES
319 | addic. TMP1, TMP1, -8
322 | evstdd TMP0, 0(BASE)
327 | cmpw TMP2, RD // More/less results wanted?
330 | stw BASE, L->top // Store new top.
333 | lwz TMP0, SAVE_CFRAME // Restore previous C frame.
334 | li CRET1, 0 // Ok return status for vm_pcall.
335 | stw TMP0, L->cframe
342 | ble >7 // Less results wanted?
343 | // More results wanted. Check stack size and fill up results with nil.
344 | lwz TMP1, L->maxstack
347 | evstdd TISNIL, 0(BASE)
352 |7: // Less results wanted.
354 | cmpwi TMP2, 0 // LUA_MULTRET+1 case?
355 | sub TMP0, BASE, TMP0 // Subtract the difference.
356 | iseleq BASE, BASE, TMP0 // Either keep top or shrink it.
359 |8: // Corner case: need to grow stack for filling up results.
360 | // This can happen if:
361 | // - A C function grows the stack (a lot).
362 | // - The GC shrinks the stack in between.
363 | // - A return back from a lua_call() with (high) nresults adjustment.
364 | stw BASE, L->top // Save current top held in BASE (yes).
368 | bl extern lj_state_growstack // (lua_State *L, int n)
369 | lwz TMP2, SAVE_NRES
372 | lwz BASE, L->top // Need the (realloced) L->top in BASE.
375 |->vm_unwind_c: // Unwind C stack, return from vm_pcall.
376 | // (void *cframe, int errcode)
379 |->vm_unwind_c_eh: // Landing pad for external unwinder.
381 | li TMP0, ~LJ_VMST_C
382 | lwz GL:TMP1, L->glref
383 | stw TMP0, GL:TMP1->vmstate
386 |->vm_unwind_ff: // Unwind C stack, return from ff pcall.
388 | rlwinm sp, CARG1, 0, 0, 29
389 |->vm_unwind_ff_eh: // Landing pad for external unwinder.
391 | evsplati TISNUM, LJ_TISNUM+1 // Setup type comparison constants.
392 | evsplati TISFUNC, LJ_TFUNC
394 | evsplati TISTAB, LJ_TTAB
397 | evmergelo TOBIT, TOBIT, TMP0
398 | lwz DISPATCH, L->glref // Setup pointer to dispatch table.
399 | evsplati TISSTR, LJ_TSTR
401 | evsplati TISNIL, LJ_TNIL
403 | lwz PC, FRAME_PC(BASE) // Fetch PC of previous frame.
404 | la RA, -8(BASE) // Results start at BASE-8.
405 | addi DISPATCH, DISPATCH, GG_G2DISP
406 | stw TMP1, 0(RA) // Prepend false to error message.
407 | li RD, 16 // 2 results: false + error message.
411 |//-----------------------------------------------------------------------
412 |//-- Grow stack for calls -----------------------------------------------
413 |//-----------------------------------------------------------------------
415 |->vm_growstack_c: // Grow stack for C function.
416 | li CARG2, LUA_MINSTACK
419 |->vm_growstack_l: // Grow stack for Lua function.
420 | // BASE = new base, RA = BASE+framesize*8, RC = nargs*8, PC = first PC
424 | addi PC, PC, 4 // Must point after first instruction.
428 | // L->base = new base, L->top = top
431 | bl extern lj_state_growstack // (lua_State *L, int n)
434 | lwz LFUNC:RB, FRAME_FUNC(BASE)
436 | // BASE = new base, RB = LFUNC/CFUNC, RC = nargs*8, FRAME_PC(BASE) = PC
437 | ins_callt // Just retry the call.
439 |//-----------------------------------------------------------------------
440 |//-- Entry points into the assembler VM ---------------------------------
441 |//-----------------------------------------------------------------------
443 |->vm_resume: // Setup C frame and resume thread.
444 | // (lua_State *L, TValue *base, int nres1 = 0, ptrdiff_t ef = 0)
447 | lwz DISPATCH, L->glref // Setup pointer to dispatch table.
449 | lbz TMP1, L->status
452 | addi TMP0, sp, CFRAME_RESUME
453 | addi DISPATCH, DISPATCH, GG_G2DISP
454 | stw CARG3, SAVE_NRES
456 | stw CARG3, SAVE_ERRF
457 | stw TMP0, L->cframe
458 | stw CARG3, SAVE_CFRAME
459 | stw CARG1, SAVE_PC // Any value outside of bytecode is ok.
462 | // Resume after yield (like a return).
465 | evsplati TISNUM, LJ_TISNUM+1 // Setup type comparison constants.
467 | evsplati TISFUNC, LJ_TFUNC
469 | evsplati TISTAB, LJ_TTAB
470 | lwz PC, FRAME_PC(BASE)
472 | evsplati TISSTR, LJ_TSTR
474 | evmergelo TOBIT, TOBIT, TMP2
475 | stb CARG3, L->status
476 | andi. TMP0, PC, FRAME_TYPE
479 | evsplati TISNIL, LJ_TNIL
485 |->vm_pcall: // Setup protected C frame and enter VM.
486 | // (lua_State *L, TValue *base, int nres1, ptrdiff_t ef)
489 | stw CARG4, SAVE_ERRF
492 |->vm_call: // Setup C frame and enter VM.
493 | // (lua_State *L, TValue *base, int nres1)
497 |1: // Entry point for vm_pcall above (PC = ftype).
498 | lwz TMP1, L:CARG1->cframe
499 | stw CARG3, SAVE_NRES
503 | stw sp, L->cframe // Add our C frame to cframe chain.
504 | lwz DISPATCH, L->glref // Setup pointer to dispatch table.
505 | stw CARG1, SAVE_PC // Any value outside of bytecode is ok.
506 | stw TMP1, SAVE_CFRAME
507 | addi DISPATCH, DISPATCH, GG_G2DISP
509 |3: // Entry point for vm_cpcall/vm_resume (BASE = base, PC = ftype).
510 | lwz TMP2, L->base // TMP2 = old base (used in vmeta_call).
511 | evsplati TISNUM, LJ_TISNUM+1 // Setup type comparison constants.
513 | evsplati TISFUNC, LJ_TFUNC
515 | evsplati TISTAB, LJ_TTAB
518 | sub PC, PC, TMP2 // PC = frame delta + frame type
519 | evsplati TISSTR, LJ_TSTR
520 | sub NARGS8:RC, TMP1, BASE
521 | evmergelo TOBIT, TOBIT, TMP0
523 | evsplati TISNIL, LJ_TNIL
527 | // TMP2 = old base, BASE = new base, RC = nargs*8, PC = caller PC
529 | evlddx LFUNC:RB, BASE, TMP0
531 | checkfail ->vmeta_call
533 |->vm_call_dispatch_f:
535 | // BASE = new base, RB = func, RC = nargs*8, PC = caller PC
537 |->vm_cpcall: // Setup protected C frame, call C.
538 | // (lua_State *L, lua_CFunction func, void *ud, lua_CPFunction cp)
541 | lwz TMP0, L:CARG1->stack
544 | stw CARG1, SAVE_PC // Any value outside of bytecode is ok.
545 | sub TMP0, TMP0, TMP1 // Compute -savestack(L, L->top).
546 | lwz TMP1, L->cframe
547 | stw sp, L->cframe // Add our C frame to cframe chain.
549 | stw TMP0, SAVE_NRES // Neg. delta means cframe w/o frame.
550 | stw TMP2, SAVE_ERRF // No error function.
551 | stw TMP1, SAVE_CFRAME
553 | bctrl // (lua_State *L, lua_CFunction func, void *ud)
555 | lwz DISPATCH, L->glref // Setup pointer to dispatch table.
557 | addi DISPATCH, DISPATCH, GG_G2DISP
558 | bne <3 // Else continue with the call.
559 | b ->vm_leave_cp // No base? Just remove C frame.
561 |//-----------------------------------------------------------------------
562 |//-- Metamethod handling ------------------------------------------------
563 |//-----------------------------------------------------------------------
565 |// The lj_meta_* functions (except for lj_meta_cat) don't reallocate the
566 |// stack, so BASE doesn't need to be reloaded across these calls.
568 |//-- Continuation dispatch ----------------------------------------------
571 | // BASE = meta base, RA = resultptr, RD = (nresults+1)*8
572 | lwz TMP0, -12(BASE) // Continuation.
574 | mr BASE, TMP2 // Restore caller BASE.
575 | lwz LFUNC:TMP1, FRAME_FUNC(TMP2)
577 | lwz PC, -16(RB) // Restore PC from [cont|PC].
580 | lwz TMP1, LFUNC:TMP1->pc
581 | evstddx TISNIL, RA, TMP2 // Ensure one valid arg.
582 | lwz KBASE, PC2PROTO(k)(TMP1)
583 | // BASE = base, RA = resultptr, RB = meta base
585 | bctr // Jump to continuation.
587 |1: // Tail call from C function.
592 |->cont_cat: // RA = resultptr, RB = meta base
595 | decode_RB8 SAVE0, INS
597 | add TMP1, BASE, SAVE0
600 | sub CARG3, CARG2, TMP1
602 | evstdd TMP0, 0(CARG2)
604 | evstddx TMP0, BASE, RA
607 |//-- Table indexing metamethods -----------------------------------------
610 | evmergelo STR:RC, TISSTR, STR:RC
611 | la CARG3, DISPATCH_GL(tmptv)(DISPATCH)
613 | evstdd STR:RC, 0(CARG3)
614 | add CARG2, BASE, RB
618 | evmergelo TAB:RB, TISTAB, TAB:RB
619 | la CARG2, DISPATCH_GL(tmptv)(DISPATCH)
620 | evmergelo STR:RC, TISSTR, STR:RC
621 | evstdd TAB:RB, 0(CARG2)
622 | la CARG3, DISPATCH_GL(tmptv2)(DISPATCH)
623 | evstdd STR:RC, 0(CARG3)
626 |->vmeta_tgetb: // TMP0 = index
629 | la CARG3, DISPATCH_GL(tmptv)(DISPATCH)
630 | add CARG2, BASE, RB
631 | evstdd TMP0, 0(CARG3)
637 | add CARG2, BASE, RB
638 | add CARG3, BASE, RC
643 | bl extern lj_meta_tget // (lua_State *L, TValue *o, TValue *k)
644 | // Returns TValue * (finished) or NULL (metamethod).
647 | evldd TMP0, 0(CRET1)
648 | evstddx TMP0, BASE, RA
651 |3: // Call __index metamethod.
652 | // BASE = base, L->top = new base, stack = cont/func/t/k
653 | subfic TMP1, BASE, FRAME_CONT
655 | stw PC, -16(BASE) // [cont|PC]
657 | lwz LFUNC:RB, FRAME_FUNC(BASE) // Guaranteed to be a function here.
658 | li NARGS8:RC, 16 // 2 args for func(t, k).
659 | b ->vm_call_dispatch_f
661 |//-----------------------------------------------------------------------
664 | evmergelo STR:RC, TISSTR, STR:RC
665 | la CARG3, DISPATCH_GL(tmptv)(DISPATCH)
667 | evstdd STR:RC, 0(CARG3)
668 | add CARG2, BASE, RB
672 | evmergelo TAB:RB, TISTAB, TAB:RB
673 | la CARG2, DISPATCH_GL(tmptv)(DISPATCH)
674 | evmergelo STR:RC, TISSTR, STR:RC
675 | evstdd TAB:RB, 0(CARG2)
676 | la CARG3, DISPATCH_GL(tmptv2)(DISPATCH)
677 | evstdd STR:RC, 0(CARG3)
680 |->vmeta_tsetb: // TMP0 = index
683 | la CARG3, DISPATCH_GL(tmptv)(DISPATCH)
684 | add CARG2, BASE, RB
685 | evstdd TMP0, 0(CARG3)
691 | add CARG2, BASE, RB
692 | add CARG3, BASE, RC
697 | bl extern lj_meta_tset // (lua_State *L, TValue *o, TValue *k)
698 | // Returns TValue * (finished) or NULL (metamethod).
700 | evlddx TMP0, BASE, RA
702 | // NOBARRIER: lj_meta_tset ensures the table is not black.
703 | evstdd TMP0, 0(CRET1)
706 |3: // Call __newindex metamethod.
707 | // BASE = base, L->top = new base, stack = cont/func/t/k/(v)
708 | subfic TMP1, BASE, FRAME_CONT
710 | stw PC, -16(BASE) // [cont|PC]
712 | lwz LFUNC:RB, FRAME_FUNC(BASE) // Guaranteed to be a function here.
713 | li NARGS8:RC, 24 // 3 args for func(t, k, v)
714 | evstdd TMP0, 16(BASE) // Copy value to third argument.
715 | b ->vm_call_dispatch_f
717 |//-- Comparison metamethods ---------------------------------------------
722 | add CARG2, BASE, RA
724 | add CARG3, BASE, RD
726 | decode_OP1 CARG4, INS
727 | bl extern lj_meta_comp // (lua_State *L, TValue *o1, *o2, int op)
728 | // Returns 0/1 or TValue * (metamethod).
735 | decode_RD4 TMP2, INS
736 | addis TMP3, PC, -(BCBIAS_J*4 >> 16)
737 | add TMP2, TMP2, TMP3
738 | isellt PC, PC, TMP2
742 |->cont_ra: // RA = resultptr
745 | decode_RA8 TMP1, INS
746 | evstddx TMP0, BASE, TMP1
749 |->cont_condt: // RA = resultptr
752 | cmplw TMP1, TMP0 // Branch if result is true.
755 |->cont_condf: // RA = resultptr
758 | cmplw TMP0, TMP1 // Branch if result is false.
762 | // CARG2, CARG3, CARG4 are already set by BC_ISEQV/BC_ISNEV.
767 | bl extern lj_meta_equal // (lua_State *L, GCobj *o1, *o2, int ne)
768 | // Returns 0/1 or TValue * (metamethod).
771 |//-- Arithmetic metamethods ---------------------------------------------
774 | add CARG3, BASE, RB
775 | add CARG4, KBASE, RC
779 | add CARG3, KBASE, RC
780 | add CARG4, BASE, RB
784 | add CARG3, BASE, RD
789 | add CARG3, BASE, RB
790 | add CARG4, BASE, RC
792 | add CARG2, BASE, RA
796 | decode_OP1 CARG5, INS // Caveat: CARG5 overlaps INS.
797 | bl extern lj_meta_arith // (lua_State *L, TValue *ra,*rb,*rc, BCReg op)
798 | // Returns NULL (finished) or TValue * (metamethod).
802 | // Call metamethod for binary op.
804 | // BASE = old base, CRET1 = new base, stack = cont/func/o1/o2
805 | sub TMP1, CRET1, BASE
806 | stw PC, -16(CRET1) // [cont|PC]
808 | addi PC, TMP1, FRAME_CONT
810 | li NARGS8:RC, 16 // 2 args for func(o1, o2).
811 | b ->vm_call_dispatch
814 #ifdef LUAJIT_ENABLE_LUA52COMPAT
817 | add CARG2, BASE, RD
821 | bl extern lj_meta_len // (lua_State *L, TValue *o)
822 | // Returns NULL (retry) or TValue * (metamethod base).
823 #ifdef LUAJIT_ENABLE_LUA52COMPAT
825 | bne ->vmeta_binop // Binop call for compatibility.
829 | b ->vmeta_binop // Binop call for compatibility.
832 |//-- Call metamethod ----------------------------------------------------
834 |->vmeta_call: // Resolve and call __call metamethod.
835 | // TMP2 = old base, BASE = new base, RC = nargs*8
837 | stw TMP2, L->base // This is the callers base!
838 | subi CARG2, BASE, 8
840 | add CARG3, BASE, RC
841 | mr SAVE0, NARGS8:RC
842 | bl extern lj_meta_call // (lua_State *L, TValue *func, TValue *top)
843 | lwz LFUNC:RB, FRAME_FUNC(BASE) // Guaranteed to be a function here.
844 | addi NARGS8:RC, SAVE0, 8 // Got one more argument now.
847 |->vmeta_callt: // Resolve __call for BC_CALLT.
848 | // BASE = old base, RA = new base, RC = nargs*8
854 | mr SAVE0, NARGS8:RC
855 | bl extern lj_meta_call // (lua_State *L, TValue *func, TValue *top)
856 | lwz TMP1, FRAME_PC(BASE)
857 | addi NARGS8:RC, SAVE0, 8 // Got one more argument now.
858 | lwz LFUNC:RB, FRAME_FUNC(RA) // Guaranteed to be a function here.
861 |//-- Argument coercion for 'for' statement ------------------------------
869 | bl extern lj_meta_for // (lua_State *L, TValue *base)
871 | decode_OP1 TMP0, SAVE0
873 | decode_RA8 RA, SAVE0
875 | cmpwi TMP0, BC_JFORI
877 | decode_RD8 RD, SAVE0
883 |//-----------------------------------------------------------------------
884 |//-- Fast functions -----------------------------------------------------
885 |//-----------------------------------------------------------------------
891 |.macro .ffunc_1, name
893 | cmplwi NARGS8:RC, 8
894 | evldd CARG1, 0(BASE)
898 |.macro .ffunc_2, name
900 | cmplwi NARGS8:RC, 16
901 | evldd CARG1, 0(BASE)
902 | evldd CARG2, 8(BASE)
906 |.macro .ffunc_n, name
909 | checkfail ->fff_fallback
912 |.macro .ffunc_nn, name
914 | evmergehi TMP0, CARG1, CARG2
916 | checkanyfail ->fff_fallback
919 |// Inlined GC threshold check. Caveat: uses TMP0 and TMP1.
921 | lwz TMP0, DISPATCH_GL(gc.total)(DISPATCH)
922 | lwz TMP1, DISPATCH_GL(gc.threshold)(DISPATCH)
927 |//-- Base library: checks -----------------------------------------------
930 | cmplwi NARGS8:RC, 8
931 | evldd TMP0, 0(BASE)
933 | evaddw TMP1, TISNIL, TISNIL // Synthesize LJ_TFALSE.
935 | evcmpltu cr1, TMP0, TMP1
936 | lwz PC, FRAME_PC(BASE)
937 | bge cr1, ->fff_fallback
939 | addi RD, NARGS8:RC, 8 // Compute (nresults+1)*8.
940 | beq ->fff_res // Done if exactly 1 argument.
945 | evlddx TMP0, BASE, TMP1
946 | evstddx TMP0, RA, TMP1
952 | cmplwi NARGS8:RC, 8
956 | cmplw CARG1, TISNUM
958 | isellt TMP1, TMP2, TMP1
960 | la TMP2, CFUNC:RB->upvalue
961 | evlddx STR:CRET1, TMP2, TMP1
964 |//-- Base library: getters and setters ---------------------------------
966 |.ffunc_1 getmetatable
968 | evmergehi TMP1, CARG1, CARG1
970 |1: // Field metatable must be at same offset for GCtab and GCudata!
971 | lwz TAB:RB, TAB:CARG1->metatable
975 | lwz STR:RC, DISPATCH_GL(gcroot[GCROOT_MMNAME+MM_metatable])(DISPATCH)
977 | lwz TMP0, TAB:RB->hmask
978 | evmergelo CRET1, TISTAB, TAB:RB // Use metatable as default result.
979 | lwz TMP1, STR:RC->hash
980 | lwz NODE:TMP2, TAB:RB->node
981 | evmergelo STR:RC, TISSTR, STR:RC
982 | and TMP1, TMP1, TMP0 // idx = str->hash & tab->hmask
985 | sub TMP1, TMP0, TMP1
986 | add NODE:TMP2, NODE:TMP2, TMP1 // node = tab->node + (idx*32-idx*8)
987 |3: // Rearranged logic, because we expect _not_ to find the key.
988 | evldd TMP0, NODE:TMP2->key
989 | evldd TMP1, NODE:TMP2->val
990 | evcmpeq TMP0, STR:RC
991 | lwz NODE:TMP2, NODE:TMP2->next
993 | cmplwi NODE:TMP2, 0
994 | beq ->fff_restv // Not found, keep default result.
998 | checkok ->fff_restv // Ditto for nil value.
999 | evmr CRET1, TMP1 // Return value of mt.__metatable.
1003 | cmpwi TMP1, LJ_TUDATA
1007 | slwi TMP1, TMP1, 2
1008 | li TMP2, 4*~LJ_TNUMX
1009 | isellt TMP1, TMP2, TMP1
1010 | la TMP2, DISPATCH_GL(gcroot[GCROOT_BASEMT])(DISPATCH)
1011 | lwzx TAB:RB, TMP2, TMP1
1014 |.ffunc_2 setmetatable
1015 | // Fast path: no mt for table yet and not clearing the mt.
1016 | evmergehi TMP0, TAB:CARG1, TAB:CARG2
1018 | checkanyfail ->fff_fallback
1019 | lwz TAB:TMP1, TAB:CARG1->metatable
1020 | cmplwi TAB:TMP1, 0
1021 | lbz TMP3, TAB:CARG1->marked
1022 | bne ->fff_fallback
1023 | andi. TMP0, TMP3, LJ_GC_BLACK // isblack(table)
1024 | stw TAB:CARG2, TAB:CARG1->metatable
1026 | barrierback TAB:CARG1, TMP3, TMP0
1030 | cmplwi NARGS8:RC, 16
1031 | evldd CARG2, 0(BASE)
1032 | blt ->fff_fallback
1035 | checkfail ->fff_fallback
1037 | bl extern lj_tab_get // (lua_State *L, GCtab *t, cTValue *key)
1038 | // Returns cTValue *.
1039 | evldd CRET1, 0(CRET1)
1042 |//-- Base library: conversions ------------------------------------------
1045 | // Only handles the number case inline (without a base argument).
1046 | cmplwi NARGS8:RC, 8
1047 | evldd CARG1, 0(BASE)
1048 | bne ->fff_fallback // Exactly one argument.
1050 | checkok ->fff_restv
1054 | // Only handles the string or number case inline.
1056 | // A __tostring method in the string base metatable is ignored.
1057 | checkok ->fff_restv // String key?
1058 | // Handle numbers inline, unless a number base metatable is present.
1059 | lwz TMP0, DISPATCH_GL(gcroot[GCROOT_BASEMT_NUM])(DISPATCH)
1061 | cmplwi cr1, TMP0, 0
1062 | stw BASE, L->base // Add frame since C call can throw.
1063 | crand 4*cr0+eq, 4*cr0+lt, 4*cr1+eq
1064 | stw PC, SAVE_PC // Redundant (but a defined value).
1065 | bne ->fff_fallback
1069 | bl extern lj_str_fromnum // (lua_State *L, lua_Number *np)
1070 | // Returns GCstr *.
1071 | evmergelo STR:CRET1, TISSTR, STR:CRET1
1074 |//-- Base library: iterators -------------------------------------------
1077 | cmplwi NARGS8:RC, 8
1078 | evldd CARG2, 0(BASE)
1079 | blt ->fff_fallback
1080 | evstddx TISNIL, BASE, NARGS8:RC // Set missing 2nd arg to nil.
1081 | checktab TAB:CARG2
1082 | lwz PC, FRAME_PC(BASE)
1083 | checkfail ->fff_fallback
1084 | stw BASE, L->base // Add frame since C call can throw.
1086 | stw BASE, L->top // Dummy frame length is ok.
1089 | bl extern lj_tab_next // (lua_State *L, GCtab *t, TValue *key)
1090 | // Returns 0 at end of traversal.
1092 | evmr CRET1, TISNIL
1093 | beq ->fff_restv // End of traversal: return nil.
1094 | evldd TMP0, 8(BASE) // Copy key and value to results.
1096 | evldd TMP1, 16(BASE)
1097 | evstdd TMP0, 0(RA)
1099 | evstdd TMP1, 8(RA)
1103 | checktab TAB:CARG1
1104 | lwz PC, FRAME_PC(BASE)
1105 | checkfail ->fff_fallback
1106 #ifdef LUAJIT_ENABLE_LUA52COMPAT
1107 | lwz TAB:TMP2, TAB:CARG1->metatable
1108 | evldd CFUNC:TMP0, CFUNC:RB->upvalue[0]
1109 | cmplwi TAB:TMP2, 0
1111 | bne ->fff_fallback
1113 | evldd CFUNC:TMP0, CFUNC:RB->upvalue[0]
1116 | evstdd TISNIL, 8(BASE)
1118 | evstdd CFUNC:TMP0, 0(RA)
1121 |.ffunc_2 ipairs_aux
1122 | checktab TAB:CARG1
1123 | lwz PC, FRAME_PC(BASE)
1124 | checkfail ->fff_fallback
1127 | checkfail ->fff_fallback
1128 | efdctsi TMP2, CARG2
1129 | lwz TMP0, TAB:CARG1->asize
1130 | evmergelo TMP3, TMP3, ZERO
1131 | lwz TMP1, TAB:CARG1->array
1132 | efdadd CARG2, CARG2, TMP3
1133 | addi TMP2, TMP2, 1
1136 | slwi TMP3, TMP2, 3
1137 | evstdd CARG2, 0(RA)
1138 | ble >2 // Not in array part?
1139 | evlddx TMP1, TMP1, TMP3
1143 | checkok ->fff_res // End of iteration, return 0 results.
1145 | evstdd TMP1, 8(RA)
1147 |2: // Check for empty hash part first. Otherwise call C function.
1148 | lwz TMP0, TAB:CARG1->hmask
1153 | bl extern lj_tab_getinth // (GCtab *t, int32_t key)
1154 | // Returns cTValue * or NULL.
1158 | evldd TMP1, 0(CRET1)
1162 | checktab TAB:CARG1
1163 | lwz PC, FRAME_PC(BASE)
1164 | checkfail ->fff_fallback
1165 #ifdef LUAJIT_ENABLE_LUA52COMPAT
1166 | lwz TAB:TMP2, TAB:CARG1->metatable
1167 | evldd CFUNC:TMP0, CFUNC:RB->upvalue[0]
1168 | cmplwi TAB:TMP2, 0
1170 | bne ->fff_fallback
1172 | evldd CFUNC:TMP0, CFUNC:RB->upvalue[0]
1177 | evstdd TMP1, 8(BASE)
1178 | evstdd CFUNC:TMP0, 0(RA)
1181 |//-- Base library: catch errors ----------------------------------------
1184 | cmplwi NARGS8:RC, 8
1185 | lbz TMP3, DISPATCH_GL(hookmask)(DISPATCH)
1186 | blt ->fff_fallback
1189 | // Remember active hook before pcall.
1190 | rlwinm TMP3, TMP3, 32-HOOK_ACTIVE_SHIFT, 31, 31
1191 | subi NARGS8:RC, NARGS8:RC, 8
1192 | addi PC, TMP3, 8+FRAME_PCALL
1193 | b ->vm_call_dispatch
1196 | lbz TMP3, DISPATCH_GL(hookmask)(DISPATCH)
1198 | checkfunc CARG2 // Traceback must be a function.
1199 | checkfail ->fff_fallback
1201 | // Remember active hook before pcall.
1202 | rlwinm TMP3, TMP3, 32-HOOK_ACTIVE_SHIFT, 31, 31
1203 | evstdd CARG2, 0(TMP2) // Swap function and traceback.
1204 | subi NARGS8:RC, NARGS8:RC, 16
1205 | evstdd CARG1, 8(TMP2)
1206 | addi PC, TMP3, 16+FRAME_PCALL
1207 | b ->vm_call_dispatch
1209 |//-- Coroutine library --------------------------------------------------
1211 |.macro coroutine_resume_wrap, resume
1213 |.ffunc_1 coroutine_resume
1214 | evmergehi TMP0, L:CARG1, L:CARG1
1216 |.ffunc coroutine_wrap_aux
1217 | lwz L:CARG1, CFUNC:RB->upvalue[0].gcr
1220 | cmpwi TMP0, LJ_TTHREAD
1221 | bne ->fff_fallback
1223 | lbz TMP0, L:CARG1->status
1224 | lwz TMP1, L:CARG1->cframe
1225 | lwz CARG2, L:CARG1->top
1226 | cmplwi cr0, TMP0, LUA_YIELD
1227 | lwz TMP2, L:CARG1->base
1228 | cmplwi cr1, TMP1, 0
1229 | lwz TMP0, L:CARG1->maxstack
1230 | cmplw cr7, CARG2, TMP2
1231 | lwz PC, FRAME_PC(BASE)
1232 | crorc 4*cr6+lt, 4*cr0+gt, 4*cr1+eq // st>LUA_YIELD || cframe!=0
1233 | add TMP2, CARG2, NARGS8:RC
1234 | crandc 4*cr6+gt, 4*cr7+eq, 4*cr0+eq // base==top && st!=LUA_YIELD
1235 | cmplw cr1, TMP2, TMP0
1236 | cror 4*cr6+lt, 4*cr6+lt, 4*cr6+gt
1238 | cror 4*cr6+lt, 4*cr6+lt, 4*cr1+gt // cond1 || cond2 || stackov
1240 | blt cr6, ->fff_fallback
1243 | addi BASE, BASE, 8 // Keep resumed thread in stack for GC.
1244 | subi NARGS8:RC, NARGS8:RC, 8
1245 | subi TMP2, TMP2, 8
1247 | stw TMP2, L:CARG1->top
1250 |2: // Move args to coroutine.
1251 | cmpw TMP1, NARGS8:RC
1252 | evlddx TMP0, BASE, TMP1
1254 | evstddx TMP0, CARG2, TMP1
1255 | addi TMP1, TMP1, 8
1259 | mr L:SAVE0, L:CARG1
1261 | bl ->vm_resume // (lua_State *L, TValue *base, 0, 0)
1262 | // Returns thread status.
1264 | lwz TMP2, L:SAVE0->base
1265 | cmplwi CRET1, LUA_YIELD
1266 | lwz TMP3, L:SAVE0->top
1271 | sub RD, TMP3, TMP2
1272 | lwz TMP0, L->maxstack
1274 | add TMP1, BASE, RD
1275 | beq >6 // No results?
1278 | bgt >9 // Need to grow stack?
1281 | stw TMP2, L:SAVE0->top // Clear coroutine stack.
1282 |5: // Move results from coroutine.
1284 | evlddx TMP0, TMP2, TMP1
1285 | evstddx TMP0, BASE, TMP1
1286 | addi TMP1, TMP1, 8
1289 | andi. TMP0, PC, FRAME_TYPE
1293 | stw TMP1, -8(BASE) // Prepend true to results.
1305 |8: // Coroutine returned with error (at co->top-1).
1307 | andi. TMP0, PC, FRAME_TYPE
1309 | li TMP1, LJ_TFALSE
1310 | evldd TMP0, 0(TMP3)
1311 | stw TMP3, L:SAVE0->top // Remove error from coroutine stack.
1313 | stw TMP1, -8(BASE) // Prepend false to results.
1315 | evstdd TMP0, 0(BASE) // Copy error message.
1320 | bl extern lj_ffh_coroutine_wrap_err // (lua_State *L, lua_State *co)
1323 |9: // Handle stack expansion on return from yield.
1326 | bl extern lj_state_growstack // (lua_State *L, int n)
1331 | coroutine_resume_wrap 1 // coroutine.resume
1332 | coroutine_resume_wrap 0 // coroutine.wrap
1334 |.ffunc coroutine_yield
1335 | lwz TMP0, L->cframe
1336 | add TMP1, BASE, NARGS8:RC
1338 | andi. TMP0, TMP0, CFRAME_RESUME
1340 | li CRET1, LUA_YIELD
1341 | beq ->fff_fallback
1342 | stw ZERO, L->cframe
1343 | stb CRET1, L->status
1346 |//-- Math library -------------------------------------------------------
1349 | efdabs CRET1, CARG1
1353 | // CRET1 = TValue result.
1354 | lwz PC, FRAME_PC(BASE)
1356 | evstdd CRET1, 0(RA)
1358 | // RA = results, PC = return.
1361 | // RA = results, RD = (nresults+1)*8, PC = return.
1362 | andi. TMP0, PC, FRAME_TYPE
1366 | decode_RB8 RB, INS
1368 | cmplw RB, RD // More results expected?
1369 | decode_RA8 TMP0, INS
1372 | // Adjust BASE. KBASE is assumed to be set for the calling frame.
1373 | sub BASE, RA, TMP0
1376 |6: // Fill up results with nil.
1379 | evstddx TISNIL, RA, TMP1
1382 |.macro math_extern, func
1383 | .ffunc math_ .. func
1384 | cmplwi NARGS8:RC, 8
1385 | evldd CARG2, 0(BASE)
1386 | blt ->fff_fallback
1388 | evmergehi CARG1, CARG2, CARG2
1389 | checkfail ->fff_fallback
1391 | evmergelo CRET1, CRET1, CRET2
1395 |.macro math_extern2, func
1396 | .ffunc math_ .. func
1397 | cmplwi NARGS8:RC, 16
1398 | evldd CARG2, 0(BASE)
1399 | evldd CARG4, 8(BASE)
1400 | blt ->fff_fallback
1401 | evmergehi CARG1, CARG4, CARG2
1403 | evmergehi CARG3, CARG4, CARG4
1404 | checkanyfail ->fff_fallback
1406 | evmergelo CRET1, CRET1, CRET2
1410 |.macro math_round, func
1411 | .ffunc math_ .. func
1412 | cmplwi NARGS8:RC, 8
1413 | evldd CARG2, 0(BASE)
1414 | blt ->fff_fallback
1416 | evmergehi CARG1, CARG2, CARG2
1417 | checkfail ->fff_fallback
1418 | lwz PC, FRAME_PC(BASE)
1419 | bl ->vm_..func.._hilo;
1421 | evstdd CRET2, 0(RA)
1442 | math_extern2 atan2
1447 | evldd CARG2, CFUNC:RB->upvalue[0]
1448 | efdmul CRET1, CARG1, CARG2
1452 | cmplwi NARGS8:RC, 16
1453 | evldd CARG2, 0(BASE)
1454 | evldd CARG4, 8(BASE)
1455 | blt ->fff_fallback
1456 | evmergehi CARG1, CARG4, CARG2
1458 | checkanyfail ->fff_fallback
1459 | efdctsi CARG3, CARG4
1461 | evmergelo CRET1, CRET1, CRET2
1465 | cmplwi NARGS8:RC, 8
1466 | evldd CARG2, 0(BASE)
1467 | blt ->fff_fallback
1469 | evmergehi CARG1, CARG2, CARG2
1470 | checkfail ->fff_fallback
1471 | la CARG3, DISPATCH_GL(tmptv)(DISPATCH)
1472 | lwz PC, FRAME_PC(BASE)
1474 | lwz TMP1, DISPATCH_GL(tmptv)(DISPATCH)
1475 | evmergelo CRET1, CRET1, CRET2
1476 | efdcfsi CRET2, TMP1
1478 | evstdd CRET1, 0(RA)
1480 | evstdd CRET2, 8(RA)
1484 | cmplwi NARGS8:RC, 8
1485 | evldd CARG2, 0(BASE)
1486 | blt ->fff_fallback
1488 | evmergehi CARG1, CARG2, CARG2
1489 | checkfail ->fff_fallback
1490 | la CARG3, -8(BASE)
1491 | lwz PC, FRAME_PC(BASE)
1493 | evmergelo CRET1, CRET1, CRET2
1495 | evstdd CRET1, 0(BASE)
1499 |.macro math_minmax, name, cmpop
1503 | checkfail ->fff_fallback
1505 | evlddx CARG2, BASE, TMP1
1506 | cmplw cr1, TMP1, NARGS8:RC
1508 | bge cr1, ->fff_restv // Ok, since CRET1 = CARG1.
1509 | checkfail ->fff_fallback
1510 | cmpop CARG2, CARG1
1511 | addi TMP1, TMP1, 8
1512 | crmove 4*cr0+lt, 4*cr0+gt
1513 | evsel CARG1, CARG2, CARG1
1517 | math_minmax math_min, efdtstlt
1518 | math_minmax math_max, efdtstgt
1520 |//-- String library -----------------------------------------------------
1522 |.ffunc_1 string_len
1523 | checkstr STR:CARG1
1524 | checkfail ->fff_fallback
1525 | lwz TMP0, STR:CARG1->len
1526 | efdcfsi CRET1, TMP0
1529 |.ffunc string_byte // Only handle the 1-arg case here.
1530 | cmplwi NARGS8:RC, 8
1531 | evldd STR:CARG1, 0(BASE)
1532 | bne ->fff_fallback // Need exactly 1 argument.
1533 | checkstr STR:CARG1
1535 | checkfail ->fff_fallback
1536 | lwz TMP0, STR:CARG1->len
1538 | lbz TMP1, STR:CARG1[1] // Access is always ok (NUL at end).
1541 | lwz PC, FRAME_PC(BASE)
1542 | efdcfsi CRET1, TMP1
1543 | iseleq RD, RD, TMP2
1544 | evstdd CRET1, 0(RA)
1547 |.ffunc string_char // Only handle the 1-arg case here.
1549 | cmplwi NARGS8:RC, 8
1550 | evldd CARG1, 0(BASE)
1551 | bne ->fff_fallback // Exactly 1 argument.
1553 | la CARG2, DISPATCH_GL(tmptv)(DISPATCH)
1554 | checkfail ->fff_fallback
1555 | efdctsiz TMP0, CARG1
1558 | stb TMP0, 0(CARG2)
1559 | bgt ->fff_fallback
1564 | bl extern lj_str_new // (lua_State *L, char *str, size_t l)
1565 | // Returns GCstr *.
1567 | evmergelo STR:CRET1, TISSTR, STR:CRET1
1572 | cmplwi NARGS8:RC, 16
1573 | evldd CARG3, 16(BASE)
1574 | evldd STR:CARG1, 0(BASE)
1575 | blt ->fff_fallback
1576 | evldd CARG2, 8(BASE)
1580 | checkfail ->fff_fallback
1581 | efdctsiz TMP2, CARG3
1584 | checkfail ->fff_fallback
1585 | checkstr STR:CARG1
1586 | efdctsiz TMP1, CARG2
1587 | checkfail ->fff_fallback
1588 | lwz TMP0, STR:CARG1->len
1589 | cmplw TMP0, TMP2 // len < end? (unsigned compare)
1590 | add TMP3, TMP2, TMP0
1593 | cmpwi TMP1, 0 // start <= 0?
1594 | add TMP3, TMP1, TMP0
1597 | sub. CARG3, TMP2, TMP1
1598 | addi CARG2, STR:CARG1, #STR-1
1599 | addi CARG3, CARG3, 1
1600 | add CARG2, CARG2, TMP1
1601 | isellt CARG3, r0, CARG3
1604 |5: // Negative end or overflow.
1606 | addi TMP3, TMP3, 1
1607 | iselgt TMP2, TMP3, TMP0 // end = end > len ? len : end+len+1
1610 |7: // Negative start or underflow.
1611 | cmpwi cr1, TMP3, 0
1612 | iseleq TMP1, r0, TMP3
1613 | isel TMP1, r0, TMP1, 4*cr1+lt
1614 | addi TMP1, TMP1, 1 // start = 1 + (start ? start+len : 0)
1617 |.ffunc string_rep // Only handle the 1-char case inline.
1619 | cmplwi NARGS8:RC, 16
1620 | evldd CARG1, 0(BASE)
1621 | evldd CARG2, 8(BASE)
1622 | blt ->fff_fallback
1624 | checkfail ->fff_fallback
1625 | checkstr STR:CARG1
1626 | efdctsiz CARG3, CARG2
1627 | checkfail ->fff_fallback
1628 | lwz TMP0, STR:CARG1->len
1630 | lwz TMP1, DISPATCH_GL(tmpbuf.sz)(DISPATCH)
1631 | ble >2 // Count <= 0? (or non-int)
1633 | subi TMP2, CARG3, 1
1634 | blt >2 // Zero length string?
1635 | cmplw cr1, TMP1, CARG3
1636 | bne ->fff_fallback // Fallback for > 1-char strings.
1637 | lbz TMP0, STR:CARG1[1]
1638 | lwz CARG2, DISPATCH_GL(tmpbuf.buf)(DISPATCH)
1639 | blt cr1, ->fff_fallback
1640 |1: // Fill buffer with char. Yes, this is suboptimal code (do you care?).
1642 | stbx TMP0, CARG2, TMP2
1643 | subi TMP2, TMP2, 1
1646 |2: // Return empty string.
1647 | la STR:CRET1, DISPATCH_GL(strempty)(DISPATCH)
1648 | evmergelo CRET1, TISSTR, STR:CRET1
1651 |.ffunc string_reverse
1653 | cmplwi NARGS8:RC, 8
1654 | evldd CARG1, 0(BASE)
1655 | blt ->fff_fallback
1656 | checkstr STR:CARG1
1657 | lwz TMP1, DISPATCH_GL(tmpbuf.sz)(DISPATCH)
1658 | checkfail ->fff_fallback
1659 | lwz CARG3, STR:CARG1->len
1660 | la CARG1, #STR(STR:CARG1)
1661 | lwz CARG2, DISPATCH_GL(tmpbuf.buf)(DISPATCH)
1664 | subi TMP3, CARG3, 1
1665 | blt ->fff_fallback
1666 |1: // Reverse string copy.
1668 | lbzx TMP1, CARG1, TMP2
1670 | stbx TMP1, CARG2, TMP3
1671 | subi TMP3, TMP3, 1
1672 | addi TMP2, TMP2, 1
1675 |.macro ffstring_case, name, lo
1678 | cmplwi NARGS8:RC, 8
1679 | evldd CARG1, 0(BASE)
1680 | blt ->fff_fallback
1681 | checkstr STR:CARG1
1682 | lwz TMP1, DISPATCH_GL(tmpbuf.sz)(DISPATCH)
1683 | checkfail ->fff_fallback
1684 | lwz CARG3, STR:CARG1->len
1685 | la CARG1, #STR(STR:CARG1)
1686 | lwz CARG2, DISPATCH_GL(tmpbuf.buf)(DISPATCH)
1689 | blt ->fff_fallback
1690 |1: // ASCII case conversion.
1692 | lbzx TMP1, CARG1, TMP2
1694 | subi TMP0, TMP1, lo
1695 | xori TMP3, TMP1, 0x20
1697 | isellt TMP1, TMP3, TMP1
1698 | stbx TMP1, CARG2, TMP2
1699 | addi TMP2, TMP2, 1
1703 |ffstring_case string_lower, 65
1704 |ffstring_case string_upper, 97
1706 |//-- Table library ------------------------------------------------------
1708 |.ffunc_1 table_getn
1710 | checkfail ->fff_fallback
1711 | bl extern lj_tab_len // (GCtab *t)
1712 | // Returns uint32_t (but less than 2^31).
1713 | efdcfsi CRET1, CRET1
1716 |//-- Bit library --------------------------------------------------------
1718 |.macro .ffunc_bit, name
1719 | .ffunc_n bit_..name
1720 | efdadd CARG1, CARG1, TOBIT
1725 | efdcfsi CRET1, CARG1
1728 |.macro .ffunc_bit_op, name, ins
1732 | evlddx CARG2, BASE, TMP1
1733 | cmplw cr1, TMP1, NARGS8:RC
1735 | bge cr1, ->fff_resbit
1736 | checkfail ->fff_fallback
1737 | efdadd CARG2, CARG2, TOBIT
1738 | ins CARG1, CARG1, CARG2
1739 | addi TMP1, TMP1, 8
1743 |.ffunc_bit_op band, and
1744 |.ffunc_bit_op bor, or
1745 |.ffunc_bit_op bxor, xor
1748 | rotlwi TMP0, CARG1, 8
1749 | rlwimi TMP0, CARG1, 24, 0, 7
1750 | rlwimi TMP0, CARG1, 24, 16, 23
1751 | efdcfsi CRET1, TMP0
1756 | efdcfsi CRET1, TMP0
1759 |.macro .ffunc_bit_sh, name, ins, shmod
1760 | .ffunc_nn bit_..name
1761 | efdadd CARG2, CARG2, TOBIT
1762 | efdadd CARG1, CARG1, TOBIT
1764 | rlwinm CARG2, CARG2, 0, 27, 31
1768 | ins TMP0, CARG1, CARG2
1769 | efdcfsi CRET1, TMP0
1773 |.ffunc_bit_sh lshift, slw, 1
1774 |.ffunc_bit_sh rshift, srw, 1
1775 |.ffunc_bit_sh arshift, sraw, 1
1776 |.ffunc_bit_sh rol, rotlw, 0
1777 |.ffunc_bit_sh ror, rotlw, 2
1779 |//-----------------------------------------------------------------------
1781 |->fff_fallback: // Call fast function fallback handler.
1782 | // BASE = new base, RB = CFUNC, RC = nargs*8
1783 | lwz TMP3, CFUNC:RB->f
1784 | add TMP1, BASE, NARGS8:RC
1785 | lwz PC, FRAME_PC(BASE) // Fallback may overwrite PC.
1786 | addi TMP0, TMP1, 8*LUA_MINSTACK
1787 | lwz TMP2, L->maxstack
1788 | stw PC, SAVE_PC // Redundant (but a defined value).
1793 | bgt >5 // Need to grow stack.
1795 | bctrl // (lua_State *L)
1796 | // Either throws an error, or recovers and returns -1, 0 or nresults+1.
1801 | bgt ->fff_res // Returned nresults+1?
1802 |1: // Returned 0 or -1: retry fast path.
1804 | lwz LFUNC:RB, FRAME_FUNC(BASE)
1805 | sub NARGS8:RC, TMP0, BASE
1806 | bne ->vm_call_tail // Returned -1?
1807 | ins_callt // Returned 0: retry fast path.
1809 |// Reconstruct previous base for vmeta_call during tailcall.
1811 | andi. TMP0, PC, FRAME_TYPE
1812 | rlwinm TMP1, PC, 0, 0, 28
1815 | decode_RA8 TMP1, INS
1816 | addi TMP1, TMP1, 8
1818 | sub TMP2, BASE, TMP1
1819 | b ->vm_call_dispatch // Resolve again for tailcall.
1821 |5: // Grow stack for fallback handler.
1822 | li CARG2, LUA_MINSTACK
1823 | bl extern lj_state_growstack // (lua_State *L, int n)
1825 | cmpw TMP0, TMP0 // Set 4*cr0+eq to force retry.
1828 |->fff_gcstep: // Call GC step function.
1829 | // BASE = new base, RC = nargs*8
1832 | add TMP0, BASE, NARGS8:RC
1833 | stw PC, SAVE_PC // Redundant (but a defined value).
1836 | bl extern lj_gc_step // (lua_State *L)
1840 | sub NARGS8:RC, TMP0, BASE
1841 | lwz CFUNC:RB, FRAME_FUNC(BASE)
1844 |//-----------------------------------------------------------------------
1845 |//-- Special dispatch targets -------------------------------------------
1846 |//-----------------------------------------------------------------------
1848 |->vm_record: // Dispatch target for recording phase.
1853 |->vm_rethook: // Dispatch target for return hooks.
1854 | lbz TMP3, DISPATCH_GL(hookmask)(DISPATCH)
1855 | andi. TMP0, TMP3, HOOK_ACTIVE // Hook already active?
1857 |5: // Re-dispatch to static ins.
1858 | addi TMP1, TMP1, GG_DISP2STATIC // Assumes decode_OP4 TMP1, INS.
1859 | lwzx TMP0, DISPATCH, TMP1
1863 |->vm_inshook: // Dispatch target for instr/line hooks.
1864 | lbz TMP3, DISPATCH_GL(hookmask)(DISPATCH)
1865 | lwz TMP2, DISPATCH_GL(hookcount)(DISPATCH)
1866 | andi. TMP0, TMP3, HOOK_ACTIVE // Hook already active?
1867 | rlwinm TMP0, TMP3, 31-LUA_HOOKLINE, 31, 0
1870 | cmpwi cr1, TMP0, 0
1871 | addic. TMP2, TMP2, -1
1873 | stw TMP2, DISPATCH_GL(hookcount)(DISPATCH)
1878 | stw MULTRES, SAVE_MULTRES
1881 | // SAVE_PC must hold the _previous_ PC. The callee updates it with PC.
1882 | bl extern lj_dispatch_ins // (lua_State *L, const BCIns *pc)
1885 |4: // Re-dispatch to static ins.
1887 | decode_OP4 TMP1, INS
1888 | decode_RB8 RB, INS
1889 | addi TMP1, TMP1, GG_DISP2STATIC
1890 | decode_RD8 RD, INS
1891 | lwzx TMP0, DISPATCH, TMP1
1892 | decode_RA8 RA, INS
1893 | decode_RC8 RC, INS
1897 |->cont_hook: // Continue from hook yield.
1899 | lwz MULTRES, -20(RB) // Restore MULTRES for *M ins.
1902 |->vm_hotloop: // Hot loop counter underflow.
1907 |->vm_callhook: // Dispatch target for call hooks.
1913 |->vm_hotcall: // Hot call counter underflow.
1918 | add TMP0, BASE, RC
1924 | bl extern lj_dispatch_call // (lua_State *L, const BCIns *pc)
1925 | // Returns ASMFunction.
1928 | stw ZERO, SAVE_PC // Invalidate for subsequent line hook.
1929 | sub NARGS8:RC, TMP0, BASE
1931 | lwz LFUNC:RB, FRAME_FUNC(BASE)
1935 |//-----------------------------------------------------------------------
1936 |//-- Trace exit handler -------------------------------------------------
1937 |//-----------------------------------------------------------------------
1948 |//-----------------------------------------------------------------------
1949 |//-- Math helper functions ----------------------------------------------
1950 |//-----------------------------------------------------------------------
1952 |// FP value rounding. Called by math.floor/math.ceil fast functions
1953 |// and from JIT code.
1955 |// This can be inlined if the CPU has the frin/friz/frip/frim instructions.
1956 |// The alternative hard-float approaches have a deep dependency chain.
1957 |// The resulting latency is at least 3x-7x the double-precision FP latency
1958 |// (e500v2: 6cy, e600: 5cy, Cell: 10cy) or around 20-70 cycles.
1960 |// The soft-float approach is tedious, but much faster (e500v2: ~11cy/~6cy).
1961 |// However it relies on a fast way to transfer the FP value to GPRs
1962 |// (e500v2: 0cy for lo-word, 1cy for hi-word).
1964 |.macro vm_round, name, mode
1965 | // Used temporaries: TMP0, TMP1, TMP2, TMP3.
1966 |->name.._efd: // Input: CARG2, output: CRET2
1967 | evmergehi CARG1, CARG2, CARG2
1969 | // Input: CARG1 (hi), CARG2 (hi, lo), output: CRET2
1970 | rlwinm TMP2, CARG1, 12, 21, 31
1971 | addic. TMP2, TMP2, -1023 // exp = exponent(x) - 1023
1973 | cmplwi cr1, TMP2, 51 // 0 <= exp <= 51?
1974 | subfic TMP0, TMP2, 52
1977 | slw TMP0, TMP1, TMP0 // lomask = -1 << (52-exp)
1978 | sraw TMP1, TMP3, TMP2 // himask = (int32_t)0xfff00000 >> exp
1979 |.if mode == 2 // trunc(x):
1980 | evmergelo TMP0, TMP1, TMP0
1981 | evand CRET2, CARG2, TMP0 // hi &= himask, lo &= lomask
1983 | andc TMP2, CARG2, TMP0
1984 | andc TMP3, CARG1, TMP1
1985 | or TMP2, TMP2, TMP3 // ztest = (hi&~himask) | (lo&~lomask)
1986 | srawi TMP3, CARG1, 31 // signmask = (int32_t)hi >> 31
1987 |.if mode == 0 // floor(x):
1988 | and. TMP2, TMP2, TMP3 // iszero = ((ztest & signmask) == 0)
1990 | andc. TMP2, TMP2, TMP3 // iszero = ((ztest & ~signmask) == 0)
1992 | and CARG2, CARG2, TMP0 // lo &= lomask
1993 | and CARG1, CARG1, TMP1 // hi &= himask
1994 | subc TMP0, CARG2, TMP0
1995 | iseleq TMP0, CARG2, TMP0 // lo = iszero ? lo : lo-lomask
1996 | sube TMP1, CARG1, TMP1
1997 | iseleq TMP1, CARG1, TMP1 // hi = iszero ? hi : hi-himask+carry
1998 | evmergelo CRET2, TMP1, TMP0
2002 | bgtlr // Already done if >=2^52, +-inf or nan.
2003 |.if mode == 2 // trunc(x):
2004 | rlwinm TMP1, CARG1, 0, 0, 0 // hi = sign(x)
2006 | evmergelo CRET2, TMP1, TMP0
2008 | rlwinm TMP2, CARG1, 0, 1, 31
2009 | srawi TMP0, CARG1, 31 // signmask = (int32_t)hi >> 31
2010 | or TMP2, TMP2, CARG2 // ztest = abs(hi) | lo
2012 |.if mode == 0 // floor(x):
2013 | and. TMP2, TMP2, TMP0 // iszero = ((ztest & signmask) == 0)
2015 | andc. TMP2, TMP2, TMP0 // iszero = ((ztest & ~signmask) == 0)
2018 | iseleq TMP1, r0, TMP1
2019 | rlwimi CARG1, TMP1, 0, 1, 31 // hi = sign(x) | (iszero ? 0.0 : 1.0)
2020 | evmergelo CRET2, CARG1, TMP0
2027 | bl ->vm_floor_hilo
2029 | evmergehi CRET1, CRET2, CRET2
2032 | vm_round vm_floor, 0
2033 | vm_round vm_ceil, 1
2035 | vm_round vm_trunc, 2
2041 |// Callable from C: double lj_vm_foldarith(double x, double y, int op)
2042 |// Compute x op y for basic arithmetic operators (+ - * / % ^ and unary -)
2043 |// and basic math functions. ORDER ARITH
2045 | evmergelo CARG2, CARG1, CARG2
2047 | evmergelo CARG4, CARG3, CARG4
2049 | efdadd CRET2, CARG2, CARG4; evmergehi CRET1, CRET2, CRET2; blr
2051 | efdsub CRET2, CARG2, CARG4; evmergehi CRET1, CRET2, CRET2; blr
2053 | cmplwi CARG5, 3; beq >1; bgt >2
2054 | efdmul CRET2, CARG2, CARG4; evmergehi CRET1, CRET2, CRET2; blr
2056 | efddiv CRET2, CARG2, CARG4; evmergehi CRET1, CRET2, CRET2; blr
2058 | cmplwi CARG5, 5; beq >1; bgt >2
2059 | evmr CARG3, CARG2; efddiv CRET2, CARG2, CARG4; evmr RB, CARG4
2060 | mflr RC; bl ->vm_floor_efd; mtlr RC
2061 | efdmul CRET2, CRET2, RB; efdsub CRET2, CARG3, CRET2
2062 | evmergehi CRET1, CRET2, CRET2; blr
2066 | cmplwi CARG5, 7; beq >1; bgt >2
2067 | xoris CARG1, CARG1, 0x8000; blr
2069 | rlwinm CARG1, CARG1, 0, 1, 31; blr
2071 | NYI // Other operations only needed by JIT compiler.
2073 |//-----------------------------------------------------------------------
2074 |//-- Miscellaneous functions --------------------------------------------
2075 |//-----------------------------------------------------------------------
2077 |//-----------------------------------------------------------------------
2078 |//-- FFI helper functions -----------------------------------------------
2079 |//-----------------------------------------------------------------------
2086 |//-----------------------------------------------------------------------
2089 /* Generate the code for a single instruction. */
2090 static void build_ins(BuildCtx *ctx, BCOp op, int defop)
2097 /* -- Comparison ops ---------------------------------------------------- */
2099 /* Remember: all ops branch for a true comparison, fall through otherwise. */
2101 case BC_ISLT: case BC_ISGE: case BC_ISLE: case BC_ISGT:
2102 | // RA = src1*8, RD = src2*8, JMP with RD = target
2103 | evlddx TMP0, BASE, RA
2105 | evlddx TMP1, BASE, RD
2106 | addis TMP3, PC, -(BCBIAS_J*4 >> 16)
2108 | evmergehi RB, TMP0, TMP1
2109 | decode_RD4 TMP2, TMP2
2111 | add TMP2, TMP2, TMP3
2112 | checkanyfail ->vmeta_comp
2113 | efdcmplt TMP0, TMP1
2114 if (op == BC_ISLE || op == BC_ISGT) {
2115 | efdcmpeq cr1, TMP0, TMP1
2116 | cror 4*cr0+gt, 4*cr0+gt, 4*cr1+gt
2118 if (op == BC_ISLT || op == BC_ISLE) {
2119 | iselgt PC, TMP2, PC
2121 | iselgt PC, PC, TMP2
2126 case BC_ISEQV: case BC_ISNEV:
2127 vk = op == BC_ISEQV;
2128 | // RA = src1*8, RD = src2*8, JMP with RD = target
2129 | evlddx CARG2, BASE, RA
2131 | evlddx CARG3, BASE, RD
2132 | addis TMP3, PC, -(BCBIAS_J*4 >> 16)
2134 | evmergehi RB, CARG2, CARG3
2135 | decode_RD4 TMP2, TMP2
2137 | add TMP2, TMP2, TMP3
2139 | efdcmpeq CARG2, CARG3
2141 | iselgt PC, TMP2, PC
2143 | iselgt PC, PC, TMP2
2148 |5: // Either or both types are not numbers.
2149 | evcmpeq CARG2, CARG3
2151 | cmplwi cr1, TMP3, ~LJ_TISPRI // Primitive?
2152 | crorc 4*cr7+lt, 4*cr0+so, 4*cr0+lt // 1: Same tv or different type.
2153 | cmplwi cr6, TMP3, ~LJ_TISTABUD // Table or userdata?
2154 | crandc 4*cr7+gt, 4*cr0+lt, 4*cr1+gt // 2: Same type and primitive.
2157 | isel PC, TMP2, PC, 4*cr7+gt
2159 | isel TMP2, PC, TMP2, 4*cr7+gt
2161 | cror 4*cr7+lt, 4*cr7+lt, 4*cr7+gt // 1 or 2.
2163 | isel PC, TMP2, PC, 4*cr0+so
2165 | isel PC, PC, TMP2, 4*cr0+so
2167 | blt cr7, <1 // Done if 1 or 2.
2168 | blt cr6, <1 // Done if not tab/ud.
2170 | // Different tables or userdatas. Need to check __eq metamethod.
2171 | // Field metatable must be at same offset for GCtab and GCudata!
2172 | lwz TAB:TMP2, TAB:CARG2->metatable
2173 | li CARG4, 1-vk // ne = 0 or 1.
2174 | cmplwi TAB:TMP2, 0
2175 | beq <1 // No metatable?
2176 | lbz TMP2, TAB:TMP2->nomm
2177 | andi. TMP2, TMP2, 1<<MM_eq
2178 | bne <1 // Or 'no __eq' flag set?
2179 | mr PC, SAVE0 // Restore old PC.
2180 | b ->vmeta_equal // Handle __eq metamethod.
2183 case BC_ISEQS: case BC_ISNES:
2184 vk = op == BC_ISEQS;
2185 | // RA = src*8, RD = str_const*8 (~), JMP with RD = target
2186 | evlddx TMP0, BASE, RA
2191 | lwzx STR:TMP1, KBASE, RD // KBASE-4-str_const*4
2192 | addis TMP3, PC, -(BCBIAS_J*4 >> 16)
2193 | decode_RD4 TMP2, INS
2194 | evmergelo STR:TMP1, TISSTR, STR:TMP1
2195 | add TMP2, TMP2, TMP3
2196 | evcmpeq TMP0, STR:TMP1
2198 | isel PC, TMP2, PC, 4*cr0+so
2200 | isel PC, PC, TMP2, 4*cr0+so
2205 case BC_ISEQN: case BC_ISNEN:
2206 vk = op == BC_ISEQN;
2207 | // RA = src*8, RD = num_const*8, JMP with RD = target
2208 | evlddx TMP0, BASE, RA
2210 | evlddx TMP1, KBASE, RD
2211 | addis TMP3, PC, -(BCBIAS_J*4 >> 16)
2215 | efdcmpeq TMP0, TMP1
2217 | decode_RD4 TMP2, INS
2218 | add TMP2, TMP2, TMP3
2220 | iselgt PC, TMP2, PC
2223 | iselgt PC, PC, TMP2
2229 | decode_RD4 TMP2, INS
2230 | add PC, TMP2, TMP3
2235 case BC_ISEQP: case BC_ISNEP:
2236 vk = op == BC_ISEQP;
2237 | // RA = src*8, RD = primitive_type*8 (~), JMP with RD = target
2238 | lwzx TMP0, BASE, RA
2243 | addis TMP3, PC, -(BCBIAS_J*4 >> 16)
2245 | decode_RD4 TMP2, INS
2246 | add TMP2, TMP2, TMP3
2248 | iseleq PC, TMP2, PC
2250 | iseleq PC, PC, TMP2
2255 /* -- Unary test and copy ops ------------------------------------------- */
2257 case BC_ISTC: case BC_ISFC: case BC_IST: case BC_ISF:
2258 | // RA = dst*8 or unused, RD = src*8, JMP with RD = target
2259 | evlddx TMP0, BASE, RD
2260 | evaddw TMP1, TISNIL, TISNIL // Synthesize LJ_TFALSE.
2262 | evcmpltu TMP0, TMP1
2264 if (op == BC_IST || op == BC_ISF) {
2265 | addis TMP3, PC, -(BCBIAS_J*4 >> 16)
2266 | decode_RD4 TMP2, INS
2267 | add TMP2, TMP2, TMP3
2269 | isellt PC, TMP2, PC
2271 | isellt PC, PC, TMP2
2274 if (op == BC_ISTC) {
2279 | addis PC, PC, -(BCBIAS_J*4 >> 16)
2280 | decode_RD4 TMP2, INS
2281 | evstddx TMP0, BASE, RA
2288 /* -- Unary ops --------------------------------------------------------- */
2291 | // RA = dst*8, RD = src*8
2293 | evlddx TMP0, BASE, RD
2294 | evstddx TMP0, BASE, RA
2298 | // RA = dst*8, RD = src*8
2300 | lwzx TMP0, BASE, RD
2301 | subfic TMP1, TMP0, LJ_TTRUE
2302 | adde TMP0, TMP0, TMP1
2303 | stwx TMP0, BASE, RA
2307 | // RA = dst*8, RD = src*8
2308 | evlddx TMP0, BASE, RD
2310 | checkfail ->vmeta_unm
2313 | evstddx TMP0, BASE, RA
2317 | // RA = dst*8, RD = src*8
2318 | evlddx CARG1, BASE, RD
2321 | lwz CRET1, STR:CARG1->len
2324 | efdcfsi TMP0, CRET1
2325 | evstddx TMP0, BASE, RA
2329 | checkfail ->vmeta_len
2330 #ifdef LUAJIT_ENABLE_LUA52COMPAT
2331 | lwz TAB:TMP2, TAB:CARG1->metatable
2332 | cmplwi TAB:TMP2, 0
2337 | bl extern lj_tab_len // (GCtab *t)
2338 | // Returns uint32_t (but less than 2^31).
2340 #ifdef LUAJIT_ENABLE_LUA52COMPAT
2342 | lbz TMP0, TAB:TMP2->nomm
2343 | andi. TMP0, TMP0, 1<<MM_len
2344 | bne <3 // 'no __len' flag set: done.
2349 /* -- Binary ops -------------------------------------------------------- */
2351 |.macro ins_arithpre, t0, t1
2352 | // RA = dst*8, RB = src1*8, RC = src2*8 | num_const*8
2353 ||vk = ((int)op - BC_ADDVN) / (BC_ADDNV-BC_ADDVN);
2356 | evlddx t0, BASE, RB
2358 | evlddx t1, KBASE, RC
2359 | checkfail ->vmeta_arith_vn
2362 | evlddx t1, BASE, RB
2364 | evlddx t0, KBASE, RC
2365 | checkfail ->vmeta_arith_nv
2368 | evlddx t0, BASE, RB
2369 | evlddx t1, BASE, RC
2370 | evmergehi TMP2, t0, t1
2372 | checkanyfail ->vmeta_arith_vv
2377 |.macro ins_arith, ins
2378 | ins_arithpre TMP0, TMP1
2380 | ins TMP0, TMP0, TMP1
2381 | evstddx TMP0, BASE, RA
2385 case BC_ADDVN: case BC_ADDNV: case BC_ADDVV:
2388 case BC_SUBVN: case BC_SUBNV: case BC_SUBVV:
2391 case BC_MULVN: case BC_MULNV: case BC_MULVV:
2394 case BC_DIVVN: case BC_DIVNV: case BC_DIVVV:
2398 | ins_arithpre RD, SAVE0
2400 | efddiv CARG2, RD, SAVE0
2401 | bl ->vm_floor_efd // floor(b/c)
2402 | efdmul TMP0, CRET2, SAVE0
2404 | efdsub TMP0, RD, TMP0 // b - floor(b/c)*c
2405 | evstddx TMP0, BASE, RA
2408 case BC_MODNV: case BC_MODVV:
2409 | ins_arithpre RD, SAVE0
2410 | b ->BC_MODVN_Z // Avoid 3 copies. It's slow anyway.
2413 | evlddx CARG2, BASE, RB
2414 | evlddx CARG4, BASE, RC
2415 | evmergehi CARG1, CARG4, CARG2
2417 | evmergehi CARG3, CARG4, CARG4
2418 | checkanyfail ->vmeta_arith_vv
2420 | evmergelo CRET2, CRET1, CRET2
2421 | evstddx CRET2, BASE, RA
2426 | // RA = dst*8, RB = src_start*8, RC = src_end*8
2429 | add CARG2, BASE, RC
2434 | srwi CARG3, CARG3, 3
2435 | bl extern lj_meta_cat // (lua_State *L, TValue *top, int left)
2436 | // Returns NULL (finished) or TValue * (metamethod).
2440 | evlddx TMP0, BASE, SAVE0 // Copy result from RB to RA.
2441 | evstddx TMP0, BASE, RA
2445 /* -- Constant ops ------------------------------------------------------ */
2448 | // RA = dst*8, RD = str_const*8 (~)
2451 | subfic TMP1, TMP1, -4
2452 | lwzx TMP0, KBASE, TMP1 // KBASE-4-str_const*4
2453 | evmergelo TMP0, TISSTR, TMP0
2454 | evstddx TMP0, BASE, RA
2459 | // RA = dst*8, RD = cdata_const*8 (~)
2462 | subfic TMP1, TMP1, -4
2463 | lwzx TMP0, KBASE, TMP1 // KBASE-4-cdata_const*4
2464 | li TMP2, LJ_TCDATA
2465 | evmergelo TMP0, TMP2, TMP0
2466 | evstddx TMP0, BASE, RA
2471 | // RA = dst*8, RD = int16_literal*8
2475 | efdcfsi TMP0, TMP1
2476 | evstddx TMP0, BASE, RA
2480 | // RA = dst*8, RD = num_const*8
2481 | evlddx TMP0, KBASE, RD
2483 | evstddx TMP0, BASE, RA
2487 | // RA = dst*8, RD = primitive_type*8 (~)
2491 | stwx TMP0, BASE, RA
2495 | // RA = base*8, RD = end*8
2496 | evstddx TISNIL, BASE, RA
2499 | evstddx TISNIL, BASE, RA
2506 /* -- Upvalue and function ops ------------------------------------------ */
2509 | // RA = dst*8, RD = uvnum*8
2511 | lwz LFUNC:RB, FRAME_FUNC(BASE)
2513 | addi RD, RD, offsetof(GCfuncL, uvptr)
2514 | lwzx UPVAL:RB, LFUNC:RB, RD
2515 | lwz TMP1, UPVAL:RB->v
2516 | evldd TMP0, 0(TMP1)
2517 | evstddx TMP0, BASE, RA
2521 | // RA = uvnum*8, RD = src*8
2522 | lwz LFUNC:RB, FRAME_FUNC(BASE)
2524 | addi RA, RA, offsetof(GCfuncL, uvptr)
2525 | evlddx TMP1, BASE, RD
2526 | lwzx UPVAL:RB, LFUNC:RB, RA
2527 | lbz TMP3, UPVAL:RB->marked
2528 | lwz CARG2, UPVAL:RB->v
2529 | andi. TMP3, TMP3, LJ_GC_BLACK // isblack(uv)
2530 | lbz TMP0, UPVAL:RB->closed
2531 | evmergehi TMP2, TMP1, TMP1
2532 | evstdd TMP1, 0(CARG2)
2533 | cmplwi cr1, TMP0, 0
2534 | cror 4*cr0+eq, 4*cr0+eq, 4*cr1+eq
2535 | subi TMP2, TMP2, (LJ_TISNUM+1)
2536 | bne >2 // Upvalue is closed and black?
2540 |2: // Check if new value is collectable.
2541 | cmplwi TMP2, LJ_TISGCV - (LJ_TISNUM+1)
2542 | bge <1 // tvisgcv(v)
2543 | lbz TMP3, GCOBJ:TMP1->gch.marked
2544 | andi. TMP3, TMP3, LJ_GC_WHITES // iswhite(v)
2545 | la CARG1, GG_DISP2G(DISPATCH)
2546 | // Crossed a write barrier. Move the barrier forward.
2548 | bl extern lj_gc_barrieruv // (global_State *g, TValue *tv)
2552 | // RA = uvnum*8, RD = str_const*8 (~)
2553 | lwz LFUNC:RB, FRAME_FUNC(BASE)
2556 | subfic TMP1, TMP1, -4
2557 | addi RA, RA, offsetof(GCfuncL, uvptr)
2558 | lwzx STR:TMP1, KBASE, TMP1 // KBASE-4-str_const*4
2559 | lwzx UPVAL:RB, LFUNC:RB, RA
2560 | evmergelo STR:TMP1, TISSTR, STR:TMP1
2561 | lbz TMP3, UPVAL:RB->marked
2562 | lwz CARG2, UPVAL:RB->v
2563 | andi. TMP3, TMP3, LJ_GC_BLACK // isblack(uv)
2564 | lbz TMP3, STR:TMP1->marked
2565 | lbz TMP2, UPVAL:RB->closed
2566 | evstdd STR:TMP1, 0(CARG2)
2571 |2: // Check if string is white and ensure upvalue is closed.
2572 | andi. TMP3, TMP3, LJ_GC_WHITES // iswhite(str)
2573 | cmplwi cr1, TMP2, 0
2574 | cror 4*cr0+eq, 4*cr0+eq, 4*cr1+eq
2575 | la CARG1, GG_DISP2G(DISPATCH)
2576 | // Crossed a write barrier. Move the barrier forward.
2578 | bl extern lj_gc_barrieruv // (global_State *g, TValue *tv)
2582 | // RA = uvnum*8, RD = num_const*8
2584 | lwz LFUNC:RB, FRAME_FUNC(BASE)
2586 | addi RA, RA, offsetof(GCfuncL, uvptr)
2587 | evlddx TMP0, KBASE, RD
2588 | lwzx UPVAL:RB, LFUNC:RB, RA
2589 | lwz TMP1, UPVAL:RB->v
2590 | evstdd TMP0, 0(TMP1)
2594 | // RA = uvnum*8, RD = primitive_type*8 (~)
2596 | lwz LFUNC:RB, FRAME_FUNC(BASE)
2598 | addi RA, RA, offsetof(GCfuncL, uvptr)
2600 | lwzx UPVAL:RB, LFUNC:RB, RA
2602 | lwz TMP1, UPVAL:RB->v
2608 | // RA = level*8, RD = target
2609 | lwz TMP1, L->openupval
2610 | branch_RD // Do this first since RD is not saved.
2615 | add CARG2, BASE, RA
2616 | bl extern lj_func_closeuv // (lua_State *L, TValue *level)
2623 | // RA = dst*8, RD = proto_const*8 (~) (holding function prototype)
2626 | subfic TMP1, TMP1, -4
2628 | lwzx CARG2, KBASE, TMP1 // KBASE-4-tab_const*4
2630 | lwz CARG3, FRAME_FUNC(BASE)
2631 | // (lua_State *L, GCproto *pt, GCfuncL *parent)
2632 | bl extern lj_func_newL_gc
2633 | // Returns GCfuncL *.
2635 | evmergelo LFUNC:CRET1, TISFUNC, LFUNC:CRET1
2636 | evstddx LFUNC:CRET1, BASE, RA
2640 /* -- Table ops --------------------------------------------------------- */
2644 | // RA = dst*8, RD = (hbits|asize)*8 | tab_const*8 (~)
2645 | lwz TMP0, DISPATCH_GL(gc.total)(DISPATCH)
2647 | lwz TMP1, DISPATCH_GL(gc.threshold)(DISPATCH)
2653 if (op == BC_TNEW) {
2654 | rlwinm CARG2, RD, 29, 21, 31
2655 | rlwinm CARG3, RD, 18, 27, 31
2656 | cmpwi CARG2, 0x7ff
2658 | iseleq CARG2, TMP1, CARG2
2659 | bl extern lj_tab_new // (lua_State *L, int32_t asize, uint32_t hbits)
2660 | // Returns Table *.
2663 | subfic TMP1, TMP1, -4
2664 | lwzx CARG2, KBASE, TMP1 // KBASE-4-tab_const*4
2665 | bl extern lj_tab_dup // (lua_State *L, Table *kt)
2666 | // Returns Table *.
2669 | evmergelo TAB:CRET1, TISTAB, TAB:CRET1
2670 | evstddx TAB:CRET1, BASE, RA
2674 | bl extern lj_gc_step_fixtop // (lua_State *L)
2681 | // RA = dst*8, RD = str_const*8 (~)
2683 | // RA = src*8, RD = str_const*8 (~)
2684 | lwz LFUNC:TMP2, FRAME_FUNC(BASE)
2686 | lwz TAB:RB, LFUNC:TMP2->env
2687 | subfic TMP1, TMP1, -4
2688 | lwzx STR:RC, KBASE, TMP1 // KBASE-4-str_const*4
2689 if (op == BC_GGET) {
2697 | // RA = dst*8, RB = table*8, RC = key*8
2698 | evlddx TAB:RB, BASE, RB
2699 | evlddx RC, BASE, RC
2701 | checkfail ->vmeta_tgetv
2704 | // Convert number key to integer
2706 | lwz TMP0, TAB:RB->asize
2707 | efdcfsi TMP1, TMP2
2708 | cmplw cr0, TMP0, TMP2
2709 | efdcmpeq cr1, RC, TMP1
2710 | lwz TMP1, TAB:RB->array
2711 | crand 4*cr0+gt, 4*cr0+gt, 4*cr1+gt
2712 | slwi TMP2, TMP2, 3
2713 | ble ->vmeta_tgetv // Integer key and in array part?
2714 | evlddx TMP1, TMP1, TMP2
2718 | evstddx TMP1, BASE, RA
2721 |2: // Check for __index if table value is nil.
2722 | lwz TAB:TMP2, TAB:RB->metatable
2723 | cmplwi TAB:TMP2, 0
2724 | beq <1 // No metatable: done.
2725 | lbz TMP0, TAB:TMP2->nomm
2726 | andi. TMP0, TMP0, 1<<MM_index
2727 | bne <1 // 'no __index' flag set: done.
2731 | checkstr STR:RC // String key?
2732 | checkok ->BC_TGETS_Z
2736 | // RA = dst*8, RB = table*8, RC = str_const*8 (~)
2737 | evlddx TAB:RB, BASE, RB
2740 | subfic TMP1, TMP1, -4
2741 | lwzx STR:RC, KBASE, TMP1 // KBASE-4-str_const*4
2742 | checkfail ->vmeta_tgets1
2744 | // TAB:RB = GCtab *, STR:RC = GCstr *, RA = dst*8
2745 | lwz TMP0, TAB:RB->hmask
2746 | lwz TMP1, STR:RC->hash
2747 | lwz NODE:TMP2, TAB:RB->node
2748 | evmergelo STR:RC, TISSTR, STR:RC
2749 | and TMP1, TMP1, TMP0 // idx = str->hash & tab->hmask
2750 | slwi TMP0, TMP1, 5
2751 | slwi TMP1, TMP1, 3
2752 | sub TMP1, TMP0, TMP1
2753 | add NODE:TMP2, NODE:TMP2, TMP1 // node = tab->node + (idx*32-idx*8)
2755 | evldd TMP0, NODE:TMP2->key
2756 | evldd TMP1, NODE:TMP2->val
2757 | evcmpeq TMP0, STR:RC
2760 | checkok >5 // Key found, but nil value?
2762 | evstddx TMP1, BASE, RA
2765 |4: // Follow hash chain.
2766 | lwz NODE:TMP2, NODE:TMP2->next
2767 | cmplwi NODE:TMP2, 0
2769 | // End of hash chain: key not found, nil result.
2772 |5: // Check for __index if table value is nil.
2773 | lwz TAB:TMP2, TAB:RB->metatable
2774 | cmplwi TAB:TMP2, 0
2775 | beq <3 // No metatable: done.
2776 | lbz TMP0, TAB:TMP2->nomm
2777 | andi. TMP0, TMP0, 1<<MM_index
2778 | bne <3 // 'no __index' flag set: done.
2782 | // RA = dst*8, RB = table*8, RC = index*8
2783 | evlddx TAB:RB, BASE, RB
2786 | checkfail ->vmeta_tgetb
2787 | lwz TMP1, TAB:RB->asize
2788 | lwz TMP2, TAB:RB->array
2791 | evlddx TMP1, TMP2, RC
2796 | evstddx TMP1, BASE, RA
2799 |5: // Check for __index if table value is nil.
2800 | lwz TAB:TMP2, TAB:RB->metatable
2801 | cmplwi TAB:TMP2, 0
2802 | beq <1 // No metatable: done.
2803 | lbz TMP2, TAB:TMP2->nomm
2804 | andi. TMP2, TMP2, 1<<MM_index
2805 | bne <1 // 'no __index' flag set: done.
2806 | b ->vmeta_tgetb // Caveat: preserve TMP0!
2810 | // RA = src*8, RB = table*8, RC = key*8
2811 | evlddx TAB:RB, BASE, RB
2812 | evlddx RC, BASE, RC
2814 | checkfail ->vmeta_tsetv
2817 | // Convert number key to integer
2819 | evlddx SAVE0, BASE, RA
2820 | lwz TMP0, TAB:RB->asize
2821 | efdcfsi TMP1, TMP2
2822 | cmplw cr0, TMP0, TMP2
2823 | efdcmpeq cr1, RC, TMP1
2824 | lwz TMP1, TAB:RB->array
2825 | crand 4*cr0+gt, 4*cr0+gt, 4*cr1+gt
2826 | slwi TMP0, TMP2, 3
2827 | ble ->vmeta_tsetv // Integer key and in array part?
2828 | lbz TMP3, TAB:RB->marked
2829 | evlddx TMP2, TMP1, TMP0
2833 | andi. TMP2, TMP3, LJ_GC_BLACK // isblack(table)
2834 | evstddx SAVE0, TMP1, TMP0
2839 |3: // Check for __newindex if previous value is nil.
2840 | lwz TAB:TMP2, TAB:RB->metatable
2841 | cmplwi TAB:TMP2, 0
2842 | beq <1 // No metatable: done.
2843 | lbz TMP2, TAB:TMP2->nomm
2844 | andi. TMP2, TMP2, 1<<MM_newindex
2845 | bne <1 // 'no __newindex' flag set: done.
2849 | checkstr STR:RC // String key?
2850 | checkok ->BC_TSETS_Z
2853 |7: // Possible table write barrier for the value. Skip valiswhite check.
2854 | barrierback TAB:RB, TMP3, TMP0
2858 | // RA = src*8, RB = table*8, RC = str_const*8 (~)
2859 | evlddx TAB:RB, BASE, RB
2862 | subfic TMP1, TMP1, -4
2863 | lwzx STR:RC, KBASE, TMP1 // KBASE-4-str_const*4
2864 | checkfail ->vmeta_tsets1
2866 | // TAB:RB = GCtab *, STR:RC = GCstr *, RA = src*8
2867 | lwz TMP0, TAB:RB->hmask
2868 | lwz TMP1, STR:RC->hash
2869 | lwz NODE:TMP2, TAB:RB->node
2870 | evmergelo STR:RC, TISSTR, STR:RC
2871 | stb ZERO, TAB:RB->nomm // Clear metamethod cache.
2872 | and TMP1, TMP1, TMP0 // idx = str->hash & tab->hmask
2873 | evlddx SAVE0, BASE, RA
2874 | slwi TMP0, TMP1, 5
2875 | slwi TMP1, TMP1, 3
2876 | sub TMP1, TMP0, TMP1
2877 | lbz TMP3, TAB:RB->marked
2878 | add NODE:TMP2, NODE:TMP2, TMP1 // node = tab->node + (idx*32-idx*8)
2880 | evldd TMP0, NODE:TMP2->key
2881 | evldd TMP1, NODE:TMP2->val
2882 | evcmpeq TMP0, STR:RC
2885 | checkok >4 // Key found, but nil value?
2887 | andi. TMP0, TMP3, LJ_GC_BLACK // isblack(table)
2888 | evstdd SAVE0, NODE:TMP2->val
2893 |4: // Check for __newindex if previous value is nil.
2894 | lwz TAB:TMP1, TAB:RB->metatable
2895 | cmplwi TAB:TMP1, 0
2896 | beq <2 // No metatable: done.
2897 | lbz TMP0, TAB:TMP1->nomm
2898 | andi. TMP0, TMP0, 1<<MM_newindex
2899 | bne <2 // 'no __newindex' flag set: done.
2902 |5: // Follow hash chain.
2903 | lwz NODE:TMP2, NODE:TMP2->next
2904 | cmplwi NODE:TMP2, 0
2906 | // End of hash chain: key not found, add a new one.
2908 | // But check for __newindex first.
2909 | lwz TAB:TMP1, TAB:RB->metatable
2910 | la CARG3, DISPATCH_GL(tmptv)(DISPATCH)
2913 | cmplwi TAB:TMP1, 0
2915 | beq >6 // No metatable: continue.
2916 | lbz TMP0, TAB:TMP1->nomm
2917 | andi. TMP0, TMP0, 1<<MM_newindex
2918 | beq ->vmeta_tsets // 'no __newindex' flag NOT set: check.
2921 | evstdd STR:RC, 0(CARG3)
2922 | bl extern lj_tab_newkey // (lua_State *L, GCtab *t, TValue *k)
2923 | // Returns TValue *.
2925 | evstdd SAVE0, 0(CRET1)
2926 | b <3 // No 2nd write barrier needed.
2928 |7: // Possible table write barrier for the value. Skip valiswhite check.
2929 | barrierback TAB:RB, TMP3, TMP0
2933 | // RA = src*8, RB = table*8, RC = index*8
2934 | evlddx TAB:RB, BASE, RB
2937 | checkfail ->vmeta_tsetb
2938 | lwz TMP1, TAB:RB->asize
2939 | lwz TMP2, TAB:RB->array
2940 | lbz TMP3, TAB:RB->marked
2942 | evlddx SAVE0, BASE, RA
2944 | evlddx TMP1, TMP2, RC
2948 | andi. TMP0, TMP3, LJ_GC_BLACK // isblack(table)
2949 | evstddx SAVE0, TMP2, RC
2954 |5: // Check for __newindex if previous value is nil.
2955 | lwz TAB:TMP1, TAB:RB->metatable
2956 | cmplwi TAB:TMP1, 0
2957 | beq <1 // No metatable: done.
2958 | lbz TMP1, TAB:TMP1->nomm
2959 | andi. TMP1, TMP1, 1<<MM_newindex
2960 | bne <1 // 'no __newindex' flag set: done.
2961 | b ->vmeta_tsetb // Caveat: preserve TMP0!
2963 |7: // Possible table write barrier for the value. Skip valiswhite check.
2964 | barrierback TAB:RB, TMP3, TMP0
2969 | // RA = base*8 (table at base-1), RD = num_const*8 (start index)
2972 | add TMP3, KBASE, RD
2973 | lwz TAB:CARG2, -4(RA) // Guaranteed to be a table.
2974 | addic. TMP0, MULTRES, -8
2975 | lwz TMP3, 4(TMP3) // Integer constant is in lo-word.
2976 | srwi CARG3, TMP0, 3
2977 | beq >4 // Nothing to copy?
2978 | add CARG3, CARG3, TMP3
2979 | lwz TMP2, TAB:CARG2->asize
2980 | slwi TMP1, TMP3, 3
2981 | lbz TMP3, TAB:CARG2->marked
2983 | add TMP2, RA, TMP0
2984 | lwz TMP0, TAB:CARG2->array
2986 | add TMP1, TMP1, TMP0
2987 | andi. TMP0, TMP3, LJ_GC_BLACK // isblack(table)
2988 |3: // Copy result slots to table.
2991 | cmpw cr1, RA, TMP2
2992 | evstdd TMP0, 0(TMP1)
2993 | addi TMP1, TMP1, 8
2999 |5: // Need to resize array part.
3004 | bl extern lj_tab_reasize // (lua_State *L, GCtab *t, int nasize)
3005 | // Must not reallocate the stack.
3009 |7: // Possible table write barrier for any value. Skip valiswhite check.
3010 | barrierback TAB:CARG2, TMP3, TMP0
3014 /* -- Calls and vararg handling ----------------------------------------- */
3017 | // RA = base*8, (RB = (nresults+1)*8,) RC = extra_nargs*8
3018 | add NARGS8:RC, NARGS8:RC, MULTRES
3019 | // Fall through. Assumes BC_CALL follows.
3022 | // RA = base*8, (RB = (nresults+1)*8,) RC = (nargs+1)*8
3023 | evlddx LFUNC:RB, BASE, RA
3025 | add BASE, BASE, RA
3026 | subi NARGS8:RC, NARGS8:RC, 8
3027 | checkfunc LFUNC:RB
3028 | addi BASE, BASE, 8
3029 | checkfail ->vmeta_call
3034 | // RA = base*8, (RB = 0,) RC = extra_nargs*8
3035 | add NARGS8:RC, NARGS8:RC, MULTRES
3036 | // Fall through. Assumes BC_CALLT follows.
3039 | // RA = base*8, (RB = 0,) RC = (nargs+1)*8
3040 | evlddx LFUNC:RB, BASE, RA
3042 | lwz TMP1, FRAME_PC(BASE)
3043 | subi NARGS8:RC, NARGS8:RC, 8
3044 | checkfunc LFUNC:RB
3046 | checkfail ->vmeta_callt
3048 | andi. TMP0, TMP1, FRAME_TYPE // Caveat: preserve cr0 until the crand.
3049 | lbz TMP3, LFUNC:RB->ffid
3050 | xori TMP2, TMP1, FRAME_VARG
3051 | cmplwi cr1, NARGS8:RC, 0
3054 | stw LFUNC:RB, FRAME_FUNC(BASE) // Copy function down, but keep PC.
3056 | cmplwi cr7, TMP3, 1 // (> FF_C) Calling a fast function?
3059 | addi TMP3, TMP2, 8
3060 | evlddx TMP0, RA, TMP2
3061 | cmplw cr1, TMP3, NARGS8:RC
3062 | evstddx TMP0, BASE, TMP2
3066 | crand 4*cr0+eq, 4*cr0+eq, 4*cr7+gt
3071 |5: // Tailcall to a fast function with a Lua frame below.
3073 | decode_RA8 RA, INS
3074 | sub TMP1, BASE, RA
3075 | lwz LFUNC:TMP1, FRAME_FUNC-8(TMP1)
3076 | lwz TMP1, LFUNC:TMP1->pc
3077 | lwz KBASE, PC2PROTO(k)(TMP1) // Need to prepare KBASE.
3080 |7: // Tailcall from a vararg function.
3081 | andi. TMP0, TMP2, FRAME_TYPEP
3082 | bne <1 // Vararg frame below?
3083 | sub BASE, BASE, TMP2 // Relocate BASE down.
3084 | lwz TMP1, FRAME_PC(BASE)
3085 | andi. TMP0, TMP1, FRAME_TYPE
3090 | // RA = base*8, (RB = (nresults+1)*8, RC = (nargs+1)*8 ((2+1)*8))
3091 | subi RA, RA, 24 // evldd doesn't support neg. offsets.
3093 | evlddx LFUNC:RB, BASE, RA
3094 | add BASE, BASE, RA
3095 | evldd TMP0, 8(BASE)
3096 | evldd TMP1, 16(BASE)
3097 | evstdd LFUNC:RB, 24(BASE) // Copy callable.
3098 | checkfunc LFUNC:RB
3099 | evstdd TMP0, 32(BASE) // Copy state.
3100 | li NARGS8:RC, 16 // Iterators get 2 arguments.
3101 | evstdd TMP1, 40(BASE) // Copy control var.
3102 | addi BASE, BASE, 32
3103 | checkfail ->vmeta_call
3108 | // RA = base*8, (RB = (nresults+1)*8, RC = (nargs+1)*8 (2+1)*8)
3110 | // NYI: add hotloop, record BC_ITERN.
3113 | lwz TAB:RB, -12(RA)
3114 | lwz RC, -4(RA) // Get index from control var.
3115 | lwz TMP0, TAB:RB->asize
3116 | lwz TMP1, TAB:RB->array
3118 |1: // Traverse array part.
3121 | bge >5 // Index points after array part?
3122 | evlddx TMP2, TMP1, TMP3
3128 | addis TMP3, PC, -(BCBIAS_J*4 >> 16)
3129 | evstdd TMP2, 8(RA)
3130 | decode_RD4 TMP1, INS
3131 | stw RC, -4(RA) // Update control var.
3132 | add PC, TMP1, TMP3
3133 | evstdd TMP0, 0(RA)
3137 |4: // Skip holes in array part.
3141 |5: // Traverse hash part.
3142 | lwz TMP1, TAB:RB->hmask
3144 | lwz TMP2, TAB:RB->node
3146 | cmplw RC, TMP1 // End of iteration? Branch to ITERL+1.
3150 | sub TMP3, TMP3, RB
3151 | evlddx RB, TMP2, TMP3
3152 | add NODE:TMP3, TMP2, TMP3
3156 | evldd TMP3, NODE:TMP3->key
3157 | addis TMP2, PC, -(BCBIAS_J*4 >> 16)
3160 | decode_RD4 TMP1, INS
3161 | evstdd TMP3, 0(RA)
3163 | add PC, TMP1, TMP2
3164 | stw RC, -4(RA) // Update control var.
3167 |7: // Skip holes in hash part.
3173 | // RA = base*8, RD = target (points to ITERN)
3176 | evlddx CFUNC:TMP1, RA, TMP2
3179 | evmergehi TMP0, CFUNC:TMP1, CFUNC:TMP1
3180 | cmpwi cr0, TMP2, LJ_TTAB
3181 | cmpwi cr1, TMP0, LJ_TFUNC
3182 | cmpwi cr6, TMP3, LJ_TNIL
3184 | lbz TMP1, CFUNC:TMP1->ffid
3185 | crand 4*cr0+eq, 4*cr0+eq, 4*cr6+eq
3186 | cmpwi cr7, TMP1, FF_next_N
3188 | crand 4*cr0+eq, 4*cr0+eq, 4*cr7+eq
3189 | add TMP3, PC, TMP0
3191 | stw ZERO, -4(RA) // Initialize control var.
3192 | addis PC, TMP3, -(BCBIAS_J*4 >> 16)
3195 |5: // Despecialize bytecode if any of the checks fail.
3199 | addis PC, TMP3, -(BCBIAS_J*4 >> 16)
3205 | // RA = base*8, RB = (nresults+1)*8, RC = numparams*8
3206 | lwz TMP0, FRAME_PC(BASE)
3209 | addi RC, RC, FRAME_VARG
3211 | subi TMP3, BASE, 8 // TMP3 = vtop
3212 | sub RC, RC, TMP0 // RC = vbase
3213 | // Note: RC may now be even _above_ BASE if nargs was < numparams.
3215 | sub. TMP1, TMP3, RC
3216 | beq cr1, >5 // Copy all varargs?
3217 | subi TMP2, TMP2, 16
3218 | ble >2 // No vararg slots?
3219 |1: // Copy vararg slots to destination slots.
3222 | evstdd TMP0, 0(RA)
3224 | cmplw cr1, RC, TMP3
3225 | bge >3 // All destination slots filled?
3227 | blt cr1, <1 // More vararg slots?
3228 |2: // Fill up remainder with nil.
3229 | evstdd TISNIL, 0(RA)
3236 |5: // Copy all varargs.
3237 | lwz TMP0, L->maxstack
3238 | li MULTRES, 8 // MULTRES = (0+1)*8
3239 | ble <3 // No vararg slots?
3240 | add TMP2, RA, TMP1
3242 | addi MULTRES, TMP1, 8
3247 | evstdd TMP0, 0(RA)
3250 | blt <6 // More vararg slots?
3253 |7: // Grow stack for varargs.
3256 | sub SAVE0, RC, BASE // Need delta, because BASE may change.
3260 | srwi CARG2, TMP1, 3
3261 | bl extern lj_state_growstack // (lua_State *L, int n)
3264 | add RC, BASE, SAVE0
3265 | subi TMP3, BASE, 8
3269 /* -- Returns ----------------------------------------------------------- */
3272 | // RA = results*8, RD = extra_nresults*8
3273 | add RD, RD, MULTRES // MULTRES >= 8, so RD >= 8.
3274 | // Fall through. Assumes BC_RET follows.
3278 | // RA = results*8, RD = (nresults+1)*8
3279 | lwz PC, FRAME_PC(BASE)
3283 | andi. TMP0, PC, FRAME_TYPE
3284 | xori TMP1, PC, FRAME_VARG
3288 | // BASE = base, RA = resultptr, RD = (nresults+1)*8, PC = return
3291 | subi TMP2, BASE, 8
3293 | decode_RB8 RB, INS
3297 | addi TMP3, TMP1, 8
3298 | evlddx TMP0, RA, TMP1
3300 | evstddx TMP0, TMP2, TMP1
3302 | addi TMP1, TMP3, 8
3303 | evlddx TMP0, RA, TMP3
3305 | evstddx TMP0, TMP2, TMP3
3310 | decode_RA8 RA, INS
3312 | sub BASE, TMP2, RA
3313 | lwz LFUNC:TMP1, FRAME_FUNC(BASE)
3315 | lwz TMP1, LFUNC:TMP1->pc
3316 | lwz KBASE, PC2PROTO(k)(TMP1)
3319 |6: // Fill up results with nil.
3322 | evstddx TISNIL, TMP2, TMP1
3325 |->BC_RETV_Z: // Non-standard return case.
3326 | andi. TMP2, TMP1, FRAME_TYPEP
3328 | // Return from vararg function: relocate BASE down.
3329 | sub BASE, BASE, TMP1
3330 | lwz PC, FRAME_PC(BASE)
3334 case BC_RET0: case BC_RET1:
3335 | // RA = results*8, RD = (nresults+1)*8
3336 | lwz PC, FRAME_PC(BASE)
3339 | andi. TMP0, PC, FRAME_TYPE
3340 | xori TMP1, PC, FRAME_VARG
3344 | subi TMP2, BASE, 8
3345 | decode_RB8 RB, INS
3346 if (op == BC_RET1) {
3348 | evstdd TMP0, 0(TMP2)
3352 | decode_RA8 RA, INS
3354 | sub BASE, TMP2, RA
3355 | lwz LFUNC:TMP1, FRAME_FUNC(BASE)
3357 | lwz TMP1, LFUNC:TMP1->pc
3358 | lwz KBASE, PC2PROTO(k)(TMP1)
3361 |6: // Fill up results with nil.
3364 | evstddx TISNIL, TMP2, TMP1
3368 /* -- Loops and branches ------------------------------------------------ */
3374 | // Fall through. Assumes BC_IFORL follows.
3384 | // RA = base*8, RD = target (after end of loop or start of loop)
3385 vk = (op == BC_IFORL || op == BC_JFORL);
3387 | evldd TMP1, FORL_IDX*8(RA)
3388 | evldd TMP3, FORL_STEP*8(RA)
3389 | evldd TMP2, FORL_STOP*8(RA)
3391 | evcmpgtu cr0, TMP1, TISNUM
3392 | evcmpgtu cr7, TMP3, TISNUM
3393 | evcmpgtu cr1, TMP2, TISNUM
3394 | cror 4*cr0+lt, 4*cr0+lt, 4*cr7+lt
3395 | cror 4*cr0+lt, 4*cr0+lt, 4*cr1+lt
3399 | efdadd TMP1, TMP1, TMP3
3400 | evstdd TMP1, FORL_IDX*8(RA)
3402 | evcmpgts TMP3, TISNIL
3403 | evstdd TMP1, FORL_EXT*8(RA)
3405 | efdcmpgt TMP1, TMP2
3407 if (op != BC_JFORL) {
3410 if (op == BC_JFORI) {
3411 | addis PC, RD, -(BCBIAS_J*4 >> 16)
3413 | addis RD, RD, -(BCBIAS_J*4 >> 16)
3416 if (op == BC_FORI) {
3418 } else if (op == BC_IFORL) {
3425 | efdcmpgt TMP2, TMP1
3433 | // Fall through. Assumes BC_IITERL follows.
3441 | // RA = base*8, RD = target
3442 | evlddx TMP1, BASE, RA
3445 | checkok >1 // Stop if iterator returned nil.
3446 if (op == BC_JITERL) {
3449 | branch_RD // Otherwise save control var + branch.
3450 | evstddx TMP1, BASE, RA
3457 | // RA = base*8, RD = target (loop extent)
3458 | // Note: RA/RD is only used by trace recorder to determine scope/extent
3459 | // This opcode does NOT jump, it's only purpose is to detect a hot loop.
3463 | // Fall through. Assumes BC_ILOOP follows.
3467 | // RA = base*8, RD = target (loop extent)
3478 | // RA = base*8 (only used by trace recorder), RD = target
3483 /* -- Function headers -------------------------------------------------- */
3489 case BC_FUNCV: /* NYI: compiled vararg functions. */
3490 | // Fall through. Assumes BC_IFUNCF/BC_IFUNCV follow.
3498 | // BASE = new base, RA = BASE+framesize*8, RB = LFUNC, RC = nargs*8
3499 | lwz TMP2, L->maxstack
3500 | lbz TMP1, -4+PC2PROTO(numparams)(PC)
3501 | lwz KBASE, -4+PC2PROTO(k)(PC)
3503 | slwi TMP1, TMP1, 3
3504 | bgt ->vm_growstack_l
3507 | cmplw NARGS8:RC, TMP1 // Check for missing parameters.
3509 if (op == BC_JFUNCF) {
3515 |3: // Clear missing parameters.
3516 | evstddx TISNIL, BASE, NARGS8:RC
3517 | addi NARGS8:RC, NARGS8:RC, 8
3525 | NYI // NYI: compiled vararg functions
3526 break; /* NYI: compiled vararg functions. */
3529 | // BASE = new base, RA = BASE+framesize*8, RB = LFUNC, RC = nargs*8
3530 | lwz TMP2, L->maxstack
3531 | add TMP1, BASE, RC
3533 | stw LFUNC:RB, 4(TMP1) // Store copy of LFUNC.
3534 | addi TMP3, RC, 8+FRAME_VARG
3535 | lwz KBASE, -4+PC2PROTO(k)(PC)
3537 | stw TMP3, 0(TMP1) // Store delta + FRAME_VARG.
3538 | bge ->vm_growstack_l
3539 | lbz TMP2, -4+PC2PROTO(numparams)(PC)
3544 | addi BASE, TMP1, 8
3547 | cmplw RA, RC // Less args than parameters?
3550 | evstdd TISNIL, 0(RA) // Clear old fixarg slot (help the GC).
3553 | addic. TMP2, TMP2, -1
3554 | evstdd TMP0, 8(TMP1)
3555 | addi TMP1, TMP1, 8
3560 |4: // Clear missing parameters.
3567 | // BASE = new base, RA = BASE+framesize*8, RB = CFUNC, RC = nargs*8
3568 if (op == BC_FUNCC) {
3569 | lwz TMP3, CFUNC:RB->f
3571 | lwz TMP3, DISPATCH_GL(wrapf)(DISPATCH)
3573 | add TMP1, RA, NARGS8:RC
3574 | lwz TMP2, L->maxstack
3575 | add RC, BASE, NARGS8:RC
3581 if (op == BC_FUNCCW) {
3582 | lwz CARG2, CFUNC:RB->f
3585 | bgt ->vm_growstack_c // Need to grow stack.
3587 | bctrl // (lua_State *L [, lua_CFunction f])
3588 | // Returns nresults.
3593 | lwz PC, FRAME_PC(BASE) // Fetch PC of caller.
3594 | sub RA, TMP1, RD // RA = L->top - nresults*8
3599 /* ---------------------------------------------------------------------- */
3602 fprintf(stderr, "Error: undefined opcode BC_%s\n", bc_names[op]);
3608 static int build_backend(BuildCtx *ctx)
3612 dasm_growpc(Dst, BC__MAX);
3614 build_subroutines(ctx);
3617 for (op = 0; op < BC__MAX; op++)
3618 build_ins(ctx, (BCOp)op, op);
3623 /* Emit pseudo frame-info for all assembler functions. */
3624 static void emit_asm_debug(BuildCtx *ctx)
3627 switch (ctx->mode) {
3629 fprintf(ctx->fp, "\t.section .debug_frame,\"\",@progbits\n");
3632 "\t.long .LECIE0-.LSCIE0\n"
3634 "\t.long 0xffffffff\n"
3640 "\t.byte 0xc\n\t.uleb128 1\n\t.uleb128 0\n"
3645 "\t.long .LEFDE0-.LASFDE0\n"
3647 "\t.long .Lframe0\n"
3650 "\t.byte 0xe\n\t.uleb128 %d\n"
3651 "\t.byte 0x11\n\t.uleb128 65\n\t.sleb128 -1\n"
3652 "\t.byte 0x5\n\t.uleb128 70\n\t.sleb128 37\n",
3653 (int)ctx->codesz, CFRAME_SIZE);
3654 for (i = 14; i <= 31; i++)
3656 "\t.byte %d\n\t.uleb128 %d\n"
3657 "\t.byte 5\n\t.uleb128 %d\n\t.uleb128 %d\n",
3658 0x80+i, 1+2*(31-i), 1200+i, 2+2*(31-i));
3662 fprintf(ctx->fp, "\t.section .eh_frame,\"a\",@progbits\n");
3665 "\t.long .LECIE1-.LSCIE1\n"
3669 "\t.string \"zPR\"\n"
3673 "\t.uleb128 6\n" /* augmentation length */
3674 "\t.byte 0x1b\n" /* pcrel|sdata4 */
3675 "\t.long lj_err_unwind_dwarf-.\n"
3676 "\t.byte 0x1b\n" /* pcrel|sdata4 */
3677 "\t.byte 0xc\n\t.uleb128 1\n\t.uleb128 0\n"
3682 "\t.long .LEFDE1-.LASFDE1\n"
3684 "\t.long .LASFDE1-.Lframe1\n"
3685 "\t.long .Lbegin-.\n"
3687 "\t.uleb128 0\n" /* augmentation length */
3688 "\t.byte 0xe\n\t.uleb128 %d\n"
3689 "\t.byte 0x11\n\t.uleb128 65\n\t.sleb128 -1\n"
3690 "\t.byte 0x5\n\t.uleb128 70\n\t.sleb128 37\n",
3691 (int)ctx->codesz, CFRAME_SIZE);
3692 for (i = 14; i <= 31; i++)
3694 "\t.byte %d\n\t.uleb128 %d\n"
3695 "\t.byte 5\n\t.uleb128 %d\n\t.uleb128 %d\n",
3696 0x80+i, 1+2*(31-i), 1200+i, 2+2*(31-i));