gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

version 1.170, 2009/01/18 18:41:55	version 1.173, 2010/12/31 18:09:02
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,2010 Free Software Foundation, Inc.

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

Line 1053 variable tail-nextp2 \ xt to execute for	Line 1053 variable tail-nextp2 \ xt to execute for
tail-nextp2 @ output-c-tail1-no-stores ;	tail-nextp2 @ output-c-tail1-no-stores ;

: output-c-tail2-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 ;	['] output-label2 output-c-tail1-no-stores ;

: type-c-code ( c-addr u xt -- )	: type-c-code ( c-addr u xt -- )