Commit dd93cb0b authored by rtoy's avatar rtoy
Browse files

There are 106 bits in a double-double, not 105.

parent e19ac0f5

compiler/ppc/parms.lisp

+2 −4
Original line number Diff line number Diff line
@@ -7,7 +7,7 @@ 
;;; Scott Fahlman or slisp-group@cs.cmu.edu.

;;;

(ext:file-comment

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/parms.lisp,v 1.11.2.1 2006/06/10 00:24:37 rtoy Exp $")

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/parms.lisp,v 1.11.2.2 2006/06/13 16:44:21 rtoy Exp $")

;;;

;;; **********************************************************************

;;;
@@ -105,11 +105,9 @@ 
(defconstant double-float-digits

  (+ (byte-size double-float-significand-byte) word-bits 1))



;; What is the right value for double-double floats?  I (rtoy)

;; subtract 1 because the hidden bit in the low float doesn't count.

#+double-double

(defconstant double-double-float-digits

  (+ double-float-digits (- double-float-digits 1)))

  (* 2 double-float-digits))



(defconstant float-inexact-trap-bit (ash 1 0))

(defconstant float-divide-by-zero-trap-bit (ash 1 1))

compiler/sparc/parms.lisp

+2 −4
Original line number Diff line number Diff line
@@ -5,7 +5,7 @@ 
;;; Carnegie Mellon University, and has been placed in the public domain.

;;;

(ext:file-comment

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.50.12.1 2006/06/09 16:05:18 rtoy Exp $")

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.50.12.2 2006/06/13 16:43:08 rtoy Exp $")

;;;

;;; **********************************************************************

;;;
@@ -151,11 +151,9 @@ 
(defconstant long-float-digits

  (+ (byte-size long-float-significand-byte) word-bits 1))



;; What is the right value for double-double floats?  I (rtoy)

;; subtract 1 because the hidden bit in the low float doesn't count.

#+double-double

(defconstant double-double-float-digits

  (1- (* 2 double-float-digits)))

  (* 2 double-float-digits))



(defconstant float-inexact-trap-bit (ash 1 0))

(defconstant float-divide-by-zero-trap-bit (ash 1 1))

compiler/x86/parms.lisp

+2 −4
Original line number Diff line number Diff line
@@ -7,7 +7,7 @@ 
;;; Scott Fahlman or slisp-group@cs.cmu.edu.

;;;

(ext:file-comment

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/parms.lisp,v 1.28.8.1 2006/06/10 03:29:19 rtoy Exp $")

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/parms.lisp,v 1.28.8.2 2006/06/13 16:44:21 rtoy Exp $")

;;;

;;; **********************************************************************

;;;
@@ -145,11 +145,9 @@ 
(defconstant long-float-digits

  (+ (byte-size long-float-significand-byte) word-bits 1))



;; What is the right value for double-double floats?  I (rtoy)

;; subtract 1 because the hidden bit in the low float doesn't count.

#+double-double

(defconstant double-double-float-digits

  (1- (* 2 double-float-digits)))

  (* 2 double-float-digits))



;;; pfw -- from i486 microprocessor programmers reference manual

(defconstant float-invalid-trap-bit        (ash 1 0))