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