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 pcall() and xpcall() fast functions.

Browse Source
This commit is contained in:
Mike Pall 2010-10-01 23:47:29 +02:00
parent 05099f0764
commit e396bef7d8
1 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/buildvm_ppc.dasc
View File

@ -1032,11 +1032,31 @@ static void build_subroutines(BuildCtx *ctx)
| |
|//-- Base library: catch errors ---------------------------------------- |//-- Base library: catch errors ----------------------------------------
| |
|.ffunc_1 pcall |.ffunc pcall
| NYI | cmplwi NARGS8:RC, 8
| lbz TMP3, DISPATCH_GL(hookmask)(DISPATCH)
| blt ->fff_fallback
| mr TMP2, BASE
| la BASE, 8(BASE)
| // Remember active hook before pcall.
| rlwinm TMP3, TMP3, 32-HOOK_ACTIVE_SHIFT, 31, 31
| subi NARGS8:RC, NARGS8:RC, 8
| addi PC, TMP3, 8+FRAME_PCALL
| b ->vm_call_dispatch
| |
|.ffunc_2 xpcall |.ffunc_2 xpcall
| NYI | lbz TMP3, DISPATCH_GL(hookmask)(DISPATCH)
| mr TMP2, BASE
| checkfunc CARG2 // Traceback must be a function.
| checkfail ->fff_fallback
| la BASE, 16(BASE)
| // Remember active hook before pcall.
| rlwinm TMP3, TMP3, 32-HOOK_ACTIVE_SHIFT, 31, 31
| evstdd CARG2, 0(TMP2) // Swap function and traceback.
| subi NARGS8:RC, NARGS8:RC, 16
| evstdd CARG1, 8(TMP2)
| addi PC, TMP3, 16+FRAME_PCALL
| b ->vm_call_dispatch
| |
|//-- Coroutine library -------------------------------------------------- |//-- Coroutine library --------------------------------------------------
| |