From 394d4d76644409b8789ad597d1a132667579cf74 Mon Sep 17 00:00:00 2001 From: Thiemo Seufer Date: Tue, 11 Oct 2005 17:58:44 +0000 Subject: [PATCH] 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). --- src/compiler/mips/float.lisp | 7 ++++--- src/compiler/mips/parms.lisp | 1 - version.lisp-expr | 2 +- 3 files changed, 5 insertions(+), 5 deletions(-) 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 diff --git a/src/compiler/mips/parms.lisp b/src/compiler/mips/parms.lisp index 7454a0e..64c2eb8 100644 --- 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 --- 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" -- 1.7.10.4