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

Add the denormal exception for the x86.

parent 87cf3a57
No related branches found
No related tags found
No related merge requests found
......@@ -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"
......
......@@ -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
......
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