From a160ca4f2fcebf00be13527b729103a51202a5d9 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Wed, 11 Mar 1998 18:04:59 +0000 Subject: [PATCH] Define the float-fast-bit; from Raymond Toy. --- compiler/sparc/parms.lisp | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/compiler/sparc/parms.lisp b/compiler/sparc/parms.lisp index 63fdbb4c7..597db72d3 100644 --- a/compiler/sparc/parms.lisp +++ b/compiler/sparc/parms.lisp @@ -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.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 @@ (defconstant float-traps-byte (byte 5 23)) ; TEM (defconstant float-exceptions-byte (byte 5 0)) ; cexc -;;; 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) +;;; According to the SPARC doc (as opposed to FPU doc), the fast mode +;;; bit (EFM) is "reserved", and should always be zero. However, for +;;; 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 -- GitLab