gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.138, 2003/12/31 17:42:46	version 1.139, 2004/01/20 19:07:41
Line 190 typedef struct {	Line 190 typedef struct {
PrimInfo *priminfos;	PrimInfo *priminfos;
PrimInfo **decomp_prims;	PrimInfo **decomp_prims;

	const char const* const prim_names[]={
	#include PRIM_NAMES_I
	};

static int is_relocatable(int p)	static int is_relocatable(int p)
{	{
return !no_dynamic && priminfos[p].start != NULL;	return !no_dynamic && priminfos[p].start != NULL;
Line 836 void check_prims(Label symbols1[])	Line 840 void check_prims(Label symbols1[])
pi->restlength = endlabel - symbols1[i] - pi->length;	pi->restlength = endlabel - symbols1[i] - pi->length;
pi->nimmargs = 0;	pi->nimmargs = 0;
if (debug)	if (debug)
fprintf(stderr, "Prim %3d @ %p %p %p, length=%3ld restlength=%2ld superend=%1d",	fprintf(stderr, "%-15s %3d %p %p %p len=%3ld restlen=%2ld s-end=%1d",
i, s1, s2, s3, (long)(pi->length), (long)(pi->restlength), pi->superend);	prim_names[i], i, s1, s2, s3, (long)(pi->length), (long)(pi->restlength), pi->superend);
if (endlabel == NULL) {	if (endlabel == NULL) {
pi->start = NULL; /* not relocatable */	pi->start = NULL; /* not relocatable */
if (pi->length<0) pi->length=100;	if (pi->length<0) pi->length=100;