Fixing PPC backend for ##slot change
parent
01a4047126
commit
3476f2e28c
|
@ -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 -- )
|
||||
|
|
Loading…
Reference in New Issue