From ab3224ae51ef338a74c3013ee7840fa40de8f9d2 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Sun, 7 Sep 1997 23:34:00 +0000 Subject: [PATCH] Add the denormal exception for the x86. --- code/exports.lisp | 5 +++-- code/float-trap.lisp | 10 ++++++---- 2 files changed, 9 insertions(+), 6 deletions(-) diff --git a/code/exports.lisp b/code/exports.lisp index 9ab4283f8..0b84598df 100644 --- a/code/exports.lisp +++ b/code/exports.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/code/exports.lisp,v 1.125 1997/09/04 13:10:01 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.126 1997/09/07 23:33:58 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -661,7 +661,8 @@ #+SGI "DOUBLE-INT-CARG-REG-SC-NUMBER" "DOUBLE-REG-SC-NUMBER" "DOUBLE-STACK-SC-NUMBER" "ERROR-TRAP" "EVEN-FIXNUM-TYPE" "EXPORTED-STATIC-SYMBOLS" "FIND-HOLES" "FIXNUM" - "FIXUP-CODE-OBJECT" "FLOAT-DIVIDE-BY-ZERO-TRAP-BIT" + "FIXUP-CODE-OBJECT" "FLOAT-DENORMAL-TRAP-BIT" + "FLOAT-DIVIDE-BY-ZERO-TRAP-BIT" "FLOAT-IMPRECISE-TRAP-BIT" "FLOAT-INVALID-TRAP-BIT" "FLOAT-OVERFLOW-TRAP-BIT" "FLOAT-SIGN-SHIFT" "FLOAT-UNDERFLOW-TRAP-BIT" "FLOATING-POINT-MODES" diff --git a/code/float-trap.lisp b/code/float-trap.lisp index 5fe476920..ea3ac028c 100644 --- a/code/float-trap.lisp +++ b/code/float-trap.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/code/float-trap.lisp,v 1.11 1997/09/02 04:26:59 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/float-trap.lisp,v 1.12 1997/09/07 23:34:00 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -29,7 +29,8 @@ (cons :overflow float-overflow-trap-bit) (cons :inexact float-inexact-trap-bit) (cons :invalid float-invalid-trap-bit) - (cons :divide-by-zero float-divide-by-zero-trap-bit))) + (cons :divide-by-zero float-divide-by-zero-trap-bit) + #+x86 (cons :denormalized-operand float-denormal-trap-bit))) ;;; FLOAT-TRAP-MASK -- Internal ;;; @@ -70,8 +71,9 @@ :TRAPS A list of the exception conditions that should cause traps. Possible - exceptions are :UNDERFLOW, :OVERFLOW, :INEXACT, :INVALID and - :DIVIDE-BY-ZERO. Initially all traps except :INEXACT are enabled. + exceptions are :UNDERFLOW, :OVERFLOW, :INEXACT, :INVALID, + :DIVIDE-BY-ZERO, and on the X86 :DENORMALIZED-OPERAND. Initially + all traps except :INEXACT are enabled. :ROUNDING-MODE The rounding mode to use when the result is not exact. Possible values -- GitLab