version 1.27, 1999/03/29 22:52:28
|
version 1.28, 1999/05/05 12:07:56
|
Line 1325 a_addr = PFA(xt);
|
Line 1325 a_addr = PFA(xt);
|
: |
: |
2 cells + ; |
2 cells + ; |
|
|
|
\+standardthreading |
|
|
>code-address xt -- c_addr gforth to_code_address |
>code-address xt -- c_addr gforth to_code_address |
""@var{c-addr} is the code address of the word @var{xt}."" |
""@var{c-addr} is the code address of the word @var{xt}."" |
/* !! This behaves installation-dependently for DOES-words */ |
/* !! This behaves installation-dependently for DOES-words */ |
Line 1385 n=1;
|
Line 1387 n=1;
|
: |
: |
1 ; |
1 ; |
|
|
|
\+ |
|
|
key-file wfileid -- n gforth paren_key_file |
key-file wfileid -- n gforth paren_key_file |
#ifdef HAS_FILE |
#ifdef HAS_FILE |
fflush(stdout); |
fflush(stdout); |