gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

version 1.11, 1994/11/17 15:53:19	version 1.13, 1995/02/22 18:40:19
Line 515 set-current	Line 515 set-current
: output-c ( -- )	: output-c ( -- )
." I_" c-name 2@ type ." : /* " forth-name 2@ type ." ( " stack-string 2@ type ." ) */" cr	." I_" c-name 2@ type ." : /* " forth-name 2@ type ." ( " stack-string 2@ type ." ) */" cr
." /* " doc 2@ type ." */" cr	." /* " doc 2@ type ." */" cr
	." NAME(" [char] " emit forth-name 2@ type [char] " emit ." )" cr \ debugging
." {" cr	." {" cr
." DEF_CA" cr	." DEF_CA" cr
declarations	declarations
compute-offsets \ for everything else	compute-offsets \ for everything else
	." NEXT_P0;" cr
flush-tos	flush-tos
fetches	fetches
stack-pointer-updates cr	stack-pointer-updates
." NAME(" [char] " emit forth-name 2@ type [char] " emit ." )" cr \ debugging
." {" cr	." {" cr
c-code 2@ type	c-code 2@ type
." }" cr	." }" cr