X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmips%2Ffloat.lisp;h=61113c916e9cd53d958748c64364442619841a5e;hb=942e45e3bb73fd55786e4a0ab4590324063c0c89;hp=b99ed18d24b3d8f15fe247cb0f4d8b36185823ec;hpb=52cfe54802db8736f1f4e2b67764c43bba9b78b3;p=sbcl.git

diff --git a/src/compiler/mips/float.lisp b/src/compiler/mips/float.lisp
index b99ed18..61113c9 100644
--- a/src/compiler/mips/float.lisp
+++ b/src/compiler/mips/float.lisp
@@ -695,7 +695,8 @@
 
 ;;;; Float mode hackery:
 
-(sb!xc:deftype float-modes () '(unsigned-byte 24))
+;#|
+(sb!xc:deftype float-modes () '(unsigned-byte 32))
 (defknown floating-point-modes () float-modes (flushable))
 (defknown ((setf floating-point-modes)) (float-modes)
   float-modes)
@@ -717,9 +718,9 @@
   (:translate (setf floating-point-modes))
   (:policy :fast-safe)
   (:generator 3
-    (inst ctc1 res 31)
+    (inst ctc1 new 31)
     (move res new)))
-
+;|#
 
 ;;;; Complex float VOPs