Commit 6ab0812b935e4fa1c63ba9f5d58f7e66eb6f375b

Authored by Raymond Toy
1 parent 738d3980

The TARGET parameter is not a %QUAD-DOUBLE if we're not using

arrays to represent a %quad-double.
Showing 1 changed file with 7 additions and 7 deletions
... ... @@ -315,7 +315,7 @@ If TARGET is given, TARGET is destructively modified to contain the result."
315 315  
316 316 (defun add-qd-d-t (a b target)
317 317 "Add a quad-double A and a double-float B"
318   - (declare (type %quad-double a target)
  318 + (declare (type %quad-double a #+oct-array target)
319 319 (double-float b)
320 320 (optimize (speed 3)
321 321 (space 0))
... ... @@ -416,7 +416,7 @@ If TARGET is given, TARGET is destructively modified to contain the result."
416 416  
417 417  
418 418 (defun add-qd-t (a b target)
419   - (declare (type %quad-double a b target)
  419 + (declare (type %quad-double a b #+oct-array target)
420 420 (optimize (speed 3)
421 421 (space 0))
422 422 #+(and cmu (not oct-array))
... ... @@ -482,7 +482,7 @@ If TARGET is given, TARGET is destructively modified to contain the result."
482 482 (neg-qd-t a target))
483 483  
484 484 (defun neg-qd-t (a target)
485   - (declare (type %quad-double a target)
  485 + (declare (type %quad-double a #+oct-array target)
486 486 #+(and cmu (not oct-array)) (ignore target))
487 487 (with-qd-parts (a0 a1 a2 a3)
488 488 a
... ... @@ -542,7 +542,7 @@ If TARGET is given, TARGET is destructively modified to contain the result."
542 542  
543 543 (defun mul-qd-d-t (a b target)
544 544 "Multiply quad-double A with B"
545   - (declare (type %quad-double a target)
  545 + (declare (type %quad-double a #+oct-array target)
546 546 (double-float b)
547 547 (optimize (speed 3)
548 548 (space 0))
... ... @@ -670,7 +670,7 @@ If TARGET is given, TARGET is destructively modified to contain the result."
670 670 (mul-qd-t a b target))
671 671  
672 672 (defun mul-qd-t (a b target)
673   - (declare (type %quad-double a b target)
  673 + (declare (type %quad-double a b #+oct-array target)
674 674 (optimize (speed 3)
675 675 (space 0))
676 676 (inline float-infinity-p)
... ... @@ -843,7 +843,7 @@ it is destructively modified with the result."
843 843  
844 844 (defun sqr-qd-t (a target)
845 845 "Square A"
846   - (declare (type %quad-double a target)
  846 + (declare (type %quad-double a #+oct-array target)
847 847 (optimize (speed 3)
848 848 (space 0))
849 849 #+(and cmu (not oct-array))
... ... @@ -920,7 +920,7 @@ If TARGET is given, it destrutively modified with the result."
920 920 (%store-qd-d target q0 q1 q2 q3)))))))
921 921  
922 922 (defun div-qd-t (a b target)
923   - (declare (type %quad-double a b target)
  923 + (declare (type %quad-double a b #+oct-array target)
924 924 (optimize (speed 3)
925 925 (space 0))
926 926 (inline float-infinity-p)
... ...