Changeset 6ab0812b935e4fa1c63ba9f5d58f7e66eb6f375b
 Timestamp:
 02/12/11 22:33:47 (3 years ago)
 Author:
 Raymond Toy <toy.raymond@…>
 Children:
 cc9eb34a6fa1e8971a09dddc91e93848ba360dbf
 Parents:
 738d3980f615a396fa87b62fa6e8edc5a1a59f2f
 gitcommitter:
 Raymond Toy <toy.raymond@…> (02/12/11 22:33:47)
 Message:

The TARGET parameter is not a %QUADDOUBLE if we're not using
arrays to represent a %quaddouble.
 Files:

Legend:
 Unmodified
 Added
 Removed

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