[gforth] / gforth / prim  

gforth: gforth/prim

Diff for /gforth/prim between version 1.122 and 1.123

version 1.122, Thu Jan 23 21:45:59 2003 UTC version 1.123, Fri Jan 24 22:03:20 2003 UTC
Line 2013 
Line 2013 
 f2=FLAG(isdigit((unsigned)(sig[0]))!=0);  f2=FLAG(isdigit((unsigned)(sig[0]))!=0);
 siglen=strlen(sig);  siglen=strlen(sig);
 memcpy(c_addr,sig,siglen);  memcpy(c_addr,sig,siglen);
 memset(c_addr+siglen,'0',u-siglen);  memset(c_addr+siglen,f2?'0':' ',u-siglen);
   
 >float  ( c_addr u -- flag )    float   to_float  >float  ( c_addr u -- flag )    float   to_float
 ""Actual stack effect: ( c_addr u -- r t | f ).  Attempt to convert the  ""Actual stack effect: ( c_addr u -- r t | f ).  Attempt to convert the

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help