diff --git a/compiler/mips/parms.lisp b/compiler/mips/parms.lisp index 4bb5d2d39c094ab79e5de718c4d792e3917b36a0..5bf734d4eced48043b73deac240567bc28957fe1 100644 --- a/compiler/mips/parms.lisp +++ b/compiler/mips/parms.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.70 1990/09/17 23:44:14 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.71 1990/09/19 22:01:51 ram Exp $ ;;; ;;; This file contains some parameterizations of various VM ;;; attributes for the MIPS. This file is separate from other stuff so @@ -67,22 +67,21 @@ (defconstant float-sign-shift 31) -;;; The exponent min/max values are wrong, I think. The denorm, infinity, etc. -;;; info must go in there somewhere. - (defconstant single-float-bias 126) (defconstant single-float-exponent-byte (byte 8 23)) (defconstant single-float-significand-byte (byte 23 0)) -(defconstant single-float-normal-exponent-min 0) -(defconstant single-float-normal-exponent-max 255) +(defconstant single-float-normal-exponent-min 1) +(defconstant single-float-normal-exponent-max 254) (defconstant single-float-hidden-bit (ash 1 23)) +(defconstant single-float-trapping-nan-bit (ash 1 22)) (defconstant double-float-bias 1022) (defconstant double-float-exponent-byte (byte 11 20)) (defconstant double-float-significand-byte (byte 20 0)) -(defconstant double-float-normal-exponent-min 0) -(defconstant double-float-normal-exponent-max #x7FF) +(defconstant double-float-normal-exponent-min 1) +(defconstant double-float-normal-exponent-max #x7FE) (defconstant double-float-hidden-bit (ash 1 20)) +(defconstant double-float-trapping-nan-bit (ash 1 19)) (defconstant single-float-digits (+ (byte-size single-float-significand-byte) 1))