gforth/glocals.fs - diff

Return to glocals.fs CVS log

Up to [gforth] / gforth

version 1.24, 1996/08/21 14:58:41	version 1.25, 1996/08/26 10:07:18
Line 518 forth definitions	Line 518 forth definitions
case	case
[ ' locals-wordlist >definer ] literal \ value	[ ' locals-wordlist >definer ] literal \ value
OF >body POSTPONE Aliteral POSTPONE ! ENDOF	OF >body POSTPONE Aliteral POSTPONE ! ENDOF
[ ' clocal >definer ] literal	[ comp' clocal drop >definer ] literal
OF POSTPONE laddr# >body @ lp-offset, POSTPONE c! ENDOF	OF POSTPONE laddr# >body @ lp-offset, POSTPONE c! ENDOF
[ ' wlocal >definer ] literal	[ comp' wlocal drop >definer ] literal
OF POSTPONE laddr# >body @ lp-offset, POSTPONE ! ENDOF	OF POSTPONE laddr# >body @ lp-offset, POSTPONE ! ENDOF
[ ' dlocal >definer ] literal	[ comp' dlocal drop >definer ] literal
OF POSTPONE laddr# >body @ lp-offset, POSTPONE 2! ENDOF	OF POSTPONE laddr# >body @ lp-offset, POSTPONE 2! ENDOF
[ ' flocal >definer ] literal	[ comp' flocal drop >definer ] literal
OF POSTPONE laddr# >body @ lp-offset, POSTPONE f! ENDOF	OF POSTPONE laddr# >body @ lp-offset, POSTPONE f! ENDOF
-&32 throw	-&32 throw
endcase ;	endcase ;