gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.131, 2003/11/09 11:31:57	version 1.132, 2003/11/09 11:35:23
Line 1087 void finish_code(void)	Line 1087 void finish_code(void)
compile_prim1(NULL);	compile_prim1(NULL);
for (i=0; i<ndoesexecinfos; i++) {	for (i=0; i<ndoesexecinfos; i++) {
struct doesexecinfo *dei = &doesexecinfos[i];	struct doesexecinfo *dei = &doesexecinfos[i];
branchinfos[dei->branchinfo].targetptr = DOES_CODE1((dei->xt));	branchinfos[dei->branchinfo].targetptr = (Label *)DOES_CODE1((dei->xt));
}	}
ndoesexecinfos = 0;	ndoesexecinfos = 0;
for (i=0; i<nbranchinfos; i++) {	for (i=0; i<nbranchinfos; i++) {