version 1.248, 2010/04/25 18:27:09
|
version 1.249, 2010/05/02 16:21:32
|
Line 2559 Address body = (Address)PFA(a_cfa);
|
Line 2559 Address body = (Address)PFA(a_cfa);
|
sp = (*f)(sp, &fp_mem, body); |
sp = (*f)(sp, &fp_mem, body); |
fp = fp_mem; |
fp = fp_mem; |
|
|
;code-exec ( #a_cfa -- ) gforth-internal semi_code_exec |
lit-execute ( #a_addr -- ) new lit_execute |
/* routine for performing ;code-defined words */ |
/* for ;code and code words; a static superinstruction would be more general, |
|
but VM_JUMP is currently not supported there */ |
|
#ifndef NO_IP |
|
ip=IP; |
|
#endif |
SUPER_END; |
SUPER_END; |
VM_JUMP(EXEC1(a_cfa)); |
VM_JUMP(EXEC1((Xt)a_addr)); |
|
|
|
|
\g static_super |
\g static_super |