0.9.5.40:

	The mips FP status is 32 bits long (and we don't want to set it
	with an uninitialized result value).

diff --git a/src/compiler/mips/float.lisp b/src/compiler/mips/float.lisp
index b99ed18..61113c9 100644 (file)
--- a/src/compiler/mips/float.lisp
+++ b/src/compiler/mips/float.lisp
@@ -695,7 +695,8 @@
 \f
 ;;;; 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)))
-
+;|#
 \f
 ;;;; Complex float VOPs
 

diff --git a/src/compiler/mips/parms.lisp b/src/compiler/mips/parms.lisp
index 7454a0e..64c2eb8 100644 (file)
--- a/src/compiler/mips/parms.lisp
+++ b/src/compiler/mips/parms.lisp
@@ -64,7 +64,6 @@
 (defconstant-eqx float-exceptions-byte (byte 5 12) #'equalp)
 (defconstant-eqx float-condition-bit (ash 1 23) #'equalp)
 (def!constant float-fast-bit (ash 1 24))
-;(def!constant float-fast-bit 0)
 
 ;;;; Description of the target address space.
 

diff --git a/version.lisp-expr b/version.lisp-expr
index 31b5f01..9bebbe2 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.5.39"
+"0.9.5.40"