Lines Matching refs:ux
62 union IEEEl2bits ux; in modfl() local
65 ux.e = x; in modfl()
66 e = ux.bits.exp - LDBL_MAX_EXP + 1; in modfl()
69 *iptr = zero[ux.bits.sign]; in modfl()
72 if ((GETFRAC(ux.bits.manh, HIBITS - 1 - e) | in modfl()
73 ux.bits.manl) == 0) { /* X is an integer. */ in modfl()
75 return (zero[ux.bits.sign]); in modfl()
78 ux.bits.manh >>= HIBITS - 1 - e; in modfl()
79 ux.bits.manh <<= HIBITS - 1 - e; in modfl()
80 ux.bits.manl = 0; in modfl()
81 *iptr = ux.e; in modfl()
82 return (x - ux.e); in modfl()
89 return (zero[ux.bits.sign]); in modfl()
91 if (GETFRAC(ux.bits.manl, LDBL_MANT_DIG - 1 - e) == 0) { in modfl()
94 return (zero[ux.bits.sign]); in modfl()
97 ux.bits.manl >>= LDBL_MANT_DIG - 1 - e; in modfl()
98 ux.bits.manl <<= LDBL_MANT_DIG - 1 - e; in modfl()
99 *iptr = ux.e; in modfl()
100 return (x - ux.e); in modfl()