![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to getdoers.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to getdoers.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.16, 2007/12/31 19:02:25 | version 1.17, 2010/04/05 22:17:56 |
|---|---|
| Line 66 true [IF] \ !! don't know what to put he | Line 66 true [IF] \ !! don't know what to put he |
| \G The code address of a @code{field}??? | \G The code address of a @code{field}??? |
| ['] DOES> >code-address ; | ['] DOES> >code-address ; |
| [THEN] | [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] |