[gforth] / gforth / Attic / main.c  

gforth: gforth/Attic/main.c

Diff for /gforth/Attic/main.c between version 1.22 and 1.23

version 1.22, Thu Feb 2 18:13:06 1995 UTC version 1.23, Tue Feb 14 18:18:36 1995 UTC
Line 30 
Line 30 
 #  define CA(n) ((Cell)(symbols+(n)))  #  define CA(n) ((Cell)(symbols+(n)))
 #endif  #endif
   
 #define maxaligned(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 Cell dictsize=0;
 static Cell dsize=0;  static Cell dsize=0;
Line 128 
Line 128 
   
   wholesize = dictsize+dsize+rsize+fsize+lsize;    wholesize = dictsize+dsize+rsize+fsize+lsize;
   imagesize = header[1]+((header[1]-1)/sizeof(Cell))/8+1;    imagesize = header[1]+((header[1]-1)/sizeof(Cell))/8+1;
   image=malloc(wholesize>imagesize?wholesize:imagesize);    image=malloc((wholesize>imagesize?wholesize:imagesize)+sizeof(Float));
     image = maxaligned(image);
   memset(image,0,wholesize); /* why? - anton */    memset(image,0,wholesize); /* why? - anton */
   image[0]=header[0];    image[0]=header[0];
   image[1]=header[1];    image[1]=header[1];

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help