diff --git a/basis/cpu/ppc/ppc.factor b/basis/cpu/ppc/ppc.factor index 1bc8d6975d..2ff9921abf 100644 --- 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 ;