Return to 386.h CVS log | Up to [gforth] / gforth |
version 1.14, 1996/08/21 14:58:37 | version 1.15, 1997/03/04 17:49:45 |
---|---|
Line 56 | Line 56 |
/* 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_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)); \ |