gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.15, 1998/12/22 15:19:03	version 1.16, 1998/12/25 22:50:49
Line 48	Line 48
/* increment this whenever the primitives change in an incompatible way */	/* increment this whenever the primitives change in an incompatible way */

#ifndef DEFAULTPATH	#ifndef DEFAULTPATH
# define DEFAULTPATH "."	# define DEFAULTPATH "~+"
#endif	#endif

#ifdef MSDOS	#ifdef MSDOS
Line 128 typedef struct {	Line 128 typedef struct {

void relocate(Cell image, const char bitstring, int size, Label symbols[])	void relocate(Cell image, const char bitstring, int size, Label symbols[])
{	{
int i=0, j, k, steps=(size/sizeof(Cell))/8;	int i=0, j, k, steps=(size/sizeof(Cell))/RELINFOBITS;
Cell token;	Cell token;
char bits;	char bits;
/* static char bits[8]={0x80,0x40,0x20,0x10,0x08,0x04,0x02,0x01};*/	/* static char bits[8]={0x80,0x40,0x20,0x10,0x08,0x04,0x02,0x01};*/