From 8a8fd535c55028a4aa2110d4c290e0c3bd1b3a6b Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Fri, 12 Sep 2003 20:06:05 +0000 Subject: [PATCH] Turn off the trap for floating-pointe underflow for all platforms. --- code/lispinit.lisp | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/code/lispinit.lisp b/code/lispinit.lisp index 471247945..14cb558d9 100644 --- a/code/lispinit.lisp +++ b/code/lispinit.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/lispinit.lisp,v 1.70 2003/06/26 13:27:42 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.71 2003/09/12 20:06:05 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -382,8 +382,7 @@ (print-and-call kernel::signal-init) (setf (alien:extern-alien "internal_errors_enabled" boolean) t) - (set-floating-point-modes :traps '(:overflow #-x86 :underflow :invalid - :divide-by-zero)) + (set-floating-point-modes :traps '(:overflow :invalid :divide-by-zero)) ;; This is necessary because some of the initial top level forms might ;; have changed the compliation policy in strange ways. (print-and-call c::proclaim-init) @@ -449,8 +448,7 @@ (gc-init) (setf (alien:extern-alien "internal_errors_enabled" boolean) t) (set-floating-point-modes :traps - '(:overflow #-x86 :underflow :invalid - :divide-by-zero)) + '(:overflow :invalid :divide-by-zero)) ;; Clear pseudo atomic in case this core wasn't compiled with support. #+x86 (setf lisp::*pseudo-atomic-atomic* 0)))) -- GitLab