[gforth] / gforth / kernel / getdoers.fs  

gforth: gforth/kernel/getdoers.fs

Diff for /gforth/kernel/getdoers.fs between version 1.17 and 1.18

version 1.17, Mon Apr 5 22:17:56 2010 UTC version 1.18, Sun Apr 25 18:27:10 2010 UTC
Line 63 
Line 63 
   
 true [IF] \ !! don't know what to put here  true [IF] \ !! don't know what to put here
 : dodoes: ( -- addr )   \ gforth  : 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 ;      ['] DOES> >code-address ;
   
 [THEN]  [THEN]
   
   
Line 74 
Line 77 
     \G The code address of a @code{ABI-CODE} definition.      \G The code address of a @code{ABI-CODE} definition.
     ['] (abi-code-dummy) >code-address ;      ['] (abi-code-dummy) >code-address ;
 [THEN]  [THEN]
   
   doer? :do;abicode [IF]
   (;abi-code) (;abi-code-dummy)
   : do;abicode: ( -- addr )
       ['] (;abi-code-dummy) >code-address ;
   [THEN]

Generate output suitable for use with a patch program
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help