gforth/kernel/getdoers.fs - diff

Return to getdoers.fs CVS log

Up to [gforth] / gforth / kernel

-version 1.16, 2007/12/31 19:02:25
+version 1.18, 2010/04/25 18:27:10
  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]