27 two54 = 1.80143985094819840000e+16,
28 twom54 = 5.55111512312578270212e-17,
37 k = (hx&0x7ff00000)>>20;
39 if ((lx|(hx&0x7fffffff))==0)
return x;
42 k = ((hx&0x7ff00000)>>20) - 54;
43 if (n< -50000)
return tiny*x;
45 if (k==0x7ff)
return x+x;
47 if (k > 0x7fe)
return huge*
copysign(huge,x);
59 #if LDBL_MANT_DIG == 53 61 __weak_alias(scalbnl,
scalbn);
#define GET_HIGH_WORD(i, d)
#define SET_HIGH_WORD(d, v)
#define EXTRACT_WORDS(ix0, ix1, d)
double scalbn(double x, int n)