gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

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

version 1.149, 2004/01/20 19:07:41	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
Line 1583 variable offset-super2 0 offset-super2	Line 1585 variable offset-super2 0 offset-super2
output-name-comment	output-name-comment
cr ;	cr ;

: output-costs ( -- )	\ : output-costs ( -- )
\ description of superinstructions and simple instructions	\ \ description of superinstructions and simple instructions
." {" prim compute-costs	\ ." {" prim compute-costs
rot 2 .r ." ," swap 2 .r ." ," 2 .r ." ,"	\ rot 2 .r ." ," swap 2 .r ." ," 2 .r ." ,"
offset-super2 @ 5 .r ." ,"	\ offset-super2 @ 5 .r ." ,"
super2-length dup 2 .r ." }," offset-super2 +!	\ super2-length dup 2 .r ." ," offset-super2 +!
output-name-comment	\ inst-stream stack-in @ 1 .r ." },"
cr ;	\ output-name-comment
	\ cr ;

: output-super2-simple ( -- )	: output-super2-simple ( -- )
prim prim-c-name 2@ prim prim-c-name-orig 2@ d= if	prim prim-c-name 2@ prim prim-c-name-orig 2@ d= if

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

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