gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

version 1.98, 2001/06/16 22:53:36	version 1.102, 2001/12/24 14:09:06
Line 647 stack inst-stream IP Cell	Line 647 stack inst-stream IP Cell
2drop type ;	2drop type ;

: print-entry ( -- )	: print-entry ( -- )
." I_" 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 ." ) */" cr
Line 767 stack inst-stream IP Cell	Line 767 stack inst-stream IP Cell
\ cr ;	\ cr ;

: output-label ( -- )	: output-label ( -- )
." (Label)&&I_" prim prim-c-name 2@ type ." ," cr ;	." INST_ADDR(" prim prim-c-name 2@ type ." )," cr ;

: output-alias ( -- )	: output-alias ( -- )
( primitive-number @ . ." alias " ) ." Primitive " prim prim-name 2@ type cr ;	( primitive-number @ . ." alias " ) ." Primitive " prim prim-name 2@ type cr ;
Line 799 stack inst-stream IP Cell	Line 799 stack inst-stream IP Cell
name-line @ 0 .r	name-line @ 0 .r
." ,0" cr ;	." ,0" cr ;

	: output-vi-tag ( -- )
	name-filename 2@ type #tab emit
	prim prim-name 2@ type #tab emit
	." /^" prim prim-name 2@ type ." *(/" cr ;

[IFDEF] documentation	[IFDEF] documentation
: register-doc ( -- )	: register-doc ( -- )
prim prim-name 2@ documentation ['] create insert-wordlist	prim prim-name 2@ documentation ['] create insert-wordlist