gforth/glocals.fs - diff

Return to glocals.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/glocals.fs between versions 1.24 and 1.26

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

version 1.24, 1996/08/21 14:58:41	version 1.26, 1996/09/19 22:17:31
Line 381 forth definitions	Line 381 forth definitions

\ If this assumption is too optimistic, the compiler will warn the user.	\ If this assumption is too optimistic, the compiler will warn the user.

\ Implementation: migrated to kernal.fs	\ Implementation: migrated to kernel.fs

\ THEN (another control flow from before joins the current one):	\ THEN (another control flow from before joins the current one):
\ The new locals-list is the intersection of the current locals-list and	\ The new locals-list is the intersection of the current locals-list and
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 ;

Removed from v.1.24
changed lines
	Added in v.1.26