version 1.66, 1997/02/24 22:28:59
|
version 1.67, 1997/03/04 17:49:55
|
Line 1292 a_addr = PFA(xt);
|
Line 1292 a_addr = PFA(xt);
|
>code-address xt -- c_addr gforth to_code_address |
>code-address xt -- c_addr gforth to_code_address |
""c_addr is the code address of the word xt"" |
""c_addr is the code address of the word xt"" |
/* !! This behaves installation-dependently for DOES-words */ |
/* !! This behaves installation-dependently for DOES-words */ |
c_addr = CODE_ADDRESS(xt); |
c_addr = (Address)CODE_ADDRESS(xt); |
: |
: |
@ ; |
@ ; |
|
|
Line 1335 n = DOES_HANDLER_SIZE;
|
Line 1335 n = DOES_HANDLER_SIZE;
|
2 cells ; |
2 cells ; |
|
|
threading-method -- n gforth threading_method |
threading-method -- n gforth threading_method |
""0 if the engine is direct threaded."" |
""0 if the engine is direct threaded. Note that this may change during |
#if defined(DIRECT_THREADED) |
the lifetime of an image."" |
n=0; |
#if defined(DOUBLY_INDIRECT) |
|
n=2; |
#else |
#else |
|
# if defined(DIRECT_THREADED) |
|
n=0; |
|
# else |
n=1; |
n=1; |
|
# endif |
#endif |
#endif |
: |
: |
1 ; |
1 ; |