gforth/engine/forth.h - diff

Return to forth.h CVS log

Up to [gforth] / gforth / engine

version 1.79, 2006/12/31 13:39:17	version 1.80, 2007/01/05 13:36:07
Line 158 typedef struct {	Line 158 typedef struct {
#define DLO_IS(x,y) (x).lo=(y)	#define DLO_IS(x,y) (x).lo=(y)

#define UD2D(ud) ({UDCell _ud=(ud); (DCell){_ud.hi,_ud.lo};})	#define UD2D(ud) ({UDCell _ud=(ud); (DCell){_ud.hi,_ud.lo};})
#define D2UD(d) ({DCell _d=(d); (UDCell){_d.hi,_d.lo};})	#define D2UD(d) ({DCell _d1=(d); (UDCell){_d1.hi,_d1.lo};})

	/* shifts by less than CELL_BITS */
	#define DLSHIFT(d,u) ({DCell _d=(d); UCell _u=(u); \
	(DCell){(_d.hi<<_u)\|(_d.lo>>(CELL_BITS-_u)),_d.lo<<_u};})
	#define UDLSHIFT(ud,u) D2UD(DLSHIFT(UD2D(ud),u))

#if SMALL_OFF_T	#if SMALL_OFF_T
#define OFF2UD(o) ({UDCell _ud; _ud.hi=0; _ud.lo=(Cell)(o); _ud;})	#define OFF2UD(o) ({UDCell _ud; _ud.hi=0; _ud.lo=(Cell)(o); _ud;})
Line 178 typedef DOUBLE_UCELL_TYPE UDCell;	Line 183 typedef DOUBLE_UCELL_TYPE UDCell;
#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)
	/* shifts by less than CELL_BITS */
	#define DLSHIFT(d,u) ((d)<<(u))
	#define UDLSHIFT(d,u) ((d)<<(u))

#endif /* ! defined(BUGGY_LONG_LONG) */	#endif /* ! defined(BUGGY_LONG_LONG) */