42 	union IEEEl2bits u;  in inc()  local
44 	u.e = x;  in inc()
45 	if (++u.bits.manl == 0) {  in inc()
46 		if (++u.bits.manh == 0) {  in inc()
47 			u.bits.exp++;  in inc()
48 			u.bits.manh |= LDBL_NBIT;  in inc()
51 	return (u.e);  in inc()
58 	union IEEEl2bits u;  in dec()  local
60 	u.e = x;  in dec()
61 	if (u.bits.manl-- == 0) {  in dec()
62 		if (u.bits.manh-- == LDBL_NBIT) {  in dec()
63 			u.bits.exp--;  in dec()
64 			u.bits.manh |= LDBL_NBIT;  in dec()
67 	return (u.e);  in dec()
80 	union IEEEl2bits u;  in sqrtl()  local
85 	u.e = x;  in sqrtl()
90 	if (u.bits.exp == LDBL_MAX_EXP * 2 - 1)  in sqrtl()
94 	if ((u.bits.manh | u.bits.manl | u.bits.exp) == 0)  in sqrtl()
98 	if (u.bits.sign)  in sqrtl()
103 	if (u.bits.exp == 0) {  in sqrtl()
105 		u.e *= 0x1.0p514;  in sqrtl()
114 	if ((u.bits.exp - 0x3ffe) & 1) {	/* n is odd.     */  in sqrtl()
115 		k += u.bits.exp - 0x3fff;	/* 2k = n - 1.   */  in sqrtl()
116 		u.bits.exp = 0x3fff;		/* u.e in [1,2). */  in sqrtl()
118 		k += u.bits.exp - 0x4000;	/* 2k = n - 2.   */  in sqrtl()
119 		u.bits.exp = 0x4000;		/* u.e in [2,4). */  in sqrtl()
126 	xn = sqrt(u.e);			/* 53-bit estimate of sqrtl(x). */  in sqrtl()
128 	xn = (xn + (u.e / xn)) * 0.5;	/* 106-bit estimate. */  in sqrtl()
130 	lo = u.e;  in sqrtl()
131 	u.bits.manl = 0;		/* Zero out lower bits. */  in sqrtl()
132 	lo = (lo - u.e) / xn;		/* Low bits divided by xn. */  in sqrtl()
133 	xn = xn + (u.e / xn);		/* High portion of estimate. */  in sqrtl()
134 	u.e = xn + lo;			/* Combine everything. */  in sqrtl()
135 	u.bits.exp += (k >> 1) - 1;  in sqrtl()
140 	xn = x / u.e;			/* Chopped quotient (inexact?). */  in sqrtl()
143 		if (xn == u.e) {  in sqrtl()
145 			return (u.e);  in sqrtl()
154 		u.e = inc(u.e);		/* u.e = u.e + ulp. */  in sqrtl()
157 	u.e = u.e + xn;				/* Chopped sum. */  in sqrtl()
159 	u.bits.exp--;  in sqrtl()
160 	return (u.e);  in sqrtl()