gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.34, 1999/05/17 13:12:05	version 1.38, 1999/08/20 17:22:51
Line 1353 a_addr = PFA(xt);	Line 1353 a_addr = PFA(xt);
:	:
2 cells + ;	2 cells + ;

\+standardthreading	\ threading stuff is currently only interesting if we have a compiler
	\fhas? standardthreading has? compiler and [IF]

>code-address xt -- c_addr gforth to_code_address	>code-address xt -- c_addr gforth to_code_address
""@i{c-addr} is the code address of the word @i{xt}.""	""@i{c-addr} is the code address of the word @i{xt}.""
Line 1415 n=1;	Line 1416 n=1;
:	:
1 ;	1 ;

\+	\f[THEN]

key-file wfileid -- n gforth paren_key_file	key-file wfileid -- n gforth paren_key_file
#ifdef HAS_FILE	#ifdef HAS_FILE
Line 1681 wior = FILEIO(putc(c, (FILE *)wfileid)==	Line 1682 wior = FILEIO(putc(c, (FILE *)wfileid)==
if (wior)	if (wior)
clearerr((FILE *)wfileid);	clearerr((FILE *)wfileid);
#else	#else
putc(c, stdout);	PUTC(c);
#endif	#endif

\+file	\+file