gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

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);