parisc/math-emu/fcnvuf.c

53 	register int dst_exponent;
66 	dst_exponent = 16;    /* initialize for normalization */
69 	 * a value in dst_exponent indicating the bit position,
72 	Find_ms_one_bit(src,dst_exponent);
74 	src <<= dst_exponent+1;
76 	Sgl_set_exponent(result, 30+SGL_BIAS - dst_exponent);
111 	register int dst_exponent;
125 	dst_exponent = 16;    /* initialize for normalization */
128 	 * a value in dst_exponent indicating the bit position,
131 	Find_ms_one_bit(src,dst_exponent);
133 	src <<= dst_exponent+1;
136 	Dbl_set_exponent(resultp1, (30+DBL_BIAS) - dst_exponent);
152 	int dst_exponent;
166 	dst_exponent = 16;    /* initialize for normalization */
170 		 * a value in dst_exponent indicating the bit position,
173 		Find_ms_one_bit(srcp2,dst_exponent);
175 		srcp1 = srcp2 << dst_exponent+1;
181 		dst_exponent += 32;
186 		 * a value in dst_exponent indicating the bit position,
190 		Find_ms_one_bit(srcp1,dst_exponent);
192 		if (dst_exponent >= 0) {
193 			Variable_shift_double(srcp1,srcp2,(31-dst_exponent),
195 			srcp2 <<= dst_exponent+1;
199 	Sgl_set_exponent(result, (62+SGL_BIAS) - dst_exponent);
234 	register int dst_exponent;
248 	dst_exponent = 16;    /* initialize for normalization */
252 		 * a value in dst_exponent indicating the bit position,
255 		Find_ms_one_bit(srcp2,dst_exponent);
257 		srcp1 = srcp2 << dst_exponent+1;
263 		dst_exponent += 32;
268 		 * a value in dst_exponent indicating the bit position,
271 		Find_ms_one_bit(srcp1,dst_exponent);
273 		if (dst_exponent >= 0) {
274 			Variable_shift_double(srcp1,srcp2,(31-dst_exponent),
276 			srcp2 <<= dst_exponent+1;
281 	Dbl_set_exponent(resultp1, (62+DBL_BIAS) - dst_exponent);