gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/prims2x.fs between versions 1.147 and 1.149

version 1.147, 2003/11/03 20:13:35	version 1.149, 2004/01/20 19:07:41
Line 716 stack inst-stream IP Cell	Line 716 stack inst-stream IP Cell
default-ss s state-sss i th !	default-ss s state-sss i th !
loop ;	loop ;

	: .state ( state -- )
	0 >body - >name .name ;

: set-ss ( ss stack state -- )	: set-ss ( ss stack state -- )
state-sss swap stack-number @ th ! ;	state-sss swap stack-number @ th ! ;

Line 961 variable tail-nextp2 \ xt to execute for	Line 964 variable tail-nextp2 \ xt to execute for
." LABEL(" prim prim-c-name 2@ type ." )" ;	." LABEL(" prim prim-c-name 2@ type ." )" ;

: output-c ( -- )	: output-c ( -- )
print-entry ." /* " prim prim-name 2@ type ." ( " prim prim-stack-string 2@ type ." ) */" cr	print-entry ." /* " prim prim-name 2@ type
	." ( " prim prim-stack-string 2@ type ." ) "
	state-in .state ." -- " state-out .state ." */" cr
." /* " prim prim-doc 2@ type ." */" cr	." /* " prim prim-doc 2@ type ." */" cr
." NAME(" quote prim prim-name 2@ type quote ." )" cr \ debugging	." NAME(" quote prim prim-name 2@ type quote ." )" cr \ debugging
." {" cr	." {" cr
Line 1110 variable tail-nextp2 \ xt to execute for	Line 1115 variable tail-nextp2 \ xt to execute for
: 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-c-prim-num ( -- )	defer output-c-prim-num ( -- )

	:noname ( -- )
." N_" prim prim-c-name 2@ type ." ," cr ;	." N_" prim prim-c-name 2@ type ." ," cr ;
	is output-c-prim-num

: output-forth ( -- )	: output-forth ( -- )
prim prim-forth-code @ 0=	prim prim-forth-code @ 0=

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

Removed from v.1.147
changed lines
	Added in v.1.149