From cbd10aa89c27dfb1fdfa353752103f2a11f262ba Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Thu, 19 Apr 2001 16:40:47 +0000 Subject: [PATCH] For x86, need a float-wait to catch any FP exceptions that might have occurred. --- code/error.lisp | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/code/error.lisp b/code/error.lisp index 549832cbf..7123855bd 100644 --- a/code/error.lisp +++ b/code/error.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/error.lisp,v 1.59 2001/01/09 05:21:22 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.60 2001/04/19 16:40:47 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1066,7 +1066,11 @@ '(declare (ignore temp))) (go ,(car annotated-case))))) annotated-cases) - (return-from ,tag ,form)) + (return-from ,tag + #-x86 ,form + #+x86 (multiple-value-prog1 ,form + ;; Need to catch FP errors here! + (kernel::float-wait)))) ,@(mapcan #'(lambda (annotated-case) (list (car annotated-case) -- GitLab