version 1.245, 2009/12/31 15:32:35
|
version 1.247, 2010/04/17 21:32:49
|
Line 233 SET_IP(DOES_CODE1(CFA));
|
Line 233 SET_IP(DOES_CODE1(CFA));
|
""just a slot to have an encoding for the DOESJUMP, |
""just a slot to have an encoding for the DOESJUMP, |
which is no longer used anyway (!! eliminate this)"" |
which is no longer used anyway (!! eliminate this)"" |
|
|
|
(doabicode) ( ... -- ...) gforth-internal paren_doabicode |
|
""run-time routine for ABI-CODE definitions"" |
|
abifunc *f = (abifunc *)PFA(CFA); |
|
Float *fp_mem = fp; |
|
sp = (*f)(sp, &fp_mem); |
|
fp = fp_mem; |
|
#ifdef NO_IP |
|
INST_TAIL; |
|
goto *next_code; |
|
#endif /* defined(NO_IP) */ |
|
|
\F [endif] |
\F [endif] |
|
|
\g control |
\g control |
Line 625 k ( R:w R:w1 R:w2 R:w3 R:w4 -- w R:w R:w
|
Line 636 k ( R:w R:w1 R:w2 R:w3 R:w4 -- w R:w R:w
|
|
|
\ digit is high-level: 0/0% |
\ digit is high-level: 0/0% |
|
|
|
abi-call ( #a_callee ... -- ... ) gforth abi_call |
|
abifunc *f = (abifunc *)a_callee; |
|
Float *fp_mem = fp; |
|
sp = (*f)(sp, &fp_mem); |
|
fp = fp_mem; |
|
|
\g strings |
\g strings |
|
|
move ( c_from c_to ucount -- ) core |
move ( c_from c_to ucount -- ) core |