Commit 7799506c authored by rtoy's avatar rtoy
Browse files

Don't need float-wait instructions with SSE2 (which are precise and

occur as soon as the instruction completes execution).
parent 7883fd7a
Loading
Loading
Loading
Loading
+4 −4
Original line number Diff line number Diff line
@@ -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.85 2006/01/03 18:09:55 rtoy Exp $")
  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.85.16.1 2008/10/01 20:05:15 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -908,7 +908,7 @@
     (multiple-value-prog1
      (progn ,@forms)
      ;; Wait for any float exceptions
      #+x86 (float-wait))))
      #+x87 (float-wait))))


;;;; Condition definitions.
@@ -1172,8 +1172,8 @@
					    (go ,(car annotated-case)))))
			       annotated-cases)
		    (return-from ,tag
		      #-x86 ,form
		      #+x86 (multiple-value-prog1 ,form
		      #-x87 ,form
		      #+x87 (multiple-value-prog1 ,form
			      ;; Need to catch FP errors here!
			      (kernel::float-wait))))
		  ,@(mapcan
+2 −2
Original line number Diff line number Diff line
@@ -5,7 +5,7 @@
;;; the Public domain, and is provided 'as is'.
;;;
(ext:file-comment
  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/multi-proc.lisp,v 1.43 2005/07/05 13:12:50 rtoy Exp $")
  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/multi-proc.lisp,v 1.43.18.1 2008/10/01 20:05:15 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -1305,7 +1305,7 @@
  "Allow other processes to run."
  (unless *inhibit-scheduling*
    ;; Catch any FP exceptions before entering the scheduler.
    (kernel:float-wait)
    #+x87 (kernel:float-wait)
    ;; Inhibit recursive entry of the scheduler.
    (setf *inhibit-scheduling* t)
    (assert (eq (first *remaining-processes*) *current-process*))