From 0906f3444fa0e23f8127ffd914200a9f3b201e13 Mon Sep 17 00:00:00 2001 From: Thiemo Seufer Date: Wed, 5 Oct 2005 19:45:12 +0000 Subject: [PATCH] 0.9.5.22: Fix float-fast-bit definition for mips. Evaluate constant params only once. --- src/compiler/mips/parms.lisp | 18 +++++++++++++++--- version.lisp-expr | 2 +- 2 files changed, 16 insertions(+), 4 deletions(-) diff --git a/src/compiler/mips/parms.lisp b/src/compiler/mips/parms.lisp index 4756543..7454a0e 100644 --- a/src/compiler/mips/parms.lisp +++ b/src/compiler/mips/parms.lisp @@ -1,4 +1,16 @@ +;;;; This software is part of the SBCL system. See the README file for +;;;; more information. +;;;; +;;;; This software is derived from the CMU CL system, which was +;;;; written at Carnegie Mellon University and released into the +;;;; public domain. The software is in the public domain and is +;;;; provided with absolutely no warranty. See the COPYING and CREDITS +;;;; files for more information. + (in-package "SB!VM") + +;;;; Machine Architecture parameters: +(eval-when (:compile-toplevel :load-toplevel :execute) ;;; number of bits per word where a word holds one lisp descriptor (def!constant n-word-bits 32) @@ -11,7 +23,6 @@ ;;; object (def!constant n-byte-bits 8) - (def!constant float-sign-shift 31) (def!constant single-float-bias 126) @@ -52,9 +63,9 @@ (defconstant-eqx float-traps-byte (byte 5 7) #'equalp) (defconstant-eqx float-exceptions-byte (byte 5 12) #'equalp) (defconstant-eqx float-condition-bit (ash 1 23) #'equalp) -(def!constant float-fast-bit 0) ; No fast mode on PMAX. +(def!constant float-fast-bit (ash 1 24)) +;(def!constant float-fast-bit 0) - ;;;; Description of the target address space. #!+irix @@ -97,6 +108,7 @@ ;; C stack grows downward from 0x80000000 ) +); eval-when ;;;; Other non-type constants. diff --git a/version.lisp-expr b/version.lisp-expr index 05e1b8c..d9c79df 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.21" +"0.9.5.22" -- 1.7.10.4