gforth/386.h - diff

Return to 386.h CVS log

Up to [gforth] / gforth

version 1.13, 1996/07/25 09:25:15	version 1.14, 1996/08/21 14:58:37
Line 60	Line 60
#define DOES_CODE(xt) \	#define DOES_CODE(xt) \
({ long _xt = (long)(xt); \	({ long _xt = (long)(xt); \
long _ca = (long)(CODE_ADDRESS(_xt)); \	long _ca = (long)(CODE_ADDRESS(_xt)); \
((((unsigned char )_xt) == CALL) && \	(((((unsigned char )_xt) == CALL) \
(((unsigned char )_ca) == JMP) && \	&& (((unsigned char )_ca) == JMP) \
((long)(CODE_ADDRESS(_ca)) == (long)symbols[DODOES])) ? \	&& ((long)(CODE_ADDRESS(_ca)) == (long)&&dodoes)) \
_ca+DOES_HANDLER_SIZE : 0L; })	? _ca+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) (CODE_ADDRESS(label)+DOES_HANDLER_SIZE)	#define DOES_CODE1(label) (CODE_ADDRESS(label)+DOES_HANDLER_SIZE)