Fixing PPC backend for ##slot change

db4
sheeple 2009-09-26 13:21:42 -05:00
parent 01a4047126
commit 3476f2e28c
1 changed files with 2 additions and 2 deletions

View File

@ -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 -- )