gforth/m68k.h - diff

Return to m68k.h CVS log

Up to [gforth] / gforth

version 1.5, 1995/11/24 18:05:33	version 1.6, 1996/07/26 15:28:29
Line 40	Line 40
_cfa[0] = 0x4ef9; /* jmp.l */ \	_cfa[0] = 0x4ef9; /* jmp.l */ \
(long )(_cfa+1) = (long)(ca);})	(long )(_cfa+1) = (long)(ca);})

/* this is the point where the does code starts if label points to the	/* this is the point where the does code for the word with the xt cfa
* jump dodoes */	starts. */
#define DOES_CODE(label) ((Xt )(((char )CODE_ADDRESS(label))+DOES_HANDLER_SIZE))	#define DOES_CODE(cfa) \
	({ short _cfa=(short )(cfa); \
	short *_ca;
	((_cfa[0] == 0x4ef9 \
	&& (_ca=CODE_ADDRESS(cfa), _ca[0] == 0x4ef9) \
	&& (long )(_cfa+1) == &&docol) \
	? ((unsigned)_ca)+DOES_HANDLER_SIZE \
	: 0); })

/* this is a special version of DOES_CODE for use in dodoes */	/* this is a special version of DOES_CODE for use in dodoes */
#define DOES_CODE1(label) DOES_CODE(label)	#define DOES_CODE1(cfa) ((Xt )(((char )CODE_ADDRESS(cfa))+DOES_HANDLER_SIZE))

/* this stores a call dodoes at addr */	/* this stores a call dodoes at addr */
#define MAKE_DOES_HANDLER(addr) MAKE_CF(addr,symbols[DODOES])	#define MAKE_DOES_HANDLER(addr) MAKE_CF(addr,symbols[DODOES])