Return to prim CVS log | Up to [gforth] / gforth |
version 1.272, 2012/05/26 10:20:01 | version 1.273, 2012/07/15 12:03:07 |
---|---|
Line 2793 ip=IP; | Line 2793 ip=IP; |
SUPER_END; | SUPER_END; |
VM_JUMP(EXEC1((Xt)a_addr)); | VM_JUMP(EXEC1((Xt)a_addr)); |
\+objects | |
\g object_pointer | |
>o ( c_addr -- r:c_old ) new to_o | |
c_old = op; | |
op = c_addr; | |
o> ( r:c_addr -- ) new o_restore | |
op = c_addr; | |
o#+ ( #w -- c_addr ) new o_lit_plus | |
c_addr = op + w; | |
\+ | |
\g static_super | \g static_super |
ifdef(`STACK_CACHE_FILE', | ifdef(`STACK_CACHE_FILE', |