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 ;