version 1.85, 2001/12/09 19:12:45
|
version 1.86, 2001/12/24 20:39:29
|
Line 2385 peephole-opt ( xt1 xt2 wpeeptable -- xt
|
Line 2385 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); |
|
|
call ( #a_callee -- R:a_retaddr ) |
call ( #a_callee -- R:a_retaddr ) new |
""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; |
SET_IP((Xt *)a_callee); |
SET_IP((Xt *)a_callee); |
|
|
useraddr ( #u -- a_addr ) |
useraddr ( #u -- a_addr ) new |
a_addr = (Cell *)(up+u); |
a_addr = (Cell *)(up+u); |
|
|
|
compile-prim ( xt1 -- xt2 ) new compile_prim |
|
xt2 = (Xt)compile_prim((Label)xt1); |
|
|
include(peeprules.vmg) |
include(peeprules.vmg) |
|
|
\+ |
\+ |