gforth/kernel/getdoers.fs - diff

Return to getdoers.fs CVS log

Up to [gforth] / gforth / kernel

-version 1.15, 2007/12/31 18:40:26
+version 1.18, 2010/04/25 18:27:10
  Line 1
  \
- \ Copyright (C) 1996, 1998,1999,2003,2005,2006 Free Software Foundation, Inc.
+ \ Copyright (C) 1996, 1998,1999,2003,2005,2006,2007 Free Software Foundation, Inc.
  \ This file is part of Gforth.
  Line 63  doer? :dofield [IF]
  true [IF] \ !! don't know what to put here
  : 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 ;
+ [THEN]
+ doer? :doabicode [IF]
+ (ABI-CODE) (abi-code-dummy)
+ : doabicode: ( -- addr )        \ gforth
+     \G The code address of a @code{ABI-CODE} definition.
+     ['] (abi-code-dummy) >code-address ;
+ [THEN]
+ doer? :do;abicode [IF]
+ (;abi-code) (;abi-code-dummy)
+ : do;abicode: ( -- addr )
+     ['] (;abi-code-dummy) >code-address ;
  [THEN]