32 	union IEEEl2bits u;  in scalbnl()  local
34 	u.e = x;  in scalbnl()
35         k = u.bits.exp;				/* extract exponent */  in scalbnl()
37             if ((u.bits.manh|u.bits.manl)==0) return x;	/* +-0 */  in scalbnl()
38 	    u.e *= 0x1p+128L;  in scalbnl()
39 	    k = u.bits.exp - 128;  in scalbnl()
40             if (n< -50000) return __math_uflowl(u.bits.sign);  in scalbnl()
45             return __math_oflowl(u.bits.sign);	/*overflow*/  in scalbnl()
48         if (k >= 0x7fff) return __math_oflowl(u.bits.sign); /* overflow  */  in scalbnl()
50 	    {u.bits.exp = k; return u.e;}  in scalbnl()
52 	    return __math_uflowl(u.bits.sign); 	/*underflow*/  in scalbnl()
54 	u.bits.exp = k;  in scalbnl()
55         return check_uflowl(u.e*0x1p-128L);  in scalbnl()
63 	union IEEEl2bits u;  in scalbnl()  local
66         u.e = x;  in scalbnl()
67         dh = scalbn(u.dbits.dh, n);  in scalbnl()
68         dl = scalbn(u.dbits.dl, n);  in scalbnl()