Return to prim CVS log | Up to [gforth] / gforth |
version 1.239, 2009/01/29 19:51:28 | version 1.241, 2009/04/20 19:14:46 |
---|---|
Line 2150 int flag; | Line 2150 int flag; |
int decpt; | int decpt; |
sig=ecvt(r, u, &decpt, &flag); | sig=ecvt(r, u, &decpt, &flag); |
n=(r==0. ? 1 : decpt); | n=(r==0. ? 1 : decpt); |
// workaround Mac OS X bug in ecvt | |
flag=signbit(r); | |
f1=FLAG(flag!=0); | f1=FLAG(flag!=0); |
f2=FLAG(isdigit((unsigned)(sig[0]))!=0); | f2=FLAG(isdigit((unsigned)(sig[0]))!=0); |
siglen=strlen((char *)sig); | siglen=strlen((char *)sig); |