gforth/engine/forth.h - diff

Return to forth.h CVS log

Up to [gforth] / gforth / engine

version 1.48, 2003/01/26 20:56:38	version 1.49, 2003/01/27 18:59:42
Line 99 typedef struct {	Line 99 typedef struct {
typedef DOUBLE_CELL_TYPE DCell;	typedef DOUBLE_CELL_TYPE DCell;
typedef unsigned DOUBLE_CELL_TYPE UDCell;	typedef unsigned DOUBLE_CELL_TYPE UDCell;

#define IOR(flag) ((flag)? -512-errno : 0)
#define OFF2UD(o) ((UDCell)(o))	#define OFF2UD(o) ((UDCell)(o))
#define UD2OFF(ud) ((off_t)(ud))	#define UD2OFF(ud) ((off_t)(ud))
#define DZERO ((DCell)0)	#define DZERO ((DCell)0)
Line 250 struct Cellquad {	Line 249 struct Cellquad {
Cell n4;	Cell n4;
};	};

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

Label engine(Xt ip, Cell sp, Cell rp, Float *fp, Address lp);	Label engine(Xt ip, Cell sp, Cell rp, Float *fp, Address lp);
Label engine2(Xt ip, Cell sp, Cell rp, Float *fp, Address lp);	Label engine2(Xt ip, Cell sp, Cell rp, Float *fp, Address lp);
Label engine3(Xt ip, Cell sp, Cell rp, Float *fp, Address lp);	Label engine3(Xt ip, Cell sp, Cell rp, Float *fp, Address lp);