gforth/kernel/getdoers.fs - diff

Return to getdoers.fs CVS log

Up to [gforth] / gforth / kernel

version 1.17, 2010/04/05 22:17:56	version 1.18, 2010/04/25 18:27:10
Line 63 doer? :dofield [IF]	Line 63 doer? :dofield [IF]

true [IF] \ !! don't know what to put here	true [IF] \ !! don't know what to put here
: dodoes: ( -- addr ) \ gforth	: dodoes: ( -- addr ) \ gforth
\G The code address of a @code{field}???	\G The code address of a @code{DOES>}-defined word.
	\ DOES> is interpret/compile: but cross' ['] gives the address of
	\ a DOES>-defined word
['] DOES> >code-address ;	['] DOES> >code-address ;

[THEN]	[THEN]


Line 74 doer? :doabicode [IF]	Line 77 doer? :doabicode [IF]
\G The code address of a @code{ABI-CODE} definition.	\G The code address of a @code{ABI-CODE} definition.
['] (abi-code-dummy) >code-address ;	['] (abi-code-dummy) >code-address ;
[THEN]	[THEN]

	doer? :do;abicode [IF]
	(;abi-code) (;abi-code-dummy)
	: do;abicode: ( -- addr )
	['] (;abi-code-dummy) >code-address ;
	[THEN]