From 3476f2e28c5e23169a7c6bf79f1fa7006fcd346f Mon Sep 17 00:00:00 2001 From: sheeple Date: Sat, 26 Sep 2009 13:21:42 -0500 Subject: [PATCH] Fixing PPC backend for ##slot change --- basis/cpu/ppc/ppc.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/cpu/ppc/ppc.factor b/basis/cpu/ppc/ppc.factor index 5461002dc8..64df207975 100644 --- a/basis/cpu/ppc/ppc.factor +++ b/basis/cpu/ppc/ppc.factor @@ -142,9 +142,9 @@ M:: ppc %dispatch ( src temp -- ) : (%slot-imm) ( obj slot tag -- reg offset ) [ cells ] dip - ; inline -M: ppc %slot ( dst obj slot -- ) LWZX ; +M: ppc %slot ( dst obj slot -- ) swapd LWZX ; M: ppc %slot-imm ( dst obj slot tag -- ) (%slot-imm) LWZ ; -M: ppc %set-slot ( src obj slot -- ) STWX ; +M: ppc %set-slot ( src obj slot -- ) swapd STWX ; M: ppc %set-slot-imm ( src obj slot tag -- ) (%slot-imm) STW ; M:: ppc %string-nth ( dst src index temp -- )