steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

An attempt at porting the slot change to PPC

Daniel Ehrenberg 2009-09-26 02:58:18 -05:00
parent 2aad330c41
commit 01082d743d
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/cpu/ppc/ppc.factor
View File

@ -142,16 +142,12 @@ M:: ppc %dispatch ( src temp -- )
temp MTCTR
BCTR ;
:: (%slot) ( obj slot tag temp -- reg offset )
temp slot obj ADD
temp tag neg ; inline
: (%slot-imm) ( obj slot tag -- reg offset )
[ cells ] dip - ; inline
M: ppc %slot ( dst obj slot tag temp -- ) (%slot) LWZ ;
M: ppc %slot ( dst obj slot -- ) LWZX ;
M: ppc %slot-imm ( dst obj slot tag -- ) (%slot-imm) LWZ ;
M: ppc %set-slot ( src obj slot tag temp -- ) (%slot) STW ;
M: ppc %set-slot ( src obj slot -- ) STWX ;
M: ppc %set-slot-imm ( src obj slot tag -- ) (%slot-imm) STW ;
M:: ppc %string-nth ( dst src index temp -- )