gforth/engine/engine.c - diff

Return to engine.c CVS log

Up to [gforth] / gforth / engine

version 1.28, 2001/02/27 21:17:11	version 1.30, 2001/03/28 16:18:51
Line 244 static int ufileattr[6]= {	Line 244 static int ufileattr[6]= {
#define vm_longname2Cell(x) ((Cell)(x))	#define vm_longname2Cell(x) ((Cell)(x))
#define vm_r2Float(x) (x)	#define vm_r2Float(x) (x)

	#define vm_Cell2Cell(x) (x)

/* if machine.h has not defined explicit registers, define them as implicit */	/* if machine.h has not defined explicit registers, define them as implicit */
#ifndef IPREG	#ifndef IPREG
#define IPREG	#define IPREG
Line 306 Xt *ip;	Line 308 Xt *ip;
Cell *rp;	Cell *rp;
#endif	#endif

	Xt *primtable(Label symbols[], Cell size)
	{
	#ifdef DIRECT_THREADED
	return symbols;
	#else /* !defined(DIRECT_THREADED) */
	Xt xts = (Xt )malloc(size*sizeof(Xt));
	Cell i;

	for (i=0; i<size; i++)
	xts[i] = &symbols[i];
	return xts;
	#endif /* !defined(DIRECT_THREADED) */
	}

Label engine(Xt ip0, Cell sp0, Cell rp0, Float *fp0, Address lp0)	Label engine(Xt ip0, Cell sp0, Cell rp0, Float *fp0, Address lp0)
/* executes code at ip, if ip!=NULL	/* executes code at ip, if ip!=NULL
returns array of machine code labels (for use in a loader), if ip==NULL	returns array of machine code labels (for use in a loader), if ip==NULL