Changeset 6ab081
 Timestamp:
 02/13/11 06:33:47 (4 years ago)
 Branches:
 master, cvsids
 Children:
 cc9eb3
 Parents:
 738d39
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

qd.lisp
r8ca031 r6ab081 316 316 (defun addqddt (a b target) 317 317 "Add a quaddouble A and a doublefloat B" 318 (declare (type %quaddouble a target)318 (declare (type %quaddouble a #+octarray target) 319 319 (doublefloat b) 320 320 (optimize (speed 3) … … 417 417 418 418 (defun addqdt (a b target) 419 (declare (type %quaddouble a b target)419 (declare (type %quaddouble a b #+octarray target) 420 420 (optimize (speed 3) 421 421 (space 0)) … … 483 483 484 484 (defun negqdt (a target) 485 (declare (type %quaddouble a target)485 (declare (type %quaddouble a #+octarray target) 486 486 #+(and cmu (not octarray)) (ignore target)) 487 487 (withqdparts (a0 a1 a2 a3) … … 543 543 (defun mulqddt (a b target) 544 544 "Multiply quaddouble A with B" 545 (declare (type %quaddouble a target)545 (declare (type %quaddouble a #+octarray target) 546 546 (doublefloat b) 547 547 (optimize (speed 3) … … 671 671 672 672 (defun mulqdt (a b target) 673 (declare (type %quaddouble a b target)673 (declare (type %quaddouble a b #+octarray target) 674 674 (optimize (speed 3) 675 675 (space 0)) … … 844 844 (defun sqrqdt (a target) 845 845 "Square A" 846 (declare (type %quaddouble a target)846 (declare (type %quaddouble a #+octarray target) 847 847 (optimize (speed 3) 848 848 (space 0)) … … 921 921 922 922 (defun divqdt (a b target) 923 (declare (type %quaddouble a b target)923 (declare (type %quaddouble a b #+octarray target) 924 924 (optimize (speed 3) 925 925 (space 0))
Note: See TracChangeset
for help on using the changeset viewer.