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

PPC: Add string.len/byte/char() fast functions.

Browse Source
This commit is contained in:
Mike Pall 2010-10-06 16:11:02 +02:00
parent 443d28bc9a
commit 82b2f6156a
1 changed files with 42 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
src/buildvm_ppc.dasc
View File

@ -907,6 +907,7 @@ static void build_subroutines(BuildCtx *ctx)
| checkanyfail ->fff_fallback | checkanyfail ->fff_fallback
|.endmacro |.endmacro
| |
|// Inlined GC threshold check. Caveat: uses TMP0 and TMP1.
|.macro ffgccheck |.macro ffgccheck
| lwz TMP0, DISPATCH_GL(gc.total)(DISPATCH) | lwz TMP0, DISPATCH_GL(gc.total)(DISPATCH)
| lwz TMP1, DISPATCH_GL(gc.threshold)(DISPATCH) | lwz TMP1, DISPATCH_GL(gc.threshold)(DISPATCH)
@ -1380,16 +1381,52 @@ static void build_subroutines(BuildCtx *ctx)
|//-- String library ----------------------------------------------------- |//-- String library -----------------------------------------------------
| |
|.ffunc_1 string_len |.ffunc_1 string_len
| NYI | checkstr STR:CARG1
| checkfail ->fff_fallback
| lwz TMP0, STR:CARG1->len
| efdcfsi CRET1, TMP0
| b ->fff_restv
| |
|.ffunc string_byte // Only handle the 1-arg case here. |.ffunc string_byte // Only handle the 1-arg case here.
| NYI | cmplwi NARGS8:RC, 8
| evldd STR:CARG1, 0(BASE)
| bne ->fff_fallback // Need exactly 1 argument.
| checkstr STR:CARG1
| la RA, -8(BASE)
| checkfail ->fff_fallback
| lwz TMP0, STR:CARG1->len
| li RD, (0+1)*8
| lbz TMP1, STR:CARG1[1] // Access is always ok (NUL at end).
| li TMP2, (1+1)*8
| cmplwi TMP0, 0
| lwz PC, FRAME_PC(BASE)
| efdcfsi CRET1, TMP1
| iseleq RD, RD, TMP2
| evstdd CRET1, 0(RA)
| b ->fff_res
| |
|.ffunc string_char // Only handle the 1-arg case here. |.ffunc string_char // Only handle the 1-arg case here.
| NYI | ffgccheck
| | cmplwi NARGS8:RC, 8
| evldd CARG1, 0(BASE)
| bne ->fff_fallback // Exactly 1 argument.
| checknum CARG1
| la CARG2, DISPATCH_GL(tmptv)(DISPATCH)
| checkfail ->fff_fallback
| efdctsiz TMP0, CARG1
| li CARG3, 1
| cmplwi TMP0, 255
| stb TMP0, 0(CARG2)
| bgt ->fff_fallback
|->fff_newstr: |->fff_newstr:
| NYI | mr CARG1, L
| stw BASE, L->base
| stw PC, SAVE_PC
| bl extern lj_str_new // (lua_State *L, char *str, size_t l)
| // Returns GCstr *.
| lwz BASE, L->base
| evmergelo STR:CRET1, TISSTR, STR:CRET1
| b ->fff_restv
| |
|.ffunc string_sub |.ffunc string_sub
| NYI | NYI