Skip to content
Snippets Groups Projects
Commit 5c308d3f authored by ram's avatar ram
Browse files

Made FLOAT-FAST-BIT be 0, since we aren't supposed to set that bit.

parent 26497b49
No related branches found
No related tags found
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/sparc/parms.lisp,v 1.3 1990/12/06 17:37:00 ram Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.4 1990/12/07 18:03:06 ram Exp $
;;; ;;;
;;; This file contains some parameterizations of various VM ;;; This file contains some parameterizations of various VM
;;; attributes for the SPARC. This file is separate from other stuff so ;;; attributes for the SPARC. This file is separate from other stuff so
...@@ -113,7 +113,10 @@ ...@@ -113,7 +113,10 @@
(defconstant float-sticky-bits (byte 5 5)) ; aexc (defconstant float-sticky-bits (byte 5 5)) ; aexc
(defconstant float-traps-byte (byte 5 23)) ; TEM (defconstant float-traps-byte (byte 5 23)) ; TEM
(defconstant float-exceptions-byte (byte 5 0)) ; cexc (defconstant float-exceptions-byte (byte 5 0)) ; cexc
(defconstant float-fast-bit (ash 1 22)) ; EFM
;;; According to the SPARC doc (as opposed to FPU doc), the fast mode bit (EFM)
;;; is "reserved", and should always be zero.
(defconstant float-fast-bit 0)
); eval-when ); eval-when
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment