gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.186, 2007/07/01 15:42:17	version 1.187, 2007/09/09 09:41:31
Line 720 int gforth_go(Address image, int stack,	Line 720 int gforth_go(Address image, int stack,
/* ensure that the cached elements (if any) are accessible */	/* ensure that the cached elements (if any) are accessible */
#if !(defined(GFORTH_DEBUGGING) \|\| defined(INDIRECT_THREADED) \|\| defined(DOUBLY_INDIRECT) \|\| defined(VM_PROFILING))	#if !(defined(GFORTH_DEBUGGING) \|\| defined(INDIRECT_THREADED) \|\| defined(DOUBLY_INDIRECT) \|\| defined(VM_PROFILING))
sp0 -= 8; /* make stuff below bottom accessible for stack caching */	sp0 -= 8; /* make stuff below bottom accessible for stack caching */
	fp0--;
#endif	#endif
IF_fpTOS(fp0--);

for(;stack>0;stack--)	for(;stack>0;stack--)
*--sp0=entries[stack-1];	*--sp0=entries[stack-1];