gforth/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth

version 1.8, 1994/07/13 19:21:04	version 1.9, 1994/08/25 15:25:30
Line 63 void relocate(int image, char bitstrin	Line 63 void relocate(int image, char bitstrin
case CF(DOCOL) :	case CF(DOCOL) :
case CF(DOVAR) :	case CF(DOVAR) :
case CF(DOCON) :	case CF(DOCON) :
case CF(DOUSER) : MAKE_CF(image+i,symbols[CF(image[i])]); break;	case CF(DOUSER) :
	case CF(DODEFER) :
	MAKE_CF(image+i,symbols[CF(image[i])]); break;
case CF(DODOES) : MAKE_DOES_CF(image+i,image[i+1]+((int)image));	case CF(DODOES) : MAKE_DOES_CF(image+i,image[i+1]+((int)image));
break;	break;
case CF(DOESJUMP): MAKE_DOES_HANDLER(image+i); break;	case CF(DOESJUMP): MAKE_DOES_HANDLER(image+i); break;