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)