config/s390/fixdfdi.h

57     register union double_long dl1;
61     dl1.d = a1;
64     if (!EXPD (dl1) || SIGND(dl1))
69     exp = EXPD (dl1) - EXPONENT_BIAS - MANTISSA_BITS;
78     if ((EXPD(dl1) == 0x7fff) && !FRACD_ZERO_P (dl1))
88     l = MANTD_LOW_LL (dl1) >> (HIGH_LL_FRAC_BITS + 1)
89         | MANTD_HIGH_LL (dl1) << (64 - (HIGH_LL_FRAC_BITS + 1));
130     register union double_long dl1;
134     dl1.d = a1;
137     if (!EXPD (dl1))
142     exp = EXPD (dl1) - EXPONENT_BIAS - MANTISSA_BITS;
150     if ((EXPD(dl1) == 0x7fff) && !FRACD_ZERO_P (dl1))
158 	return SIGND (dl1) ? l : l - 1;
164     l = MANTD_LOW_LL (dl1) >> (HIGH_LL_FRAC_BITS + 1)
165         | MANTD_HIGH_LL (dl1) << (64 - (HIGH_LL_FRAC_BITS + 1));
167     return SIGND (dl1) ? -(l >> -exp) : l >> -exp;
202     register union double_long dl1;
206     dl1.d = a1;
210     if (!EXPD (dl1) || SIGND(dl1))
213     exp = EXPD (dl1) - EXCESSD - 53;
222     if ((EXPD(dl1) == 0x7ff) && (FRACD_LL(dl1) != 0)) /* NaN */
231     l = MANTD_LL(dl1);
274     register union double_long dl1;
278     dl1.d = a1;
282     if (!EXPD (dl1))
285     exp = EXPD (dl1) - EXCESSD - 53;
294     if ((EXPD(dl1) == 0x7ff) && (FRACD_LL(dl1) != 0)) /* NaN */
301 	if (!SIGND(dl1))
306     l = MANTD_LL(dl1);
314     return (SIGND (dl1) ? -l : l);