version 1.9, 1996/10/02 09:48:55
|
version 1.10, 1997/03/04 17:49:46
|
Line 149 typedef short Int16;
|
Line 149 typedef short Int16;
|
/* the does handler resides between DOES> and the following Forth |
/* the does handler resides between DOES> and the following Forth |
code. Since the code-field jumps directly to dodoes, the |
code. Since the code-field jumps directly to dodoes, the |
does-handler is not needed for the Alpha architecture */ |
does-handler is not needed for the Alpha architecture */ |
#define DOES_HANDLER_SIZE (2*sizeof(Cell)) |
|
#define MAKE_DOES_HANDLER(addr) 0 |
#define MAKE_DOES_HANDLER(addr) 0 |
|
|
/* This makes a code field for a does-defined word. doesp is the |
/* This makes a code field for a does-defined word. doesp is the |