From 8d358ea3703f9155248c74560252b9feb0b3fb21 Mon Sep 17 00:00:00 2001
From: "U-SLAVA-FB3999113\\Slava" <Slava@slava-fb3999113.(none)>
Date: Sat, 13 Oct 2007 00:57:40 -0400
Subject: [PATCH] core/cpu/ppc cleanup

---
 core/cpu/ppc/bootstrap.factor | 13 +++----------
 1 file changed, 3 insertions(+), 10 deletions(-)
 mode change 100644 => 100755 core/cpu/ppc/bootstrap.factor

diff --git a/core/cpu/ppc/bootstrap.factor b/core/cpu/ppc/bootstrap.factor
old mode 100644
new mode 100755
index d8644e24a6..c22d1f243c
--- a/core/cpu/ppc/bootstrap.factor
+++ b/core/cpu/ppc/bootstrap.factor
@@ -62,6 +62,7 @@ big-endian on
 ] { } make jit-word-primitive-call set
 
 : load-xt ( -- )
+    word-reg scan-reg 4 LWZU                   ! load word and advance
     xt-reg word-reg word-xt@ LWZ ;
 
 : jit-call
@@ -74,17 +75,9 @@ big-endian on
 : jit-jump
     xt-reg MTCTR BCTR ;
 
-[
-    word-reg scan-reg 4 LWZU                   ! load word and advance
-    load-xt
-    jit-call
-] { } make jit-word-call set
+[ load-xt jit-call ] { } make jit-word-call set
 
-[
-    word-reg scan-reg 4 LWZ                    ! load word
-    load-xt                                    ! jump to word XT
-    jit-jump
-] { } make jit-word-jump set
+[ load-xt jit-jump ] { } make jit-word-jump set
 
 : load-branch
     temp-reg ds-reg 0 LWZ                      ! load boolean