[gforth] / gforth / Attic / main.c  

gforth: gforth/Attic/main.c

Diff for /gforth/Attic/main.c between version 1.49 and 1.50

version 1.49, Sat Dec 28 17:19:25 1996 UTC version 1.50, Wed Jan 1 16:26:03 1997 UTC
Line 58 
Line 58 
   
 #define maxaligned(n)   (typeof(n))((((Cell)n)+sizeof(Float)-1)&-sizeof(Float))  #define maxaligned(n)   (typeof(n))((((Cell)n)+sizeof(Float)-1)&-sizeof(Float))
   
 static Cell dictsize=0;  static UCell dictsize=0;
 static Cell dsize=0;  static UCell dsize=0;
 static Cell rsize=0;  static UCell rsize=0;
 static Cell fsize=0;  static UCell fsize=0;
 static Cell lsize=0;  static UCell lsize=0;
 static int image_offset=0;  static int image_offset=0;
 static int clear_dictionary=0;  static int clear_dictionary=0;
 static int debug=0;  static int debug=0;
Line 361 
Line 361 
   return((int)engine(ip,sp,rp,fp,lp));    return((int)engine(ip,sp,rp,fp,lp));
 }  }
   
 int convsize(char *s, int elemsize)  UCell convsize(char *s, UCell elemsize)
 /* converts s of the format #+u (e.g. 25k) into the number of bytes.  /* converts s of the format #+u (e.g. 25k) into the number of bytes.
    the unit u can be one of bekM, where e stands for the element     the unit u can be one of bekM, where e stands for the element
    size. default is e */     size. default is e */
 {  {
   char *endp;    char *endp;
   int n,m;    UCell n,m;
   
   m = elemsize;    m = elemsize;
   n = strtoul(s,&endp,0);    n = strtoul(s,&endp,0);

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help