gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

version 1.126, 2002/12/31 14:50:53	version 1.128, 2003/01/19 23:35:30
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 Free Software Foundation, Inc.	\ Copyright (C) 1995-2003 Free Software Foundation, Inc.

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

Line 935 variable tail-nextp2 \ xt to execute for	Line 935 variable tail-nextp2 \ xt to execute for
\ cr ;	\ cr ;

: output-label ( -- )	: output-label ( -- )
." INST_ADDR(" 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 ;