gforth/386.h - diff

Return to 386.h CVS log

Up to [gforth] / gforth

version 1.11, 1995/11/07 18:06:29	version 1.12, 1996/07/16 20:57:05
Line 57	Line 57
/* this is the point where the does code starts if label points to the	/* this is the point where the does code starts if label points to the
* jump dodoes */	* jump dodoes */
#define DOES_HANDLER_SIZE 8	#define DOES_HANDLER_SIZE 8
#define DOES_CODE(label) ((Xt *)(CODE_ADDRESS(label)+DOES_HANDLER_SIZE))	#define DOES_CODE(xt) \
	({ long _xt = (long)(CODE_ADDRESS(xt)); \
	((((unsigned char )(xt)) == CALL) && \
	(((unsigned char )_xt) == JMP) && \
	((long)(CODE_ADDRESS(_xt)) == (long)symbols[DODOES])) ? \
	_xt+DOES_HANDLER_SIZE : 0L; })

/* 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(label) (CODE_ADDRESS(label)+DOES_HANDLER_SIZE)

/* this stores a jump dodoes at addr */	/* this stores a jump dodoes at addr */
#define MAKE_DOES_CF(addr,doesp) ({long _addr = (long)(addr); \	#define MAKE_DOES_CF(addr,doesp) ({long _addr = (long)(addr); \