29 #define	INC_MANH(u, c)	do {					\  argument
30 	uint64_t o = u.bits.manh;				\
31 	u.bits.manh += (c);					\
32 	if (u.bits.manh < o)					\
33 		u.bits.exp++;					\
37 #define	INC_MANH(u, c)	do {					\  argument
38 	uint64_t o = u.bits.manh;				\
39 	u.bits.manh += (c);					\
40 	if (u.bits.manh < o) {					\
41 		u.bits.exp++;					\
42 		u.bits.manh |= 1llu << (LDBL_MANH_SIZE - 1);	\
52 	union IEEEl2bits u = { .e = x };  in floorl()  local
53 	int e = u.bits.exp - LDBL_MAX_EXP + 1;  in floorl()
58 				if (u.bits.exp > 0 ||  in floorl()
59 				    (u.bits.manh | u.bits.manl) != 0)  in floorl()
60 					u.e = u.bits.sign ? -1.0 : 0.0;  in floorl()
63 			if (((u.bits.manh & m) | u.bits.manl) == 0)  in floorl()
65 			if (u.bits.sign) {  in floorl()
68 					u.bits.exp++;  in floorl()
71 				INC_MANH(u, 1llu << (MANH_SIZE - e - 1));  in floorl()
74 				u.bits.manh &= ~m;  in floorl()
75 				u.bits.manl = 0;  in floorl()
80 		if ((u.bits.manl & m) == 0)  in floorl()
82 		if (u.bits.sign) {  in floorl()
84 				INC_MANH(u, 1);  in floorl()
86 				uint64_t o = u.bits.manl;  in floorl()
87 				u.bits.manl += 1llu << (LDBL_MANT_DIG - e - 1);  in floorl()
88 				if (u.bits.manl < o)	/* got a carry */  in floorl()
89 					INC_MANH(u, 1);  in floorl()
93 			u.bits.manl &= ~m;  in floorl()
95 	return (u.e);  in floorl()