gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.18, 1999/01/08 16:58:31	version 1.19, 1999/01/10 22:00:23
Line 388 Address loader(FILE imagefile, char fi	Line 388 Address loader(FILE imagefile, char fi
magic7 = magic[7];	magic7 = magic[7];
if (debug) {	if (debug) {
magic[7]='\0';	magic[7]='\0';
fprintf(stderr,"Magic found: %s $%x\n", magic, magic7);	fprintf(stderr,"Magic found: %s %s endian, cell=%d bytes, char=%d bytes, au=%d bytes\n",
	magic,
	endianstring[!(magic[7] & 1)],
	1 << ((magic7 >> 1) & 3),
	1 << ((magic7 >> 3) & 3),
	1 << ((magic7 >> 5) & 3));
}	}

if(magic7 != (ausize << 5) + (charsize << 3) + (cellsize << 1) +	if(magic7 != (ausize << 5) + (charsize << 3) + (cellsize << 1) +