 
 ! Comparisons
 : jit-compare ( insn -- )
-    0 3 LOAD32
+    0 3 LOAD32 rc-absolute-ppc-2/2 rt-immediate jit-rel
     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-word-jump jit-define

[
    3 ds-reg 0 LWZ


[
    jit->r
    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 jit-rel
    jit-2r>
] jit-2dip jit-define

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

