gh-mirror/mikepaul-LuaJIT
1
0
Fork 0
mirror of https://github.com/LuaJIT/LuaJIT.git synced 2025-02-07 23:24:09 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

PPC: Add BC_CAT and lj_cont_cat.

Browse Source
This commit is contained in:
Mike Pall 2010-09-17 15:54:50 +02:00
parent 4f1d43d03e
commit 66f0c43780
1 changed files with 31 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
src/buildvm_ppc.dasc
View File

@ -523,8 +523,20 @@ static void build_subroutines(BuildCtx *ctx)
| // BASE = base, RA = resultptr, RB = meta base | // BASE = base, RA = resultptr, RB = meta base
| bctr // Jump to continuation. | bctr // Jump to continuation.
| |
|->cont_cat: |->cont_cat: // RA = resultptr, RB = meta base
| NYI | lwz INS, -4(PC)
| subi CARG2, RB, 16
| decode_RB8 SAVE0, INS
| evldd TMP0, 0(RA)
| add TMP1, BASE, SAVE0
| stw BASE, L->base
| cmplw TMP1, CARG2
| sub CARG3, CARG2, TMP1
| decode_RA8 RA, INS
| evstdd TMP0, 0(CARG2)
| bne ->BC_CAT_Z
| evstddx TMP0, BASE, RA
| b ->cont_nop
| |
|//-- Table indexing metamethods ----------------------------------------- |//-- Table indexing metamethods -----------------------------------------
| |
@ -1509,7 +1521,23 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop)
break; break;
case BC_CAT: case BC_CAT:
| NYI | // RA = dst*8, RB = src_start*8, RC = src_end*8
| sub CARG3, RC, RB
| stw BASE, L->base
| add CARG2, BASE, RC
| mr SAVE0, RB
|->BC_CAT_Z:
| stw PC, SAVE_PC
| mr CARG1, L
| srwi CARG3, CARG3, 3
| bl extern lj_meta_cat // (lua_State *L, TValue *top, int left)
| // Returns NULL (finished) or TValue * (metamethod).
| cmplwi CRET1, 0
| lwz BASE, L->base
| bne ->vmeta_binop
| evlddx TMP0, BASE, SAVE0 // Copy result from RB to RA.
| evstddx TMP0, BASE, RA
| ins_next
break; break;
/* -- Constant ops ------------------------------------------------------ */ /* -- Constant ops ------------------------------------------------------ */