Return to prim CVS log | Up to [gforth] / gforth |
version 1.102, 2002/11/24 13:54:00 | version 1.103, 2002/12/03 10:47:49 |
---|---|
Line 2461 does-exec ( #a_cfa -- R:nest a_pfa ) new | Line 2461 does-exec ( #a_cfa -- R:nest a_pfa ) new |
assert(0); | assert(0); |
#else | #else |
a_pfa = PFA(a_cfa); | a_pfa = PFA(a_cfa); |
nest = (Cell)ip; | nest = (Cell)IP; |
IF_spTOS(spTOS = sp[0]); | IF_spTOS(spTOS = sp[0]); |
#ifdef DEBUG | #ifdef DEBUG |
{ | { |