gforth/glocals.fs - diff

Return to glocals.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/glocals.fs between versions 1.28 and 1.31

version 1.28, 1996/09/30 13:16:10	version 1.31, 1997/03/11 16:00:39
Line 319 previous	Line 319 previous
true abort" this should not happen: new-locals-reveal" ;	true abort" this should not happen: new-locals-reveal" ;

create new-locals-map ( -- wordlist-map )	create new-locals-map ( -- wordlist-map )
' new-locals-find A, ' new-locals-reveal A,	' new-locals-find A,
	' new-locals-reveal A,
	' drop A, \ rehash method

slowvoc @	slowvoc @
slowvoc on	slowvoc on
Line 495 forth definitions	Line 497 forth definitions
\ ELSE. However, if ELSE generates an appropriate "lp+!#" before the	\ ELSE. However, if ELSE generates an appropriate "lp+!#" before the
\ branch, there will be none after the target <then>.	\ branch, there will be none after the target <then>.

: (then-like) ( orig -- addr )	: (then-like) ( orig -- )
swap -rot dead-orig =	dead-orig =
if	if
drop	>resolve drop
else	else
dead-code @	dead-code @
if	if
set-locals-size-list dead-code off	>resolve set-locals-size-list dead-code off
else \ both live	else \ both live
dup list-size adjust-locals-size	over list-size adjust-locals-size
	>resolve
locals-list @ common-list dup list-size adjust-locals-size	locals-list @ common-list dup list-size adjust-locals-size
locals-list !	locals-list !
then	then
Line 614 forth definitions	Line 617 forth definitions
\ this gives a unique identifier for the way the xt was defined	\ this gives a unique identifier for the way the xt was defined
\ words defined with different does>-codes have different definers	\ words defined with different does>-codes have different definers
\ the definer can be used for comparison and in definer!	\ the definer can be used for comparison and in definer!
dup >code-address [ ' spaces >code-address ] Literal =	dup >does-code
\ !! this definition will not work on some implementations for `bits'	?dup-if
if \ if >code-address delivers the same value for all does>-def'd words	nip 1 or
>does-code 1 or \ bit 0 marks special treatment for does codes
else	else
>code-address	>code-address
then ;	then ;
Line 631 forth definitions	Line 633 forth definitions
then ;	then ;

:noname	:noname
' dup >definer [ ' locals-wordlist >definer ] literal =	' dup >definer [ ' locals-wordlist ] literal >definer =
if	if
>body !	>body !
else	else
Line 641 forth definitions	Line 643 forth definitions
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 }
comp' drop dup >definer	comp' drop dup >definer
case	case
[ ' locals-wordlist >definer ] literal \ value	[ ' locals-wordlist ] literal >definer \ value
OF >body POSTPONE Aliteral POSTPONE ! ENDOF	OF >body POSTPONE Aliteral POSTPONE ! ENDOF
[ comp' clocal drop >definer ] literal	[ comp' clocal drop ] literal >definer
OF POSTPONE laddr# >body @ lp-offset, POSTPONE c! ENDOF	OF POSTPONE laddr# >body @ lp-offset, POSTPONE c! ENDOF
[ comp' wlocal drop >definer ] literal	[ comp' wlocal drop ] literal >definer
OF POSTPONE laddr# >body @ lp-offset, POSTPONE ! ENDOF	OF POSTPONE laddr# >body @ lp-offset, POSTPONE ! ENDOF
[ comp' dlocal drop >definer ] literal	[ comp' dlocal drop ] literal >definer
OF POSTPONE laddr# >body @ lp-offset, POSTPONE 2! ENDOF	OF POSTPONE laddr# >body @ lp-offset, POSTPONE 2! ENDOF
[ comp' flocal drop >definer ] literal	[ comp' flocal drop ] literal >definer
OF POSTPONE laddr# >body @ lp-offset, POSTPONE f! ENDOF	OF POSTPONE laddr# >body @ lp-offset, POSTPONE f! ENDOF
-&32 throw	-&32 throw
endcase ;	endcase ;

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

Removed from v.1.28
changed lines
	Added in v.1.31