gforth/engine.c - diff

Return to engine.c CVS log

Up to [gforth] / gforth

version 1.36, 1996/02/13 11:12:16	version 1.38, 1996/12/28 17:19:24
Line 56 typedef struct F83Name {	Line 56 typedef struct F83Name {
#define F83NAME_SMUDGE(np) (((np)->countetc & 0x40) != 0)	#define F83NAME_SMUDGE(np) (((np)->countetc & 0x40) != 0)
#define F83NAME_IMMEDIATE(np) (((np)->countetc & 0x20) != 0)	#define F83NAME_IMMEDIATE(np) (((np)->countetc & 0x20) != 0)

#ifdef USE_TOS
#define IF_TOS(x) x
#else
#define IF_TOS(x)
#define TOS (sp[0])
#endif

#ifdef USE_FTOS
#define IF_FTOS(x) x
#else
#define IF_FTOS(x)
#define FTOS (fp[0])
#endif

Cell *SP;	Cell *SP;
Float *FP;	Float *FP;
#if 0	#if 0
Line 230 Label engine(Xt ip0, Cell sp0, Cell	Line 216 Label engine(Xt ip0, Cell sp0, Cell
(Label)0,	(Label)0,
#endif	#endif
#include "prim_labels.i"	#include "prim_labels.i"
	(Label)0
};	};
#ifdef CPU_DEP2	#ifdef CPU_DEP2
CPU_DEP2	CPU_DEP2