gforth/engine/engine.c - diff

Return to engine.c CVS log

Up to [gforth] / gforth / engine

Diff for /gforth/engine/engine.c between versions 1.39 and 1.43

version 1.39, 2002/01/20 19:04:11	version 1.43, 2002/08/19 07:38:16
Line 215 static int ufileattr[6]= {	Line 215 static int ufileattr[6]= {

/* conversion on fetch */	/* conversion on fetch */

#define vm_Cell2f(x) ((Bool)(x))	#define vm_Cell2f(_cell,_x) ((_x)=(Bool)(_cell))
#define vm_Cell2c(x) ((Char)(x))	#define vm_Cell2c(_cell,_x) ((_x)=(Char)(_cell))
#define vm_Cell2n(x) ((Cell)x)	#define vm_Cell2n(_cell,_x) ((_x)=(Cell)(_cell))
#define vm_Cell2w(x) ((Cell)x)	#define vm_Cell2w(_cell,_x) ((_x)=(Cell)(_cell))
#define vm_Cell2u(x) ((UCell)(x))	#define vm_Cell2u(_cell,_x) ((_x)=(UCell)(_cell))
#define vm_Cell2a_(x) ((Cell *)(x))	#define vm_Cell2a_(_cell,_x) ((_x)=(Cell *)(_cell))
#define vm_Cell2c_(x) ((Char *)(x))	#define vm_Cell2c_(_cell,_x) ((_x)=(Char *)(_cell))
#define vm_Cell2f_(x) ((Float *)(x))	#define vm_Cell2f_(_cell,_x) ((_x)=(Float *)(_cell))
#define vm_Cell2df_(x) ((DFloat *)(x))	#define vm_Cell2df_(_cell,_x) ((_x)=(DFloat *)(_cell))
#define vm_Cell2sf_(x) ((SFloat *)(x))	#define vm_Cell2sf_(_cell,_x) ((_x)=(SFloat *)(_cell))
#define vm_Cell2xt(x) ((Xt)(x))	#define vm_Cell2xt(_cell,_x) ((_x)=(Xt)(_cell))
#define vm_Cell2f83name(x) ((struct F83Name *)(x))	#define vm_Cell2f83name(_cell,_x) ((_x)=(struct F83Name *)(_cell))
#define vm_Cell2longname(x) ((struct Longname *)(x))	#define vm_Cell2longname(_cell,_x) ((_x)=(struct Longname *)(_cell))
#define vm_Float2r(x) (x)	#define vm_Float2r(_float,_x) (_x=_float)

/* conversion on store */	/* conversion on store */

#define vm_f2Cell(x) ((Cell)(x))	#define vm_f2Cell(_x,_cell) ((_cell)=(Cell)(_x))
#define vm_c2Cell(x) ((Cell)(x))	#define vm_c2Cell(_x,_cell) ((_cell)=(Cell)(_x))
#define vm_n2Cell(x) ((Cell)(x))	#define vm_n2Cell(_x,_cell) ((_cell)=(Cell)(_x))
#define vm_w2Cell(x) ((Cell)(x))	#define vm_w2Cell(_x,_cell) ((_cell)=(Cell)(_x))
#define vm_u2Cell(x) ((Cell)(x))	#define vm_u2Cell(_x,_cell) ((_cell)=(Cell)(_x))
#define vm_a_2Cell(x) ((Cell)(x))	#define vm_a_2Cell(_x,_cell) ((_cell)=(Cell)(_x))
#define vm_c_2Cell(x) ((Cell)(x))	#define vm_c_2Cell(_x,_cell) ((_cell)=(Cell)(_x))
#define vm_f_2Cell(x) ((Cell)(x))	#define vm_f_2Cell(_x,_cell) ((_cell)=(Cell)(_x))
#define vm_df_2Cell(x) ((Cell)(x))	#define vm_df_2Cell(_x,_cell) ((_cell)=(Cell)(_x))
#define vm_sf_2Cell(x) ((Cell)(x))	#define vm_sf_2Cell(_x,_cell) ((_cell)=(Cell)(_x))
#define vm_xt2Cell(x) ((Cell)(x))	#define vm_xt2Cell(_x,_cell) ((_cell)=(Cell)(_x))
#define vm_f83name2Cell(x) ((Cell)(x))	#define vm_f83name2Cell(_x,_cell) ((_cell)=(Cell)(_x))
#define vm_longname2Cell(x) ((Cell)(x))	#define vm_longname2Cell(_x,_cell) ((_cell)=(Cell)(_x))
#define vm_r2Float(x) (x)	#define vm_r2Float(_x,_float) (_float=_x)

#define vm_Cell2Cell(x) (x)	#define vm_Cell2Cell(_x,_y) (_y=_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
Line 321 Cell *rp;	Line 321 Cell *rp;
Xt *primtable(Label symbols[], Cell size)	Xt *primtable(Label symbols[], Cell size)
/* used in primitive primtable for peephole optimization */	/* used in primitive primtable for peephole optimization */
{	{
#ifdef DIRECT_THREADED
return symbols;
#else /* !defined(DIRECT_THREADED) */
Xt xts = (Xt )malloc(size*sizeof(Xt));	Xt xts = (Xt )malloc(size*sizeof(Xt));
Cell i;	Cell i;

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


Line 562 define(enginerest,	Line 558 define(enginerest,
NEXT;	NEXT;

#ifndef IN_ENGINE2	#ifndef IN_ENGINE2
#define LABEL(name) I_##name	#define LABEL(name) I_##name:
#else	#else
#define LABEL(name) J_##name: asm(".skip 16"); I_##name	#define LABEL(name) J_##name: asm(".skip 16"); I_##name:
#endif	#endif
	#define LABEL2(name)
#include "prim.i"	#include "prim.i"
#undef LABEL	#undef LABEL
after_last: return (Label *)0;	after_last: return (Label *)0;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.39
changed lines
	Added in v.1.43