version 1.113, 2003/01/02 16:48:12
|
version 1.114, 2003/01/07 22:38:36
|
Line 2486 f = forget_dyncode(c_code);
|
Line 2486 f = forget_dyncode(c_code);
|
decompile-prim ( a_code -- a_prim ) gforth-internal decompile_prim |
decompile-prim ( a_code -- a_prim ) gforth-internal decompile_prim |
""a_prim is the code address of the primitive that has been |
""a_prim is the code address of the primitive that has been |
compile_prim1ed to a_code"" |
compile_prim1ed to a_code"" |
a_prim = decompile_code(a_code); |
a_prim = (Label)decompile_code((Label)a_code); |
|
|
\+ |
\+ |
|
|