[gforth] / gforth / Attic / ecvt.c  

gforth: gforth/Attic/ecvt.c

Diff for /gforth/Attic/ecvt.c between version 1.2 and 1.3

version 1.2, Mon Dec 12 17:10:34 1994 UTC version 1.3, Tue Jan 24 17:31:19 1995 UTC
Line 21 
Line 21 
      }       }
   
    if(x==0)     if(x==0)
      {          *exp=-1;
         *exp=0;     else
         return "0";  
      }  
   
    *exp=(int)floor(log10(x));     *exp=(int)floor(log10(x));
    x = x / pow10((double)*exp);     x = x / pow10((double)*exp);
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help