gforth/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth

version 1.27, 1995/09/06 21:00:22	version 1.28, 1995/10/11 19:39:35
Line 83 void relocate(Cell image, char bitstri	Line 83 void relocate(Cell image, char bitstri
case CF(DOCON) :	case CF(DOCON) :
case CF(DOUSER) :	case CF(DOUSER) :
case CF(DODEFER) :	case CF(DODEFER) :
case CF(DOSTRUC) : MAKE_CF(image+i,symbols[CF(image[i])]); break;	case CF(DOFIELD) : MAKE_CF(image+i,symbols[CF(image[i])]); break;
case CF(DODOES) : MAKE_DOES_CF(image+i,image[i+1]+((Cell)image));	case CF(DODOES) : MAKE_DOES_CF(image+i,image[i+1]+((Cell)image));
break;	break;
case CF(DOESJUMP): MAKE_DOES_HANDLER(image+i); break;	case CF(DOESJUMP): MAKE_DOES_HANDLER(image+i); break;
Line 176 Cell loader(FILE imagefile)	Line 176 Cell loader(FILE imagefile)
relocate(image,(char *)image+header[1],header[1],engine(0,0,0,0,0));	relocate(image,(char *)image+header[1],header[1],engine(0,0,0,0,0));
}	}
else if(image[5]!=(Cell)image) {	else if(image[5]!=(Cell)image) {
fprintf(stderr,"Corrupted image address, please recompile image\n");	fprintf(stderr,"%s: Cannot load nonrelocatable image (compiled for address 0x%lx) at address 0x%lx\nThe Gforth installer should look into the INSTALL file\n", progname, image[5], (Cell)image);
exit(1);	exit(1);
}	}