gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

version 1.174, 2010/03/18 14:45:54	version 1.175, 2010/04/11 15:37:22
Line 551 alias code-address! ( c_addr xt -- ) \ g	Line 551 alias code-address! ( c_addr xt -- ) \ g
dodoes: over ! cell+ !	dodoes: over ! cell+ !
[ [THEN] ] ;	[ [THEN] ] ;

' drop alias does-handler! ( a_addr -- ) \ gforth
\G Create a @code{DOES>}-handler at address @i{a-addr}. Normally,
\G @i{a-addr} points just behind a @code{DOES>}.

2 cells constant /does-handler ( -- n ) \ gforth	2 cells constant /does-handler ( -- n ) \ gforth
\G The size of a @code{DOES>}-handler (includes possible padding).	\G The size of a @code{DOES>}-handler (includes possible padding).