1*45760Sbostic /*- 2*45760Sbostic * Copyright (c) 1986 The Regents of the University of California. 3*45760Sbostic * All rights reserved. 4*45760Sbostic * 5*45760Sbostic * This code is derived from software contributed to Berkeley by 6*45760Sbostic * Computer Consoles Inc. 7*45760Sbostic * 8*45760Sbostic * %sccs.include.redist.c% 9*45760Sbostic * 10*45760Sbostic * @(#)Amuld.c 7.1 (Berkeley) 12/06/90 11*45760Sbostic */ 1229620Ssam 1345699Sbostic #include "align.h" muld(infop)1429620Ssammuld(infop) process_info *infop; 1529620Ssam /* 1629620Ssam /* Multiply operand by accumulator to accumulator (double). 1729620Ssam /* 1829620Ssam /*******************************************************************/ 1929620Ssam { 2029620Ssam register double *operand_pnt; 2129620Ssam register double *acc_pnt; 2229620Ssam 2329620Ssam operand_pnt = (double *)&operand(infop,0)->data; 2429620Ssam acc_pnt = (double *) &acc_high; 2529620Ssam *acc_pnt = *acc_pnt * *operand_pnt; 2629620Ssam } 27