xref: /csrg-svn/sys/tahoe/align/Aaddd.c (revision 45699)
1*45699Sbostic /*	Aaddd.c	1.2	90/12/04	*/
229585Ssam 
3*45699Sbostic #include "align.h"
429585Ssam 
529585Ssam addd(infop)	process_info *infop;
629585Ssam /*
729585Ssam /*	Add operand with accumulator to accumulator (double).
829585Ssam /*
929585Ssam /*************************************************************/
1029585Ssam {
1129585Ssam 	register double 	*operand_pnt;
1229585Ssam 	register double		*acc_pnt;
1329585Ssam 
1429585Ssam 	operand_pnt = (double *)&operand(infop,0)->data;
1529585Ssam 	acc_pnt = (double *) &acc_high;
1629585Ssam 	*acc_pnt = *acc_pnt + *operand_pnt;
1729585Ssam }
1829585Ssam 
19