version 1.74, 2001/02/24 13:44:39
|
version 1.77, 2001/02/28 22:31:43
|
Line 139 execute ( xt -- ) core
|
Line 139 execute ( xt -- ) core
|
""Perform the semantics represented by the execution token, @i{xt}."" |
""Perform the semantics represented by the execution token, @i{xt}."" |
ip=IP; |
ip=IP; |
IF_spTOS(spTOS = sp[0]); |
IF_spTOS(spTOS = sp[0]); |
|
SUPER_END; |
EXEC(xt); |
EXEC(xt); |
|
|
perform ( a_addr -- ) gforth |
perform ( a_addr -- ) gforth |
Line 146 perform ( a_addr -- ) gforth
|
Line 147 perform ( a_addr -- ) gforth
|
/* and pfe */ |
/* and pfe */ |
ip=IP; |
ip=IP; |
IF_spTOS(spTOS = sp[0]); |
IF_spTOS(spTOS = sp[0]); |
|
SUPER_END; |
EXEC(*(Xt *)a_addr); |
EXEC(*(Xt *)a_addr); |
: |
: |
@ execute ; |
@ execute ; |
Line 1422 cache.""
|
Line 1424 cache.""
|
FLUSH_ICACHE(c_addr,u); |
FLUSH_ICACHE(c_addr,u); |
|
|
(bye) ( n -- ) gforth paren_bye |
(bye) ( n -- ) gforth paren_bye |
|
SUPER_END; |
return (Label *)n; |
return (Label *)n; |
|
|
(system) ( c_addr u -- wretval wior ) gforth peren_system |
(system) ( c_addr u -- wretval wior ) gforth peren_system |
Line 2346 while(a_addr != NULL)
|
Line 2349 while(a_addr != NULL)
|
primtable ( -- wprimtable ) new |
primtable ( -- wprimtable ) new |
""wprimtable is a table containing the xts of the primitives indexed |
""wprimtable is a table containing the xts of the primitives indexed |
by sequence-number in prim (for use in prepare-peephole-table)."" |
by sequence-number in prim (for use in prepare-peephole-table)."" |
wprimtable = (Cell)primtable(symbols+DOESJUMP+1,MAX_SYMBOLS); |
wprimtable = (Cell)primtable(symbols+DOESJUMP+1,MAX_SYMBOLS-DOESJUMP-1); |
|
|
prepare-peephole-table ( wprimtable -- wpeeptable ) new prepare_peephole_opt |
prepare-peephole-table ( wprimtable -- wpeeptable ) new prepare_peephole_opt |
""wpeeptable is a data structure used by @code{peephole-opt}; it is |
""wpeeptable is a data structure used by @code{peephole-opt}; it is |
Line 2360 they cannot be combined, xt is 0.""
|
Line 2363 they cannot be combined, xt is 0.""
|
xt = peephole_opt(xt1, xt2, wpeeptable); |
xt = peephole_opt(xt1, xt2, wpeeptable); |
|
|
lit_plus = lit + |
lit_plus = lit + |
|
|
|
call ( #a_callee -- R:a_retaddr ) |
|
""Call callee (a variant of docol with inline argument)."" |
|
a_retaddr = (Cell *)IP; |
|
SET_IP((Xt *)a_callee); |
|
|
|
useraddr ( #u -- a_addr ) |
|
a_addr = (Cell *)(up+u); |
|
|
|
|
|
|