[cmucl-cvs] CMUCL commit: src/code (irrat.lisp)

[Raymond Toy]

    Date: Monday, February 28, 2011 @ 12:14:45
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code

Modified: irrat.lisp

Need to define %sqrt for x86/sse2 so the compiler can constant-fold
SQRT. 


------------+
 irrat.lisp |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)


Index: src/code/irrat.lisp
diff -u src/code/irrat.lisp:1.63 src/code/irrat.lisp:1.64
--- src/code/irrat.lisp:1.63	Tue Apr 20 13:57:44 2010
+++ src/code/irrat.lisp	Mon Feb 28 12:14:45 2011
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/irrat.lisp,v 1.63 2010-04-20 17:57:44 rtoy Rel $")
+  "$Header: /project/cmucl/cvsroot/src/code/irrat.lisp,v 1.64 2011-02-28 17:14:45 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -179,7 +179,7 @@
 
 ;; As above for x86.  It also seems to be needed to handle
 ;; constant-folding in the compiler.
-#+sparc
+#+(or sparc (and x86 sse2))
 (progn
   (defun %sqrt (x)
     (declare (double-float x)