Fixing PPC backend for ##slot change

sheeple 2009-09-26 13:21:42 -05:00
parent 2b35f52ed2
commit 24b27f4c42
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 -- )