gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.232, 2010/05/02 18:15:14	version 1.233, 2010/05/12 20:13:33
Line 410 void gforth_relocate(Cell *image, const	Line 410 void gforth_relocate(Cell *image, const
case CF(DOUSER) :	case CF(DOUSER) :
case CF(DODEFER) :	case CF(DODEFER) :
case CF(DOFIELD) :	case CF(DOFIELD) :
	case CF(DODOES) :
case CF(DOABICODE) :	case CF(DOABICODE) :
case CF(DOSEMIABICODE):	case CF(DOSEMIABICODE):
MAKE_CF(image+i,symbols[CF(token)]); break;	MAKE_CF(image+i,symbols[CF(token)]); break;
#endif /* !defined(DOUBLY_INDIRECT) */	#endif /* !defined(DOUBLY_INDIRECT) */
case CF(DODOES) :
MAKE_DOES_CF(image+i,(Xt *)(image[i+1]+((Cell)start)));
break;
default : /* backward compatibility */	default : /* backward compatibility */
/* printf("Code field generation image[%x]:=CFA(%x)\n",	/* printf("Code field generation image[%x]:=CFA(%x)\n",
i, CF(image[i])); */	i, CF(image[i])); */