gforth/primitives - diff

Return to primitives CVS log

Up to [gforth] / gforth

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 ;