37 	int32_t k,hx,lx;  in scalbn()  local
39         k = (hx&0x7ff00000)>>20;		/* extract exponent */  in scalbn()
40         if (k==0) {				/* 0 or subnormal x */  in scalbn()
44 	    k = ((hx&0x7ff00000)>>20) - 54;  in scalbn()
47         if (k==0x7ff) return x+x;		/* NaN or Inf */  in scalbn()
48         k = k+n;  in scalbn()
49         if (k >  0x7fe) return huge*copysign(huge,x); /* overflow  */  in scalbn()
50         if (k > 0) 				/* normal result */  in scalbn()
51 	    {SET_HIGH_WORD(x,(hx&0x800fffff)|(k<<20)); return x;}  in scalbn()
52         if (k <= -54) {  in scalbn()
58         k += 54;				/* subnormal result */  in scalbn()
59 	SET_HIGH_WORD(x,(hx&0x800fffff)|(k<<20));  in scalbn()