gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.83, 2002/12/27 12:32:54	version 1.84, 2002/12/27 17:19:34
Line 154 int gforth_memcmp(const char * s1, const	Line 154 int gforth_memcmp(const char * s1, const
/* 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: "Gforth2x" means format 0.4,	* magic: "Gforth3x" means format 0.6,
* 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 941 Address loader(FILE imagefile, char fi	Line 941 Address loader(FILE imagefile, char fi

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.4) image.\n",	fprintf(stderr,"%s: image %s doesn't seem to be a Gforth (>=0.6) image.\n",
progname, filename);	progname, filename);
exit(1);	exit(1);
}	}
preamblesize+=8;	preamblesize+=8;
} while(memcmp(magic,"Gforth2",7));	} while(memcmp(magic,"Gforth3",7));
magic7 = magic[7];	magic7 = magic[7];
if (debug) {	if (debug) {
magic[7]='\0';	magic[7]='\0';