gforth/kernel/getdoers.fs - diff

Return to getdoers.fs CVS log

Up to [gforth] / gforth / kernel

version 1.11, 2005/12/31 15:46:14	version 1.14, 2006/12/31 13:39:18
Line 1	Line 1
\	\

\ Copyright (C) 1996, 1998,1999,2003,2005 Free Software Foundation, Inc.	\ Copyright (C) 1996, 1998,1999,2003,2005,2006 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 24 doer? :docon [IF]	Line 24 doer? :docon [IF]
['] bl >code-address ;	['] bl >code-address ;
[THEN]	[THEN]

	doer? :dovalue [IF]
	: dovalue: ( -- addr ) \ gforth
	\G The code address of a @code{CONSTANT}.
	['] def#tib >code-address ;
	[THEN]

: docol: ( -- addr ) \ gforth	: docol: ( -- addr ) \ gforth
\G The code address of a colon definition.	\G The code address of a colon definition.
['] on >code-address ;	['] on >code-address ;
Line 50 doer? :dodefer [IF]	Line 56 doer? :dodefer [IF]
[THEN]	[THEN]

doer? :dofield [IF]	doer? :dofield [IF]

: dofield: ( -- addr ) \ gforth	: dofield: ( -- addr ) \ gforth
\G The code address of a @code{field}.	\G The code address of a @code{field}.
['] reveal-method >code-address ;	['] >body >code-address ;
[THEN]	[THEN]

true [IF] \ !! don't know what to put here	true [IF] \ !! don't know what to put here