From: Brian Downing <bdowning@lavos.net>
Date: Thu, 26 Oct 2006 03:55:20 +0000 (+0000)
Subject: 0.9.18.4:  Fix non-x86 builds.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=8197ef56f02105dfe825b976f5bf74285a767b42;p=sbcl.git

0.9.18.4:  Fix non-x86 builds.
  * Make :precision :53-bit in *saved-floating-point-modes*
    conditional upon #!+x86.
---

diff --git a/src/code/float-trap.lisp b/src/code/float-trap.lisp
index 23c5e76..dca6771 100644
--- a/src/code/float-trap.lisp
+++ b/src/code/float-trap.lisp
@@ -160,7 +160,8 @@ sets the floating point modes to their current values (and thus is a no-op)."
 (defvar *saved-floating-point-modes*
   '(:traps (:overflow #!-netbsd :invalid :divide-by-zero)
     :rounding-mode :nearest :current-exceptions nil
-    :accrued-exceptions nil :fast-mode nil :precision :53-bit))
+    :accrued-exceptions nil :fast-mode nil
+    #!+x86 :precision #!+x86 :53-bit))
 
 (defun float-cold-init-or-reinit ()
   (apply #'set-floating-point-modes *saved-floating-point-modes*))
diff --git a/version.lisp-expr b/version.lisp-expr
index cab40b0..160bbd4 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.18.3"
+"0.9.18.4"