Return to prim CVS log | Up to [gforth] / gforth |
version 1.170, 2005/03/17 18:49:03 | version 1.171, 2005/07/27 19:44:20 |
---|---|
Line 291 assert(0); | Line 291 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]); | |
#ifdef DEBUG | #ifdef DEBUG |
{ | { |
CFA_TO_NAME(a_cfa); | CFA_TO_NAME(a_cfa); |