 [
     jit-save-context
     4 vm-reg MR
-    2 0 LOAD32 "lazy_jit_compile" f rc-absolute-ppc-2/2 jit-dlsym
+    0 2 LOAD32 "lazy_jit_compile" f rc-absolute-ppc-2/2 jit-dlsym
     2 MTLR
     BLRL
     5 3 quot-xt-offset LWZ

    5 6 callstack-length-offset LWZ
    5 5 tag-bits get SRAWI
    ! Compute new stack pointer -- 'dst' for memcpy
    3 3 5 SUBF
    ! Install new stack pointer
    1 3 MR
    ! Call memcpy; arguments are now in the correct registers


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

