version 1.103, 2002/12/03 10:47:49
|
version 1.104, 2002/12/13 15:49:53
|
Line 2750 SUPER_CONTINUE;
|
Line 2750 SUPER_CONTINUE;
|
cell+ |
cell+ |
THEN >r ; |
THEN >r ; |
|
|
|
\ set-next-code and call2 do not appear in images and can be |
|
\ renumbered arbitrarily |
|
|
set-next-code ( #w -- ) gforth set_next_code |
set-next-code ( #w -- ) gforth set_next_code |
#ifdef NO_IP |
#ifdef NO_IP |
next_code = (Label)w; |
next_code = (Label)w; |
Line 2773 finish-code ( -- ) gforth finish_code
|
Line 2776 finish-code ( -- ) gforth finish_code
|
flushing)."" |
flushing)."" |
finish_code(); |
finish_code(); |
|
|
|
forget-dyncode ( a_code -- f ) gforth-internal forget_dyncode |
|
f = forget_dyncode(a_code); |
|
|
|
decompile-prim ( a_code -- a_prim ) gforth-internal decompile_prim |
|
""a_prim is the code address of the primitive that has been |
|
compile_prim1ed to a_code"" |
|
a_prim = decompile_code(a_code); |
|
|
\+ |
\+ |
|
|
include(peeprules.vmg) |
include(peeprules.vmg) |