1*45699Sbostic /* Amuld.c 1.2 90/12/04 */ 229620Ssam 329620Ssam 4*45699Sbostic #include "align.h" 529620Ssam muld(infop) process_info *infop; 629620Ssam /* 729620Ssam /* Multiply operand by accumulator to accumulator (double). 829620Ssam /* 929620Ssam /*******************************************************************/ 1029620Ssam { 1129620Ssam register double *operand_pnt; 1229620Ssam register double *acc_pnt; 1329620Ssam 1429620Ssam operand_pnt = (double *)&operand(infop,0)->data; 1529620Ssam acc_pnt = (double *) &acc_high; 1629620Ssam *acc_pnt = *acc_pnt * *operand_pnt; 1729620Ssam } 18