56 	register unsigned int opnd1p1, opnd1p2, opnd2p1, opnd2p2;  in dbl_fmpy()  local
63 	Dbl_copyfromptr(srcptr2,opnd2p1,opnd2p2);  in dbl_fmpy()
68 	if (Dbl_sign(opnd1p1) ^ Dbl_sign(opnd2p1))   in dbl_fmpy()
76 			if (Dbl_isnotnan(opnd2p1,opnd2p2)) {  in dbl_fmpy()
77 				if (Dbl_iszero_exponentmantissa(opnd2p1,opnd2p2)) {  in dbl_fmpy()
112 			else if (Dbl_is_signalingnan(opnd2p1)) {  in dbl_fmpy()
118                         	Dbl_set_quiet(opnd2p1);  in dbl_fmpy()
119 				Dbl_copytoptr(opnd2p1,opnd2p2,dstptr);  in dbl_fmpy()
132 	if (Dbl_isinfinity_exponent(opnd2p1)) {  in dbl_fmpy()
133 		if (Dbl_iszero_mantissa(opnd2p1,opnd2p2)) {  in dbl_fmpy()
139                                 Dbl_makequietnan(opnd2p1,opnd2p2);  in dbl_fmpy()
140 				Dbl_copytoptr(opnd2p1,opnd2p2,dstptr);  in dbl_fmpy()
153                 if (Dbl_isone_signaling(opnd2p1)) {  in dbl_fmpy()
158                         Dbl_set_quiet(opnd2p1);  in dbl_fmpy()
163 		Dbl_copytoptr(opnd2p1,opnd2p2,dstptr);  in dbl_fmpy()
169 	dest_exponent = Dbl_exponent(opnd1p1) + Dbl_exponent(opnd2p1) -DBL_BIAS;  in dbl_fmpy()
191 	if (Dbl_isnotzero_exponent(opnd2p1)) {  in dbl_fmpy()
192 		Dbl_clear_signexponent_set_hidden(opnd2p1);  in dbl_fmpy()
196 		if (Dbl_iszero_mantissa(opnd2p1,opnd2p2)) {  in dbl_fmpy()
202                 Dbl_clear_signexponent(opnd2p1);  in dbl_fmpy()
203                 Dbl_leftshiftby1(opnd2p1,opnd2p2);  in dbl_fmpy()
204 		Dbl_normalize(opnd2p1,opnd2p2,dest_exponent);  in dbl_fmpy()
210 	Dbl_leftshiftby7(opnd2p1,opnd2p2);  in dbl_fmpy()
221                         Twoword_add(opnd3p1, opnd3p2, opnd2p1<<3 | opnd2p2>>29,   in dbl_fmpy()
225                         Twoword_add(opnd3p1, opnd3p2, opnd2p1<<2 | opnd2p2>>30,   in dbl_fmpy()
229                         Twoword_add(opnd3p1, opnd3p2, opnd2p1<<1 | opnd2p2>>31,  in dbl_fmpy()
233                         Twoword_add(opnd3p1, opnd3p2, opnd2p1, opnd2p2);  in dbl_fmpy()