[gforth] / gforth / prim  

gforth: gforth/prim

Diff for /gforth/prim between version 1.240 and 1.241

version 1.240, Mon Apr 20 19:11:11 2009 UTC version 1.241, Mon Apr 20 19:14:46 2009 UTC
Line 2150 
Line 2150 
 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);
 #ifdef DARWIN  
 // workaround Mac OS X bug in ecvt  // workaround Mac OS X bug in ecvt
 flag=signbit(r);  flag=signbit(r);
 #endif  
 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);

Generate output suitable for use with a patch program
Legend:
Removed from v.1.240  
changed lines
  Added in v.1.241
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help