gforth/engine/forth.h - diff

Return to forth.h CVS log

Up to [gforth] / gforth / engine

version 1.27, 2002/02/10 14:02:25	version 1.28, 2002/06/02 15:46:16
Line 124 typedef union {	Line 124 typedef union {
(hi) = _d.cells.high; \	(hi) = _d.cells.high; \
})	})

#define vm_twoCell2d(d_,lo,hi) FETCH_DCELL_T(d_,lo,hi,d)	#define vm_twoCell2d(lo,hi,d_) FETCH_DCELL_T(d_,lo,hi,d);
#define vm_twoCell2ud(d_,lo,hi) FETCH_DCELL_T(d_,lo,hi,ud)	#define vm_twoCell2ud(lo,hi,d_) FETCH_DCELL_T(d_,lo,hi,ud);

#define vm_d2twoCell(d_,lo,hi) STORE_DCELL_T(d_,lo,hi,d)	#define vm_d2twoCell(d_,lo,hi) STORE_DCELL_T(d_,lo,hi,d);
#define vm_ud2twoCell(d_,lo,hi) STORE_DCELL_T(d_,lo,hi,ud)	#define vm_ud2twoCell(d_,lo,hi) STORE_DCELL_T(d_,lo,hi,ud);

typedef Label *Xt;	typedef Label *Xt;