Return to prim CVS log | Up to [gforth] / gforth |
version 1.106, 2002/12/16 20:40:10 | version 1.107, 2002/12/19 23:23:49 |
---|---|
Line 2429 SET_IP((Xt *)a_callee); | Line 2429 SET_IP((Xt *)a_callee); |
useraddr ( #u -- a_addr ) new | useraddr ( #u -- a_addr ) new |
a_addr = (Cell *)(up+u); | a_addr = (Cell *)(up+u); |
compile-prim ( xt1 -- xt2 ) new compile_prim | compile-prim ( xt1 -- xt2 ) obsolete compile_prim |
xt2 = (Xt)compile_prim((Label)xt1); | xt2 = (Xt)compile_prim((Label)xt1); |
\ lit@ / lit_fetch = lit @ | \ lit@ / lit_fetch = lit @ |