gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.233, 2010/05/12 20:13:33	version 1.234, 2010/05/13 09:39:06
Line 292 static Cell min(Cell a, Cell b)	Line 292 static Cell min(Cell a, Cell b)
/* image file format:	/* image file format:
* "#! binary-path -i\n" (e.g., "#! /usr/local/bin/gforth-0.4.0 -i\n")	* "#! binary-path -i\n" (e.g., "#! /usr/local/bin/gforth-0.4.0 -i\n")
* padding to a multiple of 8	* padding to a multiple of 8
* magic: "Gforth3x" means format 0.6,	* magic: "Gforth4x" means format 0.8,
* where x is a byte with	* where x is a byte with
* bit 7: reserved = 0	* bit 7: reserved = 0
* bit 6:5: address unit size 2^n octets	* bit 6:5: address unit size 2^n octets
Line 1909 Address gforth_loader(FILE *imagefile, c	Line 1909 Address gforth_loader(FILE *imagefile, c

do {	do {
if(fread(magic,sizeof(Char),8,imagefile) < 8) {	if(fread(magic,sizeof(Char),8,imagefile) < 8) {
fprintf(stderr,"%s: image %s doesn't seem to be a Gforth (>=0.6) image.\n",	fprintf(stderr,"%s: image %s doesn't seem to be a Gforth (>=0.8) image.\n",
progname, filename);	progname, filename);
exit(1);	exit(1);
}	}
preamblesize+=8;	preamblesize+=8;
} while(memcmp(magic,"Gforth3",7));	} while(memcmp(magic,"Gforth4",7));
magic7 = magic[7];	magic7 = magic[7];
if (debug) {	if (debug) {
magic[7]='\0';	magic[7]='\0';