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 -- ) |