43 	register unsigned int opnd1p1, opnd1p2, opnd2p1, opnd2p2;  in dbl_fmpy()  local
50 	Dbl_copyfromptr(srcptr2,opnd2p1,opnd2p2);  in dbl_fmpy()
55 	if (Dbl_sign(opnd1p1) ^ Dbl_sign(opnd2p1))   in dbl_fmpy()
63 			if (Dbl_isnotnan(opnd2p1,opnd2p2)) {  in dbl_fmpy()
64 				if (Dbl_iszero_exponentmantissa(opnd2p1,opnd2p2)) {  in dbl_fmpy()
99 			else if (Dbl_is_signalingnan(opnd2p1)) {  in dbl_fmpy()
105                         	Dbl_set_quiet(opnd2p1);  in dbl_fmpy()
106 				Dbl_copytoptr(opnd2p1,opnd2p2,dstptr);  in dbl_fmpy()
119 	if (Dbl_isinfinity_exponent(opnd2p1)) {  in dbl_fmpy()
120 		if (Dbl_iszero_mantissa(opnd2p1,opnd2p2)) {  in dbl_fmpy()
126                                 Dbl_makequietnan(opnd2p1,opnd2p2);  in dbl_fmpy()
127 				Dbl_copytoptr(opnd2p1,opnd2p2,dstptr);  in dbl_fmpy()
140                 if (Dbl_isone_signaling(opnd2p1)) {  in dbl_fmpy()
145                         Dbl_set_quiet(opnd2p1);  in dbl_fmpy()
150 		Dbl_copytoptr(opnd2p1,opnd2p2,dstptr);  in dbl_fmpy()
156 	dest_exponent = Dbl_exponent(opnd1p1) + Dbl_exponent(opnd2p1) -DBL_BIAS;  in dbl_fmpy()
178 	if (Dbl_isnotzero_exponent(opnd2p1)) {  in dbl_fmpy()
179 		Dbl_clear_signexponent_set_hidden(opnd2p1);  in dbl_fmpy()
183 		if (Dbl_iszero_mantissa(opnd2p1,opnd2p2)) {  in dbl_fmpy()
189                 Dbl_clear_signexponent(opnd2p1);  in dbl_fmpy()
190                 Dbl_leftshiftby1(opnd2p1,opnd2p2);  in dbl_fmpy()
191 		Dbl_normalize(opnd2p1,opnd2p2,dest_exponent);  in dbl_fmpy()
197 	Dbl_leftshiftby7(opnd2p1,opnd2p2);  in dbl_fmpy()
208                         Twoword_add(opnd3p1, opnd3p2, opnd2p1<<3 | opnd2p2>>29,   in dbl_fmpy()
212                         Twoword_add(opnd3p1, opnd3p2, opnd2p1<<2 | opnd2p2>>30,   in dbl_fmpy()
216                         Twoword_add(opnd3p1, opnd3p2, opnd2p1<<1 | opnd2p2>>31,  in dbl_fmpy()
220                         Twoword_add(opnd3p1, opnd3p2, opnd2p1, opnd2p2);  in dbl_fmpy()