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) |