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