[oct-cvs] Oct commit: oct qd-dd.lisp qd.lisp

[rtoy]

Update of /project/oct/cvsroot/oct
In directory clnet:/tmp/cvs-serv29848

Modified Files:
	qd-dd.lisp qd.lisp 
Log Message:
Don't compile with safety 0 on Allegro.  I think this causes problems
on x86 because it doesn't quite keep the precision right.


--- /project/oct/cvsroot/oct/qd-dd.lisp	2007/10/15 18:53:44	1.11
+++ /project/oct/cvsroot/oct/qd-dd.lisp	2007/11/16 19:44:06	1.12
@@ -206,7 +206,7 @@
 (defun two-prod (a b)
   "Compute fl(a*b) and err(a*b)"
   (declare (double-float a b)
-	   (optimize (speed 3) (safety 0) (debug 0)))
+	   (optimize (speed 3) (safety #-allegro 0 #+allegro 1) (debug 0)))
   (let ((p (* a b)))
     (declare (double-float p))
     (multiple-value-bind (a-hi a-lo)
@@ -227,7 +227,7 @@
   "Compute fl(a*a) and err(a*b).  This is a more efficient
   implementation of two-prod"
   (declare (double-float a)
-	   (optimize (speed 3) (safety 0) (debug 0)))
+	   (optimize (speed 3) (safety #-allegro 0 #+allegro 1) (debug 0)))
   (let ((q (* a a)))
     (declare (double-float q))
     (multiple-value-bind (a-hi a-lo)
--- /project/oct/cvsroot/oct/qd.lisp	2007/11/10 21:29:54	1.62
+++ /project/oct/cvsroot/oct/qd.lisp	2007/11/16 19:44:06	1.63
@@ -227,7 +227,7 @@
 
 (defun renorm-4 (c0 c1 c2 c3)
   (declare (double-float c0 c1 c2 c3)
-	   (optimize (speed 3) (safety 0) (debug 0)))
+	   (optimize (speed 3) (safety #-allegro 0 #+allegro 1) (debug 0)))
   (let ((s0 0d0)
 	(s1 0d0)
 	(s2 0d0)
@@ -252,7 +252,7 @@
   
 (defun renorm-5 (c0 c1 c2 c3 c4)
   (declare (double-float c0 c1 c2 c3 c4)
-	   (optimize (speed 3) (safety 0)))
+	   (optimize (speed 3) (safety #-allegro 0 #+allegro 1)))
   (let ((s0 0d0)
 	(s1 0d0)
 	(s2 0d0)