version 1.88, 2002/01/04 20:31:53
|
version 1.89, 2002/01/05 20:16:17
|
Line 2412 a_addr = (Cell *)(up+u);
|
Line 2412 a_addr = (Cell *)(up+u);
|
compile-prim ( xt1 -- xt2 ) new compile_prim |
compile-prim ( xt1 -- xt2 ) new compile_prim |
xt2 = (Xt)compile_prim((Label)xt1); |
xt2 = (Xt)compile_prim((Label)xt1); |
|
|
|
lit@ ( #a_addr -- w ) new lit_fetch |
|
w = *a_addr; |
|
|
|
lit-perform ( #a_addr -- ) new lit_perform |
|
ip=IP; |
|
SUPER_END; |
|
EXEC(*(Xt *)a_addr); |
|
|
|
lit+ ( #n1 n2 -- n3 ) new lit_plus |
|
n3 = n1 + n2; |
|
|
|
does-exec ( #a_cfa -- R:nest a_pfa ) new does_exec |
|
a_pfa = PFA(a_cfa); |
|
nest = (Cell)ip; |
|
IF_spTOS(spTOS = sp[0]); |
|
SUPER_END; |
|
SET_IP(DOES_CODE1(a_cfa)); |
|
SUPER_END; |
|
|
include(peeprules.vmg) |
include(peeprules.vmg) |
|
|
\+ |
\+ |