gforth/prims2x0.6.2.fs - diff

Return to prims2x0.6.2.fs CVS log

Up to [gforth] / gforth

version 1.1, 2008/10/08 20:54:09	version 1.3, 2009/01/18 18:41:55
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,2008 Free Software Foundation, Inc.

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

Line 1191 variable tail-nextp2 \ xt to execute for	Line 1191 variable tail-nextp2 \ xt to execute for
stores ;	stores ;

: output-combined-tail ( -- )	: output-combined-tail ( -- )
part-output-c-tail
in-part @ >r in-part off	in-part @ >r in-part off
	part-output-c-tail
combined ['] output-c-tail-no-stores prim-context	combined ['] output-c-tail-no-stores prim-context
r> in-part ! ;	r> in-part ! ;