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

Implement call_tail.

Browse Source
This commit is contained in:
Michael Munday 2017-01-04 16:05:55 -05:00
parent faef0fb092
commit dfb95646f8
1 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/vm_s390x.dasc
View File

@ -1834,8 +1834,27 @@ static void build_subroutines(BuildCtx *ctx)
| |
|// Reconstruct previous base for vmeta_call during tailcall. |// Reconstruct previous base for vmeta_call during tailcall.
|->vm_call_tail: |->vm_call_tail:
| stg r0, 0(r0) | lgr RA, BASE
| stg r0, 0(r0) | tmll PC, FRAME_TYPE
| jne >3
| llgc RB, PC_RA
| lcgr RB, RB
| sllg RB, RB, 3(r0)
| lay BASE, -16(RB, BASE) // base = base - (RB+2)*8
| j ->vm_call_dispatch // Resolve again for tailcall.
|3:
| lgr RB, PC
| nill RB, -8
| sgr BASE, RB
| j ->vm_call_dispatch // Resolve again for tailcall.
|
|5: // Grow stack for fallback handler.
| lghi CARG2, LUA_MINSTACK
| lgr CARG1, L:RB
| brasl r14, extern lj_state_growstack // (lua_State *L, int n)
| lg BASE, L:RB->base
| lghi RD, 0 // Simulate a return 0.
| j <1 // Dumb retry (goes through ff first).
| |
|->fff_gcstep: // Call GC step function. |->fff_gcstep: // Call GC step function.
| // BASE = new base, RD = nargs+1 | // BASE = new base, RD = nargs+1