gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.136, 2003/11/10 13:16:37	version 1.137, 2003/12/31 13:45:38
Line 859 void check_prims(Label symbols1[])	Line 859 void check_prims(Label symbols1[])
fprintf(stderr,"\n non_reloc: K label before I label (length<0)\n");	fprintf(stderr,"\n non_reloc: K label before I label (length<0)\n");
continue;	continue;
}	}
assert(prim_len>=0);	assert(prim_len>=0); /* !! wrong if pi->superend */
assert(pi->restlength >=0);	assert(pi->restlength >=0);
while (j<(pi->length+pi->restlength)) {	while (j<(pi->length+pi->restlength)) {
if (s1[j]==s3[j]) {	if (s1[j]==s3[j]) {