From eef45a1cc3a66b22ddb09b9bb4288b7ec4e74bec Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 13 Nov 2008 05:58:49 -0600
Subject: [PATCH] Tweak PowerPC %dispatch

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

diff --git a/basis/cpu/ppc/ppc.factor b/basis/cpu/ppc/ppc.factor
index 2ff9921abf..c656ae4d89 100644
--- a/basis/cpu/ppc/ppc.factor
+++ b/basis/cpu/ppc/ppc.factor
@@ -113,9 +113,8 @@ M: ppc %return ( -- ) BLR ;
 
 M:: ppc %dispatch ( src temp offset -- )
     0 temp LOAD32
-    5 offset + cells rc-absolute-ppc-2/2 rel-here
-    temp temp src ADD
-    temp temp 0 LWZ
+    4 offset + cells rc-absolute-ppc-2/2 rel-here
+    temp temp src LWZX
     temp MTCTR
     BCTR ;