gforth/objects.fs - diff

Return to objects.fs CVS log

Up to [gforth] / gforth

version 1.7, 1998/08/02 15:06:01	version 1.8, 1998/10/07 18:29:38
Line 211 variable last-interface-offset 0 last-in	Line 211 variable last-interface-offset 0 last-in
: interface ( -- ) \ objects	: interface ( -- ) \ objects
\g starts an interface definition.	\g starts an interface definition.
interface% %allot >r	interface% %allot >r
0 0 r@ interface-map 2!	r@ current-interface !
	current-interface 1 cells save-mem r@ interface-map 2!
-1 cells last-interface-offset +!	-1 cells last-interface-offset +!
last-interface-offset @ r@ interface-offset !	last-interface-offset @ r@ interface-offset !
0 r@ interface-map-offset !	0 r> interface-map-offset ! ;
r> current-interface ! ;

: end-interface-noname ( -- interface ) \ objects	: end-interface-noname ( -- interface ) \ objects
\g ends an interface definition. The resulting interface is	\g ends an interface definition. The resulting interface is