version 1.10, 2005/06/28 06:45:08
|
version 1.13, 2006/02/26 17:23:47
|
Line 1
|
Line 1
|
\ |
\ |
|
|
\ Copyright (C) 1996, 1998,1999,2003 Free Software Foundation, Inc. |
\ Copyright (C) 1996, 1998,1999,2003,2005 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 |