use FRSP to convert double to single on PPC

diff --git a/basis/cpu/ppc/assembler/assembler.factor b/basis/cpu/ppc/assembler/assembler.factor
index 210d458605c3ec79e9f7cb601c1092a194eed0fc..ca626a638eec8041590dacb4612a9f5b40646edc 100644 (file)
--- a/basis/cpu/ppc/assembler/assembler.factor
+++ b/basis/cpu/ppc/assembler/assembler.factor
@@ -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 ;

diff --git a/basis/cpu/ppc/ppc.factor b/basis/cpu/ppc/ppc.factor
index f9a44b5ffb03caa02c4b73850f5b3cee7369c902..48eaf54f46b7ccae92c2521ab5e402139a5708eb 100644 (file)
--- a/basis/cpu/ppc/ppc.factor
+++ b/basis/cpu/ppc/ppc.factor
@@ -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 ;