gforth/glocals.fs - diff

Return to glocals.fs CVS log

Up to [gforth] / gforth

version 1.18, 1996/01/25 16:45:52	version 1.20, 1996/05/03 13:05:05
Line 505 forth definitions	Line 505 forth definitions
then ;	then ;

: TO ( c\|w\|d\|r "name" -- ) \ core-ext,local	: TO ( c\|w\|d\|r "name" -- ) \ core-ext,local
\ !! state smart
0 0 0. 0.0e0 { c: clocal w: wlocal d: dlocal f: flocal }	0 0 0. 0.0e0 { c: clocal w: wlocal d: dlocal f: flocal }
' dup >definer	' dup >definer
state @	state @
Line 518 forth definitions	Line 517 forth definitions
[ ' wlocal >definer ] literal	[ ' wlocal >definer ] literal
OF POSTPONE laddr# >body @ lp-offset, POSTPONE ! ENDOF	OF POSTPONE laddr# >body @ lp-offset, POSTPONE ! ENDOF
[ ' dlocal >definer ] literal	[ ' dlocal >definer ] literal
OF POSTPONE laddr# >body @ lp-offset, POSTPONE d! ENDOF	OF POSTPONE laddr# >body @ lp-offset, POSTPONE 2! 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
-&32 throw	-&32 throw