extu_fracl
ux.extu_fracl = (x >> (64 - EXT_FRACLBITS));
extu.extu_fracl =(unsigned int)(x >> (64 - EXT_FRACLBITS));
|| u.extu_fracl != 0
i0 = (u.extu_fracl & 0xffffffff) + TBLSIZE / 2;
v.extu_fracl = 0;
i0 = u.extu_fracl + TBLSIZE / 2;
if(expt==BIAS && ((u.extu_frach&~LDBL_NBIT)|u.extu_fracl)==0) {
u.extu_fracl = 0;
if(expt==BIAS && ((u.extu_frach&~LDBL_NBIT)|u.extu_fracl)==0)
u.extu_fracl = 0;
if(exptx==0 && ((ux.extu_frach&~LDBL_NBIT)|ux.extu_fracl)==0)
((ux.extu_frach&~LDBL_NBIT)|ux.extu_fracl)!=0) || /* x is NaN */
((uy.extu_frach&~LDBL_NBIT)|uy.extu_fracl)!=0)) /* y is NaN */
if (expsignx==BIAS && ((ux.extu_frach&~LDBL_NBIT)|ux.extu_fracl)==0)
if(expty==0 && ((uy.extu_frach&~LDBL_NBIT)|uy.extu_fracl)==0) {
lx = ux.extu_fracl;
ly = uy.extu_fracl;
ux.extu_fracl = lx;
if((uy.extu_exp|uy.extu_frach|uy.extu_fracl)==0 || /* y=0 */
((uy.extu_frach&~LDBL_NBIT)|uy.extu_fracl)!=0)) /* or y is NaN */
ux.extu_fracl<uy.extu_fracl))) {
if(ux.extu_frach==uy.extu_frach && ux.extu_fracl==uy.extu_fracl) {
uv.extu_ld = t1; uv.extu_fracl = 0; t1 = uv.extu_ld;
uv.extu_ld = y1; uv.extu_fracl = 0; y1 = uv.extu_ld;
uv.extu_ld = t1; uv.extu_fracl = 0; t1 = uv.extu_ld;
l = uv.extu_fracl; \
if ((ux.extu_frach | ux.extu_fracl | ux.extu_exp) == 0)
ux.extu_fracl = 0; /* Zero out lower bits. */
if (++ux.extu_fracl == 0) {
if (ux.extu_fracl-- == 0) {
(((uint64_t)(u)->extu_frach << EXT_FRACLBITS) | (u)->extu_fracl)
((u)->extu_fracl = (v) & ((1ULL << EXT_FRACLBITS) - 1), \
(ix2) = ew_u.extu_fracl; \
iw_u.extu_fracl = (ix2); \
.extu_fracl = (uint32_t)(__CONCAT(m, ULL)), \
u.extu_fracl = 0; \
u.extu_fracl &= ~m; \
((u.extu_frach&~LDBL_NBIT)|u.extu_fracl)!=0)
if ((u.extu_frach | u.extu_fracl) == 0)
uint64_t o = ux.extu_fracl;
ux.extu_fracl += 1llu << (LDBL_MANT_DIG - e - 1);
if (ux.extu_fracl < o) /* got a carry */
ux.extu_fracl &= ~m;
(ux.extu_frach | ux.extu_fracl) != 0)
if (((ux.extu_frach & m) | ux.extu_fracl) == 0)
ux.extu_fracl = 0;
if ((ux.extu_fracl & m) == 0)
uint64_t o = ux.extu_fracl;
ux.extu_fracl += 1llu << (LDBL_MANT_DIG - e - 1);
if (ux.extu_fracl < o) /* got a carry */
ux.extu_fracl &= ~m;
(ux.extu_frach | ux.extu_fracl) != 0)
if (((ux.extu_frach & m) | ux.extu_fracl) == 0)
ux.extu_fracl = 0;
if ((ux.extu_fracl & m) == 0)
ux.extu_fracl >>= LDBL_MANT_DIG - 1 - e;
ux.extu_fracl <<= LDBL_MANT_DIG - 1 - e;
ux.extu_fracl) == 0) { /* X is an integer. */
ux.extu_fracl = 0;
if (GETFRAC(ux.extu_fracl, LDBL_MANT_DIG - 1 - e) == 0) {
((ux.extu_frach &~ LDBL_NBIT)|ux.extu_fracl) != 0) ||
((uy.extu_frach &~ LDBL_NBIT)|uy.extu_fracl) != 0))
ux.extu_fracl = 1;
if (ux.extu_fracl == 0) {
ux.extu_fracl -= 1;
ux.extu_fracl += 1;
if (ux.extu_fracl == 0) {
((uy.extu_frach & ~LDBL_NBIT) | uy.extu_fracl) != 0))
ux.extu_fracl<uy.extu_fracl))) {
if(ux.extu_frach==uy.extu_frach && ux.extu_fracl==uy.extu_fracl) {
lx = ux.extu_fracl;
ly = uy.extu_fracl;
ux.extu_fracl = lx;
if((uy.extu_exp|uy.extu_frach|uy.extu_fracl)==0 || /* y=0 */
((uy.extu_frach&~LDBL_NBIT)|uy.extu_fracl)!=0)) /* or y is NaN */
if (((ux.extu_frach & m) | ux.extu_fracl) == 0)
ux.extu_fracl = 0;
if ((ux.extu_fracl & m) == 0)
ux.extu_fracl &= ~m;
#define EXTU_ZEROFRAC_P(u) (((u).extu_frach|(u).extu_fracl) != 0)
u.extu_fracl |= 1; /* significand all zero would be inf */