--- gforth/Attic/386.h 1996/07/25 09:25:15 1.13 +++ gforth/Attic/386.h 1996/08/21 14:58:37 1.14 @@ -60,10 +60,10 @@ #define DOES_CODE(xt) \ ({ long _xt = (long)(xt); \ long _ca = (long)(CODE_ADDRESS(_xt)); \ - (((*(unsigned char *)_xt) == CALL) && \ - ((*(unsigned char *)_ca) == JMP) && \ - ((long)(CODE_ADDRESS(_ca)) == (long)symbols[DODOES])) ? \ - _ca+DOES_HANDLER_SIZE : 0L; }) + ((((*(unsigned char *)_xt) == CALL) \ + && ((*(unsigned char *)_ca) == JMP) \ + && ((long)(CODE_ADDRESS(_ca)) == (long)&&dodoes)) \ + ? _ca+DOES_HANDLER_SIZE : 0L); }) /* this is a special version of DOES_CODE for use in dodoes */ #define DOES_CODE1(label) (CODE_ADDRESS(label)+DOES_HANDLER_SIZE)