56 	register unsigned int opnd1, opnd2, opnd3, result;  in sgl_fmpy()  local
208 	Sgl_setzero(opnd3);  in sgl_fmpy()
214 		stickybit |= Slow4(opnd3);  in sgl_fmpy()
215 		Sgl_rightshiftby4(opnd3);  in sgl_fmpy()
216 		if (Sbit28(opnd1)) Sall(opnd3) += (Sall(opnd2) << 3);  in sgl_fmpy()
217 		if (Sbit29(opnd1)) Sall(opnd3) += (Sall(opnd2) << 2);  in sgl_fmpy()
218 		if (Sbit30(opnd1)) Sall(opnd3) += (Sall(opnd2) << 1);  in sgl_fmpy()
219 		if (Sbit31(opnd1)) Sall(opnd3) += Sall(opnd2);  in sgl_fmpy()
223 	if (Sgl_iszero_sign(opnd3)) {  in sgl_fmpy()
224 		Sgl_leftshiftby1(opnd3);  in sgl_fmpy()
231 	while (Sgl_iszero_sign(opnd3)) {  in sgl_fmpy()
232 		Sgl_leftshiftby1(opnd3);  in sgl_fmpy()
238 	stickybit |= Sgl_all(opnd3) << (SGL_BITLENGTH - SGL_EXP_LENGTH + 1);  in sgl_fmpy()
239 	guardbit = Sbit24(opnd3);  in sgl_fmpy()
243 	Sgl_rightshiftby8(opnd3);  in sgl_fmpy()
249 		Sgl_clear_signexponent(opnd3);  in sgl_fmpy()
253 					Sgl_increment(opnd3);  in sgl_fmpy()
257 					Sgl_increment(opnd3);  in sgl_fmpy()
261 			   	if (stickybit || Sgl_isone_lowmantissa(opnd3))  in sgl_fmpy()
262 			      	Sgl_increment(opnd3);  in sgl_fmpy()
265 		if (Sgl_isone_hidden(opnd3)) dest_exponent++;  in sgl_fmpy()
267 	Sgl_set_mantissa(result,opnd3);  in sgl_fmpy()
315 					Sgl_increment(opnd3);  in sgl_fmpy()
316 					if (Sgl_isone_hiddenoverflow(opnd3))  in sgl_fmpy()
318 					Sgl_decrement(opnd3);  in sgl_fmpy()
323 					Sgl_increment(opnd3);  in sgl_fmpy()
324 					if (Sgl_isone_hiddenoverflow(opnd3))  in sgl_fmpy()
326 					Sgl_decrement(opnd3);  in sgl_fmpy()
331 				    Sgl_isone_lowmantissa(opnd3))) {  in sgl_fmpy()
332 				      	Sgl_increment(opnd3);  in sgl_fmpy()
333 					if (Sgl_isone_hiddenoverflow(opnd3))  in sgl_fmpy()
335 					Sgl_decrement(opnd3);  in sgl_fmpy()
345 		Sgl_denormalize(opnd3,dest_exponent,guardbit,stickybit,inexact);  in sgl_fmpy()
352 					Sgl_increment(opnd3);  in sgl_fmpy()
357 					Sgl_increment(opnd3);  in sgl_fmpy()
362 				    Sgl_isone_lowmantissa(opnd3))) {  in sgl_fmpy()
363 			      		Sgl_increment(opnd3);  in sgl_fmpy()
369 		Sgl_set_exponentmantissa(result,opnd3);  in sgl_fmpy()