gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.181, 2012/03/09 21:16:22	version 1.184, 2012/12/31 15:25:18
Line 1	Line 1
\ CROSS.FS The Cross-Compiler 06oct92py	\ CROSS.FS The Cross-Compiler 06oct92py
\ Idea and implementation: Bernd Paysan (py)	\ Idea and implementation: Bernd Paysan (py)

\ Copyright (C) 1995,1996,1997,1998,1999,2000,2003,2004,2005,2006,2007,2009,2010,2011 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,1999,2000,2003,2004,2005,2006,2007,2009,2010,2011,2012 Free Software Foundation, Inc.

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

Line 2057 $20 constant restrict-mask	Line 2057 $20 constant restrict-mask
<res> <> ABORT" CROSS: Cannot immediate a unresolved word"	<res> <> ABORT" CROSS: Cannot immediate a unresolved word"
<imm> ^imm @ ! ;	<imm> ^imm @ ! ;
: restrict restrict-mask flag! ;	: restrict restrict-mask flag! ;
	: compile-only restrict-mask flag! ;

: isdoer	: isdoer
\G define a forth word as doer, this makes obviously only sence on	\G define a forth word as doer, this makes obviously only sence on
Line 2649 Defer instant-interpret-does>-hook ' no	Line 2650 Defer instant-interpret-does>-hook ' no

T has? primcentric H [IF]	T has? primcentric H [IF]
: does-resolved ( ghost -- )	: does-resolved ( ghost -- )
	\ g>xt dup T >body H alit, compile call T cell+ @ a, H ;
compile does-exec g>xt T a, H ;	compile does-exec g>xt T a, H ;
[ELSE]	[ELSE]
: does-resolved ( ghost -- )	: does-resolved ( ghost -- )