gforth/engine.c - diff

Return to engine.c CVS log

Up to [gforth] / gforth

version 1.33, 1995/12/26 17:35:36	version 1.36, 1996/02/13 11:12:16
Line 45	Line 45

#define IOR(flag) ((flag)? -512-errno : 0)	#define IOR(flag) ((flag)? -512-errno : 0)

typedef union {
struct {
#ifdef WORDS_BIGENDIAN
Cell high;
Cell low;
#else
Cell low;
Cell high;
#endif;
} cells;
DCell dcell;
} Double_Store;

typedef struct F83Name {	typedef struct F83Name {
struct F83Name next; / the link field for old hands */	struct F83Name next; / the link field for old hands */
char countetc;	char countetc;
Line 85 typedef struct F83Name {	Line 72 typedef struct F83Name {

Cell *SP;	Cell *SP;
Float *FP;	Float *FP;
	#if 0
	/* not used currently */
int emitcounter;	int emitcounter;
	#endif
#define NULLC '\0'	#define NULLC '\0'

char cstr(Char from, UCell size, int clear)	char cstr(Char from, UCell size, int clear)