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.13, 1995/10/07 17:38:15
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 475 forth definitions	Line 475 forth definitions
: definer! ( definer xt -- )	: definer! ( definer xt -- )
\ gives the word represented by xt the behaviour associated with definer	\ gives the word represented by xt the behaviour associated with definer
over 1 and if	over 1 and if
does-code!	swap [ 1 invert ] literal and does-code!
else	else
code-address!	code-address!
then ;	then ;
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