Return to prims2x.fs CVS log | Up to [gforth] / gforth |
version 1.169, 2007/12/31 18:40:24 | version 1.171, 2009/12/31 15:32:35 |
---|---|
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,2004,2005,2006,2007 Free Software Foundation, Inc. | \ Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005,2006,2007,2009 Free Software Foundation, Inc. |
\ This file is part of Gforth. | \ This file is part of Gforth. |
Line 1555 variable reprocessed-num 0 reprocessed-n | Line 1555 variable reprocessed-num 0 reprocessed-n |
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 ! ; |