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

use FRSP to convert double to single on PPC

db4
Joe Groff 2009-10-17 00:13:50 -05:00
parent ac51237853
commit a7fcaf027c
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/cpu/ppc/assembler/assembler.factor
View File

@ -97,6 +97,8 @@ X: XOR 0 316 31
X: XOR. 1 316 31
X1: EXTSB 0 954 31
X1: EXTSB. 1 954 31
: FRSP ( a s -- ) [ 0 ] 2dip 0 12 63 x-insn ;
: FRSP. ( a s -- ) [ 0 ] 2dip 1 12 63 x-insn ;
: FMR ( a s -- ) [ 0 ] 2dip 0 72 63 x-insn ;
: FMR. ( a s -- ) [ 0 ] 2dip 1 72 63 x-insn ;
: FCTIWZ ( a s -- ) [ 0 ] 2dip 0 15 63 x-insn ;

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

@ -251,7 +251,7 @@ M:: ppc %binary-float-function ( dst src1 src2 func -- )
! Internal format is always double-precision on PowerPC
M: ppc %single>double-float double-rep %copy ;
M: ppc %double>single-float double-rep %copy ;
M: ppc %double>single-float FRSP ;
M: ppc %unbox-alien ( dst src -- )
alien-offset LWZ ;