Changeset 6ab0812b935e4fa1c63ba9f5d58f7e66eb6f375b

Timestamp:

02/12/11 22:33:47 (2 years ago)

Author:

Raymond Toy <toy.raymond@…>

Children:

cc9eb34a6fa1e8971a09dddc91e93848ba360dbf

Parents:

738d3980f615a396fa87b62fa6e8edc5a1a59f2f

git-committer:

Raymond Toy <toy.raymond@…> (02/12/11 22:33:47)

Message:

The TARGET parameter is not a %QUAD-DOUBLE if we're not using
arrays to represent a %quad-double.

Files:

• qd.lisp (modified) (7 diffs)

qd.lisp

@@ -316 +316 @@
 (defun add-qd-d-t (a b target)
   "Add a quad-double A and a double-float B"
-  (declare (type %quad-double a target)
+  (declare (type %quad-double a #+oct-array target)
            (double-float b)
            (optimize (speed 3)
@@ -417 +417 @@
 
 (defun add-qd-t (a b target)
-  (declare (type %quad-double a b target)
+  (declare (type %quad-double a b #+oct-array target)
            (optimize (speed 3)
                      (space 0))
@@ -483 +483 @@
 
 (defun neg-qd-t (a target)
-  (declare (type %quad-double a target)
+  (declare (type %quad-double a #+oct-array target)
            #+(and cmu (not oct-array)) (ignore target))
   (with-qd-parts (a0 a1 a2 a3)
@@ -543 +543 @@
 (defun mul-qd-d-t (a b target)
   "Multiply quad-double A with B"
-  (declare (type %quad-double a target)
+  (declare (type %quad-double a #+oct-array target)
            (double-float b)
            (optimize (speed 3)
@@ -671 +671 @@
 
 (defun mul-qd-t (a b target)
-  (declare (type %quad-double a b target)
+  (declare (type %quad-double a b #+oct-array target)
            (optimize (speed 3)
                      (space 0))
@@ -844 +844 @@
 (defun sqr-qd-t (a target)
   "Square A"
-  (declare (type %quad-double a target)
+  (declare (type %quad-double a #+oct-array target)
            (optimize (speed 3)
                      (space 0))
@@ -921 +921 @@
 
 (defun div-qd-t (a b target)
-  (declare (type %quad-double a b target)
+  (declare (type %quad-double a b #+oct-array target)
            (optimize (speed 3)
                      (space 0))