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