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

diff --git a/src/compiler/mips/float.lisp b/src/compiler/mips/float.lisp
index 1f406c5..56323bb 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)