X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmips%2Ffloat.lisp;h=685c49d423349f080b8dba1acea058b8cb7a81d4;hb=6596b18b95780986ff4eb511ab384da138adbb58;hp=1f406c5735761d02d3efa0495a62a1f609406b91;hpb=9dcd91eba92f6f2db9ae65d7640f2cd2f4ee2a8b;p=sbcl.git

diff --git a/src/compiler/mips/float.lisp b/src/compiler/mips/float.lisp
index 1f406c5..685c49d 100644
--- a/src/compiler/mips/float.lisp
+++ b/src/compiler/mips/float.lisp
@@ -78,7 +78,7 @@
   (:variant-vars double-p size type data)
   (:note "float to pointer coercion")
   (:generator 13
-    (with-fixed-allocation (y pa-flag ndescr type size)
+    (with-fixed-allocation (y pa-flag ndescr type size nil)
       (if double-p
           (str-double x y (- (* data n-word-bytes) other-pointer-lowtag))
           (inst swc1 x y (- (* data n-word-bytes) other-pointer-lowtag))))))
@@ -259,7 +259,7 @@
   (:note "complex single float to pointer coercion")
   (:generator 13
     (with-fixed-allocation (y pa-flag ndescr complex-single-float-widetag
-                              complex-single-float-size)
+                              complex-single-float-size nil)
       (let ((real-tn (complex-single-reg-real-tn x)))
         (inst swc1 real-tn y (- (* complex-single-float-real-slot
                                    n-word-bytes)
@@ -279,7 +279,7 @@
   (:note "complex double float to pointer coercion")
   (:generator 13
     (with-fixed-allocation (y pa-flag ndescr complex-double-float-widetag
-                              complex-double-float-size)
+                              complex-double-float-size nil)
       (let ((real-tn (complex-double-reg-real-tn x)))
         (str-double real-tn y (- (* complex-double-float-real-slot
                                     n-word-bytes)
@@ -608,7 +608,7 @@
                             pa-flag)
                 (:arg-types ,from-type)
                 (:result-types signed-num)
-                (:translate %unary-truncate)
+                (:translate ,name)
                 (:policy :fast-safe)
                 (:note "inline float truncate")
                 (:vop-var vop)