 
 : jit-save-context ( -- )
     jit-load-context
-    1 2 context-callstack-top-offset STW
+    1 ctx-reg context-callstack-top-offset STW
     ds-reg ctx-reg context-datastack-offset STW
     rs-reg ctx-reg context-retainstack-offset STW ;
 

    BLRL
    1 1 0 LWZ
    ! Return with new callstack
    0 1 lr-save stack-frame + LWZ
    0 MTLR
    BLR
] \ set-callstack define-sub-primitive

] jit-profiling jit-define

[
    0 2 LOAD32 rc-absolute-ppc-2/2 rt-this jit-rel
    0 MFLR
    1 1 stack-frame SUBI
    2 1 xt-save STW
    stack-frame 2 LI
    2 1 next-save STW
    0 1 lr-save stack-frame + STW
] jit-prolog jit-define

