Fix PowerPC bootstrap

2008-11-13 05:55:34 -06:00 · 2008-11-13 05:55:34 -06:00 · a14e1ebcb5
parent 5b4e8e9d09
commit a14e1ebcb5
1 changed files with 3 additions and 2 deletions
--- a/basis/cpu/ppc/ppc.factor
+++ b/basis/cpu/ppc/ppc.factor
@ -112,9 +112,10 @@ M: ppc %jump-label ( label -- ) B ;
 M: ppc %return ( -- ) BLR ;

 M:: ppc %dispatch ( src temp offset -- )
-    0 temp LOAD32 rc-absolute-ppc-2/2 rel-here
+    0 temp LOAD32
+    5 offset + cells rc-absolute-ppc-2/2 rel-here
    temp temp src ADD
-    temp temp 5 offset + cells LWZ
+    temp temp 0 LWZ
    temp MTCTR
    BCTR ;