From 2efc7d1b9e14e730cfdd7dde19626f0e6793c000 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 15 Oct 2009 04:47:54 -0500
Subject: [PATCH] cpu.ppc.bootstrap: update for JIT relocation changes

---
 basis/cpu/ppc/bootstrap.factor | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/basis/cpu/ppc/bootstrap.factor b/basis/cpu/ppc/bootstrap.factor
index b9e374f0bb..80c0124039 100644
--- a/basis/cpu/ppc/bootstrap.factor
+++ b/basis/cpu/ppc/bootstrap.factor
@@ -255,7 +255,7 @@ CONSTANT: rs-reg 14
 [
     3 ds-reg 0 LWZ
     ds-reg dup 4 SUBI
-    4 0 swap LOAD32 rc-absolute-ppc-2/2 rt-vm jit-rel
+    4 0 swap LOAD32 0 jit-literal rc-absolute-ppc-2/2 rt-vm jit-rel
     5 3 quot-xt-offset LWZ
     5 MTCTR
     BCTR
@@ -387,6 +387,7 @@ CONSTANT: rs-reg 14
 
 ! Comparisons
 : jit-compare ( insn -- )
+    t jit-literal
     0 3 LOAD32 rc-absolute-ppc-2/2 rt-immediate jit-rel
     4 ds-reg 0 LWZ
     5 ds-reg -4 LWZU