version 1.81, 2001/04/08 13:48:12
|
version 1.82, 2001/05/01 13:35:42
|
Line 2369 peephole-opt ( xt1 xt2 wpeeptable -- xt
|
Line 2369 peephole-opt ( xt1 xt2 wpeeptable -- xt
|
they cannot be combined, xt is 0."" |
they cannot be combined, xt is 0."" |
xt = peephole_opt(xt1, xt2, wpeeptable); |
xt = peephole_opt(xt1, xt2, wpeeptable); |
|
|
lit_plus = lit + |
|
|
|
call ( #a_callee -- R:a_retaddr ) |
call ( #a_callee -- R:a_retaddr ) |
""Call callee (a variant of docol with inline argument)."" |
""Call callee (a variant of docol with inline argument)."" |
a_retaddr = (Cell *)IP; |
a_retaddr = (Cell *)IP; |
Line 2379 SET_IP((Xt *)a_callee);
|
Line 2377 SET_IP((Xt *)a_callee);
|
useraddr ( #u -- a_addr ) |
useraddr ( #u -- a_addr ) |
a_addr = (Cell *)(up+u); |
a_addr = (Cell *)(up+u); |
|
|
|
include(peeprules.vmg) |
|
|
\+ |
\+ |