1*29585Ssam /* Aaddd.c 1.1 86/07/20 */ 2*29585Ssam 3*29585Ssam #include "../tahoealign/align.h" 4*29585Ssam 5*29585Ssam addd(infop) process_info *infop; 6*29585Ssam /* 7*29585Ssam /* Add operand with accumulator to accumulator (double). 8*29585Ssam /* 9*29585Ssam /*************************************************************/ 10*29585Ssam { 11*29585Ssam register double *operand_pnt; 12*29585Ssam register double *acc_pnt; 13*29585Ssam 14*29585Ssam operand_pnt = (double *)&operand(infop,0)->data; 15*29585Ssam acc_pnt = (double *) &acc_high; 16*29585Ssam *acc_pnt = *acc_pnt + *operand_pnt; 17*29585Ssam } 18*29585Ssam 19