Skip to content
Snippets Groups Projects
Commit 3c95c034 authored by wlott's avatar wlott
Browse files

Deleted the defconstant for mumble-float-digits, 'cause it also exists in

parms.lisp.
parent babacb47
Branches
Tags
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.7 1990/12/01 16:32:28 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.8 1990/12/02 15:59:07 wlott Exp $
;;; ;;;
;;; This file contains floating-point specific transforms, and may be somewhat ;;; This file contains floating-point specific transforms, and may be somewhat
;;; implementation dependent in its assumptions of what the formats are. ;;; implementation dependent in its assumptions of what the formats are.
...@@ -103,14 +103,6 @@ ...@@ -103,14 +103,6 @@
;;; known. ;;; known.
;;; ;;;
(defconstant single-float-digits
(1+ (byte-size vm:single-float-significand-byte)))
(defconstant double-float-digits
(+ (byte-size vm:double-float-significand-byte)
vm:word-bits
1))
(deftype single-float-exponent () (deftype single-float-exponent ()
`(integer ,(- vm:single-float-normal-exponent-min vm:single-float-bias `(integer ,(- vm:single-float-normal-exponent-min vm:single-float-bias
vm:single-float-digits) vm:single-float-digits)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment