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 missing register setup after unwind to ff pcall.

Browse Source
This commit is contained in:
Mike Pall 2010-09-21 21:36:37 +02:00
parent 7336305e7c
commit 0c0047e50c
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/buildvm_ppc.dasc
View File

@ -391,12 +391,20 @@ static void build_subroutines(BuildCtx *ctx)
| rlwinm sp, CARG1, 0, 0, 29 | rlwinm sp, CARG1, 0, 0, 29
|->vm_unwind_ff_eh: // Landing pad for external unwinder. |->vm_unwind_ff_eh: // Landing pad for external unwinder.
| lwz L, SAVE_L | lwz L, SAVE_L
| evsplati TISNUM, LJ_TISNUM+1 // Setup type comparison constants.
| evsplati TISFUNC, LJ_TFUNC
| lus TOBIT, 0x4338
| evsplati TISTAB, LJ_TTAB
| li TMP0, 0
| lwz BASE, L->base | lwz BASE, L->base
| li TMP1, LJ_TFALSE | evmergelo TOBIT, TOBIT, TMP0
| lwz DISPATCH, L->glref // Setup pointer to dispatch table. | lwz DISPATCH, L->glref // Setup pointer to dispatch table.
| evsplati TISSTR, LJ_TSTR
| li TMP1, LJ_TFALSE
| evsplati TISNIL, LJ_TNIL
| li_vmstate INTERP | li_vmstate INTERP
| lwz PC, FRAME_PC(BASE) // Fetch PC of previous frame. | lwz PC, FRAME_PC(BASE) // Fetch PC of previous frame.
| subi RA, BASE, 8 // Results start at BASE-8. | la RA, -8(BASE) // Results start at BASE-8.
| addi DISPATCH, DISPATCH, GG_G2DISP | addi DISPATCH, DISPATCH, GG_G2DISP
| stw TMP1, 0(RA) // Prepend false to error message. | stw TMP1, 0(RA) // Prepend false to error message.
| li RD, 16 // 2 results: false + error message. | li RD, 16 // 2 results: false + error message.