scalbn
double scalbn(double, int);
#define scalbn(x, y) __tg_simplev(x, scalbn, x, y)
PROTO_NORMAL(scalbn);
if((j>>20)<=0) z = scalbn(z,n); /* subnormal output */
return scalbn(x, fn);
if ( fn > 65000.0) return scalbn(x, 65000);
if (-fn > 65000.0) return scalbn(x,-65000);
return scalbn(x,(int)fn);
z = scalbn(z,q0); /* actual value of z */
if(carry!=0) z -= scalbn(one,q0);
z = scalbn(z,-q0);
fw = scalbn(one,q0);
return scalbn(x, INT_MIN);
return scalbn(x, INT_MAX);
return scalbn(x, (int)n);
DEF_STD(scalbn);
LDBL_MAYBE_CLONE(scalbn);