gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

version 1.151, 2004/08/26 15:29:57	version 1.153, 2005/01/22 22:16:59
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 913 variable tail-nextp2 \ xt to execute for	Line 913 variable tail-nextp2 \ xt to execute for

: output-label2 ( -- )	: output-label2 ( -- )
." LABEL2(" prim prim-c-name 2@ type ." )" cr	." LABEL2(" prim prim-c-name 2@ type ." )" cr
." NEXT_P2;" cr ;	." NEXT_P1_5;" cr
	." LABEL3(" prim prim-c-name 2@ type ." )" cr
	." DO_GOTO;" cr ;

: output-c-tail1 { xt -- }	: output-c-tail1 { xt -- }
\ the final part of the generated C code, with xt printing LABEL2 or not.	\ the final part of the generated C code, with xt printing LABEL2 or not.