version 1.114, 2011/11/13 00:45:21
|
version 1.115, 2011/11/16 20:36:13
|
Line 424 Label *gforth_engine(Xt *ip0, Cell *sp0,
|
Line 424 Label *gforth_engine(Xt *ip0, Cell *sp0,
|
#endif |
#endif |
} |
} |
|
|
#if !(defined(GFORTH_DEBUGGING) || defined(INDIRECT_THREADED) || defined(DOUBLY_INDIRECT) || defined(VM_PROFILING)) |
#ifdef USE_TOS |
sp += STACK_CACHE_DEFAULT-1; |
sp += STACK_CACHE_DEFAULT-1; |
/* some of those registers are dead, but its simpler to initialize them all */ spTOS = sp[0]; |
/* some of those registers are dead, but its simpler to initialize them all */ spTOS = sp[0]; |
spb = sp[-1]; |
spb = sp[-1]; |