37 scalbn (double x, int n)  in scalbn()  argument
40 	EXTRACT_WORDS(hx,lx,x);  in scalbn()
43             if ((lx|(hx&0x7fffffff))==0) return x; /* +-0 */  in scalbn()
44 	    x *= two54;  in scalbn()
45 	    GET_HIGH_WORD(hx,x);  in scalbn()
47             if (n< -50000) return tiny*x; 	/*underflow*/  in scalbn()
49         if (k==0x7ff) return x+x;		/* NaN or Inf */  in scalbn()
51         if (k >  0x7fe) return huge*copysign(huge,x); /* overflow  */  in scalbn()
53 	    {SET_HIGH_WORD(x,(hx&0x800fffff)|(k<<20)); return x;}  in scalbn()
56 		return huge*copysign(huge,x);	/*overflow*/  in scalbn()
57 	    else return tiny*copysign(tiny,x); 	/*underflow*/  in scalbn()
59 	SET_HIGH_WORD(x,(hx&0x800fffff)|(k<<20));  in scalbn()
60         return x*twom54;  in scalbn()
65 ldexp (double x, int n)  in ldexp()  argument
67     return scalbn(x,n);  in ldexp()
71 long double ldexpl (long double x, int n) {  in ldexpl()  argument
72     return scalbn((double)x,n);  in ldexpl()
74 long double scalbnl (long double x, int n) {  in scalbnl()  argument
75     return scalbn((double)x,n);  in scalbnl()