--- gforth/prims2x.fs 2007/12/31 18:40:24 1.169 +++ gforth/prims2x.fs 2010/12/31 18:09:02 1.173 @@ -1,6 +1,6 @@ \ 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,2010 Free Software Foundation, Inc. \ This file is part of Gforth. @@ -1053,6 +1053,7 @@ variable tail-nextp2 \ xt to execute for tail-nextp2 @ output-c-tail1-no-stores ; : output-c-tail2-no-stores ( -- ) + prim prim-c-code 2@ s" VM_JUMP(" search nip nip abort" Currently VM_JUMP is not supported in static superinstructions" ['] output-label2 output-c-tail1-no-stores ; : type-c-code ( c-addr u xt -- ) @@ -1555,8 +1556,8 @@ variable reprocessed-num 0 reprocessed-n stores ; : output-combined-tail ( -- ) - part-output-c-tail in-part @ >r in-part off + part-output-c-tail combined ['] output-c-tail-no-stores prim-context r> in-part ! ;