version 1.241, 2009/04/20 19:14:46
|
version 1.242, 2009/05/12 16:54:58
|
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); /* not all ecvt()s do this as desired */ |
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); |