| 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 |
| 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); |
| |
|
| |
|
| |
|
