use FRSP to convert double to single on PPC
parent
ac51237853
commit
a7fcaf027c
|
@ -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 ;
|
||||
|
|
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue