Changeset 6ab081


Ignore:
Timestamp:
02/13/11 06:33:47 (4 years ago)
Author:
Raymond Toy <toy.raymond@…>
Branches:
master, cvs-ids
Children:
cc9eb3
Parents:
738d39
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • qd.lisp

    r8ca031 r6ab081  
    316316(defun add-qd-d-t (a b target)
    317317  "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)
    319319           (double-float b)
    320320           (optimize (speed 3)
     
    417417
    418418(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)
    420420           (optimize (speed 3)
    421421                     (space 0))
     
    483483
    484484(defun neg-qd-t (a target)
    485   (declare (type %quad-double a target)
     485  (declare (type %quad-double a #+oct-array target)
    486486           #+(and cmu (not oct-array)) (ignore target))
    487487  (with-qd-parts (a0 a1 a2 a3)
     
    543543(defun mul-qd-d-t (a b target)
    544544  "Multiply quad-double A with B"
    545   (declare (type %quad-double a target)
     545  (declare (type %quad-double a #+oct-array target)
    546546           (double-float b)
    547547           (optimize (speed 3)
     
    671671
    672672(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)
    674674           (optimize (speed 3)
    675675                     (space 0))
     
    844844(defun sqr-qd-t (a target)
    845845  "Square A"
    846   (declare (type %quad-double a target)
     846  (declare (type %quad-double a #+oct-array target)
    847847           (optimize (speed 3)
    848848                     (space 0))
     
    921921
    922922(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)
    924924           (optimize (speed 3)
    925925                     (space 0))
Note: See TracChangeset for help on using the changeset viewer.