46 	int k;  in scalbnl()  local
48         k = u.bits.exp;				/* extract exponent */  in scalbnl()
49         if (k==0) {				/* 0 or subnormal x */  in scalbnl()
52 	    k = u.bits.exp - 128;  in scalbnl()
55         if (k==0x7fff) return x+x;		/* NaN or Inf */  in scalbnl()
56         k = k+n;  in scalbnl()
57         if (k >= 0x7fff) return huge*copysignl(huge,x); /* overflow  */  in scalbnl()
58         if (k > 0) 				/* normal result */  in scalbnl()
59 	    {u.bits.exp = k; return u.e;}  in scalbnl()
60         if (k <= -128) {  in scalbnl()
66         k += 128;				/* subnormal result */  in scalbnl()
67 	u.bits.exp = k;  in scalbnl()