gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.117, 2003/08/08 05:56:38	version 1.118, 2003/08/10 22:20:24
Line 932 Label decompile_code(Label _code)	Line 932 Label decompile_code(Label _code)
for (i=npriminfos-1; i>DOESJUMP; i--) {	for (i=npriminfos-1; i>DOESJUMP; i--) {
PrimInfo *pi=decomp_prims[i];	PrimInfo *pi=decomp_prims[i];
if (pi->start==code \|\| (pi->start && memcmp(code,pi->start,pi->length)==0))	if (pi->start==code \|\| (pi->start && memcmp(code,pi->start,pi->length)==0))
return pi->start;	return vm_prims[super2[super_costs[pi-priminfos-DOESJUMP-1].offset]+DOESJUMP+1];
	/* return pi->start;*/
}	}
return code;	return code;
#endif /* !defined(NO_DYNAMIC) */	#endif /* !defined(NO_DYNAMIC) */