gforth/glocals.fs - diff

Return to glocals.fs CVS log

Up to [gforth] / gforth

version 1.10, 1995/04/06 16:56:12	version 1.12, 1995/04/29 14:51:19
Line 137 variable locals-dp \ so here's the speci	Line 137 variable locals-dp \ so here's the speci
\ defines the local "name"; the offset of the local shall be	\ defines the local "name"; the offset of the local shall be
\ stored in a-addr	\ stored in a-addr
create	create
immediate	immediate restrict
here 0 , ( place for the offset ) ;	here 0 , ( place for the offset ) ;

: lp-offset ( n1 -- n2 )	: lp-offset ( n1 -- n2 )
Line 498 forth definitions	Line 498 forth definitions
OF POSTPONE laddr# >body @ lp-offset, POSTPONE d! ENDOF	OF POSTPONE laddr# >body @ lp-offset, POSTPONE d! ENDOF
[ ' flocal >definer ] literal	[ ' flocal >definer ] literal
OF POSTPONE laddr# >body @ lp-offset, POSTPONE f! ENDOF	OF POSTPONE laddr# >body @ lp-offset, POSTPONE f! ENDOF
abort" can only store TO value or local value"	-&32 throw
endcase	endcase
else	else
[ ' locals-wordlist >definer ] literal =	[ ' locals-wordlist >definer ] literal =
if	if
>body !	>body !
else	else
abort" can only store TO value"	-&32 throw
endif	endif
endif ; immediate	endif ; immediate