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 * @(#)Aaddd.c 7.1 (Berkeley) 12/06/90 11*45760Sbostic */ 1229585Ssam 1345699Sbostic #include "align.h" 1429585Ssam addd(infop)1529585Ssamaddd(infop) process_info *infop; 1629585Ssam /* 1729585Ssam /* Add operand with accumulator to accumulator (double). 1829585Ssam /* 1929585Ssam /*************************************************************/ 2029585Ssam { 2129585Ssam register double *operand_pnt; 2229585Ssam register double *acc_pnt; 2329585Ssam 2429585Ssam operand_pnt = (double *)&operand(infop,0)->data; 2529585Ssam acc_pnt = (double *) &acc_high; 2629585Ssam *acc_pnt = *acc_pnt + *operand_pnt; 2729585Ssam } 2829585Ssam 29