Changeset 6ab0812b935e4fa1c63ba9f5d58f7e66eb6f375b

Show
Ignore:
Timestamp:
02/12/11 22:33:47 (3 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:
1 modified

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))