gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

version 1.150, 2004/08/23 14:30:23	version 1.152, 2004/12/31 13:23:58
Line 1	Line 1
\ converts primitives to, e.g., C code	\ converts primitives to, e.g., C code

\ Copyright (C) 1995,1996,1997,1998,2000,2003 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,2000,2003,2004 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 1567 variable offset-super2 0 offset-super2	Line 1567 variable offset-super2 0 offset-super2
rot 2 .r ." ," swap 2 .r ." ," 2 .r ." , "	rot 2 .r ." ," swap 2 .r ." ," 2 .r ." , "
prim prim-branch? negate . ." ,"	prim prim-branch? negate . ." ,"
state-in state-number @ 2 .r ." ,"	state-in state-number @ 2 .r ." ,"
state-out state-number @ 2 .r ." ," ;	state-out state-number @ 2 .r ." ,"
	inst-stream stack-in @ 1 .r ." ,"
	;

: output-costs-gforth-simple ( -- )	: output-costs-gforth-simple ( -- )
output-costs-prefix	output-costs-prefix
prim output-num-part	prim output-num-part
1 2 .r ." ,"	1 2 .r ." },"
inst-stream stack-in @ 1 .r ." },"
output-name-comment	output-name-comment
cr ;	cr ;

: output-costs-gforth-combined ( -- )	: output-costs-gforth-combined ( -- )
output-costs-prefix	output-costs-prefix
." N_START_SUPER+" offset-super2 @ 5 .r ." ,"	." N_START_SUPER+" offset-super2 @ 5 .r ." ,"
super2-length dup 2 .r ." ," offset-super2 +!	super2-length dup 2 .r ." }," offset-super2 +!
inst-stream stack-in @ 1 .r ." },"
output-name-comment	output-name-comment
cr ;	cr ;