gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.99, 2003/01/30 00:07:47	version 1.100, 2003/01/30 16:14:31
Line 123 Address code_area=0;	Line 123 Address code_area=0;
Cell code_area_size = CODE_BLOCK_SIZE;	Cell code_area_size = CODE_BLOCK_SIZE;
Address code_here=NULL+CODE_BLOCK_SIZE; /* does for code-area what HERE	Address code_here=NULL+CODE_BLOCK_SIZE; /* does for code-area what HERE
does for the dictionary */	does for the dictionary */
Address start_flush=NULL+CODE_BLOCK_SIZE; /* start of unflushed code */	Address start_flush=NULL; /* start of unflushed code */
Cell last_jump=0; /* if the last prim was compiled without jump, this	Cell last_jump=0; /* if the last prim was compiled without jump, this
is it's number, otherwise this contains 0 */	is it's number, otherwise this contains 0 */

Line 651 void check_prims(Label symbols1[])	Line 651 void check_prims(Label symbols1[])
void flush_to_here(void)	void flush_to_here(void)
{	{
#ifndef NO_DYNAMIC	#ifndef NO_DYNAMIC
FLUSH_ICACHE(start_flush, code_here-start_flush);	if (start_flush)
	FLUSH_ICACHE(start_flush, code_here-start_flush);
start_flush=code_here;	start_flush=code_here;
#endif	#endif
}	}