Skip to content
Snippets Groups Projects
Commit dd93cb0b authored by rtoy's avatar rtoy
Browse files

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

parent e19ac0f5
No related branches found
No related merge requests found
......@@ -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))
......
......@@ -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))
......
......@@ -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))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment