gforth/prims2x0.6.2.fs - diff

Return to prims2x0.6.2.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/prims2x0.6.2.fs between versions 1.5 and 1.6

version 1.5, 2009/02/14 19:50:23	version 1.6, 2009/02/17 20:48:47
Line 1205 variable tail-nextp2 \ xt to execute for	Line 1205 variable tail-nextp2 \ xt to execute for
print-debug-results	print-debug-results
stores ;	stores ;

	: stack-combined-tail-stores { stack -- }
	\ the top stack-out items of this part are stored elsewhere; so
	\ this store everything between max-depth, unless it was stored
	\ previously (below back-max-depth) and stack-out
	stack stack-number @ part-num @ 2dup 2>r s-c-max-depth @
	2r> s-c-max-back-depth @ min
	stack stack-depth -
	stack stack-out @ +do
	i stack normal-stack-access ." = "
	i stack part-stack-access ." ;" cr
	loop ;

	: combined-tail-stores ( -- )
	\ All the stores we have yet to do on an INST_TAIL that are the
	\ result of earlier parts (and will be consumed by other parts in
	\ the fallthrough path, and thus have not been stored in the
	\ earlier part).
	['] stack-combined-tail-stores map-stacks ;

: combined-tail-stack-pointer-update { stack -- }	: combined-tail-stack-pointer-update { stack -- }
stack stack-number @ { nstack }	stack stack-number @ { nstack }
nstack part-num @ 1+ s-c-depth @ ( nupdate-raw )	nstack part-num @ 1+ s-c-depth @ ( nupdate-raw )
Line 1220 variable tail-nextp2 \ xt to execute for	Line 1239 variable tail-nextp2 \ xt to execute for
in-part @ >r in-part off	in-part @ >r in-part off
combined-tail-stack-pointer-updates	combined-tail-stack-pointer-updates
part-output-c-tail	part-output-c-tail
	combined-tail-stores
combined ['] output-c-tail-no-stores prim-context	combined ['] output-c-tail-no-stores prim-context
r> in-part ! ;	r> in-part ! ;

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

Removed from v.1.5
changed lines
	Added in v.1.6