Skip to content
Snippets Groups Projects
Commit a160ca4f authored by dtc's avatar dtc
Browse files

Define the float-fast-bit; from Raymond Toy.

parent de2d9b9f
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.25 1998/01/22 15:44:56 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.26 1998/03/11 18:04:59 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -125,9 +125,11 @@ ...@@ -125,9 +125,11 @@
(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
;;; According to the SPARC doc (as opposed to FPU doc), the fast mode bit (EFM) ;;; According to the SPARC doc (as opposed to FPU doc), the fast mode
;;; is "reserved", and should always be zero. ;;; bit (EFM) is "reserved", and should always be zero. However, for
(defconstant float-fast-bit 0) ;;; sparc-V8 and sparc-V9, it appears to work, causing denormals to
;;; be truncated to 0 silently.
(defconstant float-fast-bit (ash 1 22))
); eval-when ); eval-when
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment