Commit 85f3e2b22f917ff35d080180ab1e2dda4476e881

Authored by Raymond Toy
1 parent 68432cb1

Move inline function NEG-QD-T before first use.

Showing 1 changed file with 7 additions and 5 deletions
... ... @@ -476,11 +476,6 @@ If TARGET is given, TARGET is destructively modified to contain the result."
476 476 (%store-qd-d target (+ a0 b0) 0d0 0d0 0d0)
477 477 (%store-qd-d target s0 s1 s2 s3)))))))))))
478 478  
479   -(defun neg-qd (a &optional (target #+oct-array (%make-qd-d 0d0 0d0 0d0 0d0)))
480   - "Return the negative of the %QUAD-DOUBLE number A.
481   -If TARGET is given, TARGET is destructively modified to contain the result."
482   - (neg-qd-t a target))
483   -
484 479 (defun neg-qd-t (a target)
485 480 (declare (type %quad-double a #+oct-array target)
486 481 #+(and cmu (not oct-array)) (ignore target))
... ... @@ -489,6 +484,13 @@ If TARGET is given, TARGET is destructively modified to contain the result."
489 484 (declare (double-float a0 a1 a2 a3))
490 485 (%store-qd-d target (cl:- a0) (cl:- a1) (cl:- a2) (cl:- a3))))
491 486  
  487 +(defun neg-qd (a &optional (target #+oct-array (%make-qd-d 0d0 0d0 0d0 0d0)))
  488 + "Return the negative of the %QUAD-DOUBLE number A.
  489 +If TARGET is given, TARGET is destructively modified to contain the result."
  490 + (neg-qd-t a target))
  491 +
  492 +
  493 +
492 494 (defun sub-qd (a b &optional (target #+oct-array (%make-qd-d 0d0 0d0 0d0 0d0)))
493 495 "Return the difference between the %QUAD-DOUBLE numbers A and B.
494 496 If TARGET is given, TARGET is destructively modified to contain the result."
... ...