xref: /csrg-svn/sys/tahoe/align/Adivf.c (revision 29604)
1*29604Ssam /*	Adivf.c	1.1	86/07/20	*/
2*29604Ssam 
3*29604Ssam #include "../tahoealign/align.h"
4*29604Ssam divf(infop)	process_info *infop;
5*29604Ssam /*
6*29604Ssam /*	Divide accumulator by operand to accumulator (float).
7*29604Ssam /*
8*29604Ssam /*******************************************************************/
9*29604Ssam {
10*29604Ssam 	register float	*operand_pnt;
11*29604Ssam 	register float	*acc_pnt;
12*29604Ssam 
13*29604Ssam 	operand_pnt = (float *)&operand(infop,0)->data;
14*29604Ssam 	acc_pnt = (float *) &acc_high;
15*29604Ssam 	*acc_pnt = *acc_pnt / *operand_pnt;
16*29604Ssam }
17