 
 [
     jit->r
-    0 BL rc-relative-ppc-3 rt-xt
+    0 BL rc-relative-ppc-3 rt-xt jit-rel
     jit-r>
 ] jit-dip jit-define
 
 [
     jit-2>r
-    0 BL rc-relative-ppc-3 rt-xt
+    0 BL rc-relative-ppc-3 rt-xt jit-rel
     jit-2r>
 ] jit-2dip jit-define
 
 [
     jit-3>r
-    0 BL rc-relative-ppc-3 rt-xt
+    0 BL rc-relative-ppc-3 rt-xt jit-rel
     jit-3r>
 ] jit-3dip jit-define
 


! Comparisons
: jit-compare ( insn -- )
    0 3 LOAD32
    4 ds-reg 0 LWZ
    5 ds-reg -4 LWZU
    5 0 4 CMP


[ 0 BL rc-relative-ppc-3 rt-xt-direct jit-rel ] jit-word-call jit-define

[ 0 B rc-relative-ppc-3 rt-xt jit-rel ] jit-word-jump jit-define

[
    3 ds-reg 0 LWZ
