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

cpu.ppc: update for alien intrinsic changes

db4
Slava Pestov 2009-09-30 18:22:59 -05:00
parent b8c2fc6627
commit a7dd4ad5cc
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -386,24 +386,24 @@ M:: ppc %box-displaced-alien ( dst displacement base displacement' base' base-cl
"end" resolve-label
] with-scope ;
M: ppc %alien-unsigned-1 0 LBZ ;
M: ppc %alien-unsigned-2 0 LHZ ;
M: ppc %alien-unsigned-1 LBZ ;
M: ppc %alien-unsigned-2 LHZ ;
M: ppc %alien-signed-1 dupd 0 LBZ dup EXTSB ;
M: ppc %alien-signed-2 0 LHA ;
M: ppc %alien-signed-1 [ dup ] 2dip LBZ dup EXTSB ;
M: ppc %alien-signed-2 LHA ;
M: ppc %alien-cell 0 LWZ ;
M: ppc %alien-cell LWZ ;
M: ppc %alien-float 0 LFS ;
M: ppc %alien-double 0 LFD ;
M: ppc %alien-float LFS ;
M: ppc %alien-double LFD ;
M: ppc %set-alien-integer-1 swap 0 STB ;
M: ppc %set-alien-integer-2 swap 0 STH ;
M: ppc %set-alien-integer-1 swapd STB ;
M: ppc %set-alien-integer-2 swapd STH ;
M: ppc %set-alien-cell swap 0 STW ;
M: ppc %set-alien-cell swapd STW ;
M: ppc %set-alien-float swap 0 STFS ;
M: ppc %set-alien-double swap 0 STFD ;
M: ppc %set-alien-float swapd STFS ;
M: ppc %set-alien-double swapd STFD ;
: load-zone-ptr ( reg -- )
"nursery" %load-vm-field-addr ;