gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/prims2x.fs between versions 1.121 and 1.123

version 1.121, 2002/11/24 13:54:01	version 1.123, 2002/12/27 15:51:28
Line 669 stack inst-stream IP Cell	Line 669 stack inst-stream IP Cell
prim prim-effect-in prim prim-effect-in-end @ ['] fetch map-items ;	prim prim-effect-in prim prim-effect-in-end @ ['] fetch map-items ;

: stack-pointer-update { stack -- }	: stack-pointer-update { stack -- }
\ stack grow downwards	\ stacks grow downwards
stack stack-diff	stack stack-diff
?dup-if \ this check is not necessary, gcc would do this for us	?dup-if \ this check is not necessary, gcc would do this for us
stack inst-stream = if	stack inst-stream = if
Line 922 stack inst-stream IP Cell	Line 922 stack inst-stream IP Cell
: output-alias ( -- )	: output-alias ( -- )
( primitive-number @ . ." alias " ) ." Primitive " prim prim-name 2@ type cr ;	( primitive-number @ . ." alias " ) ." Primitive " prim prim-name 2@ type cr ;

: output-prim-num ( -- )	: output-c-prim-num ( -- )
prim prim-num @ 8 + 4 .r space prim prim-name 2@ type cr ;	." #define N_" prim prim-c-name 2@ type prim prim-num @ 8 + 4 .r cr ;

: output-forth ( -- )	: output-forth ( -- )
prim prim-forth-code @ 0=	prim prim-forth-code @ 0=
Line 1166 stack inst-stream IP Cell	Line 1166 stack inst-stream IP Cell
r> in-part ! ;	r> in-part ! ;

: part-stack-pointer-updates ( -- )	: part-stack-pointer-updates ( -- )
max-stacks 0 +do	next-stack-number @ 0 +do
i part-num @ 1+ s-c-max-depth @ dup	i part-num @ 1+ s-c-max-depth @ dup
i num-combined @ s-c-max-depth @ = \ final depth	i num-combined @ s-c-max-depth @ = \ final depth
swap i part-num @ s-c-max-depth @ <> \ just reached now	swap i part-num @ s-c-max-depth @ <> \ just reached now

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

Removed from v.1.121
changed lines
	Added in v.1.123