gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.130, 2003/11/06 21:59:49	version 1.131, 2003/11/09 11:31:57
Line 140 char *progname = "gforth";	Line 140 char *progname = "gforth";
int optind = 1;	int optind = 1;
#endif	#endif

#define CODE_BLOCK_SIZE (256*1024)	#define CODE_BLOCK_SIZE (40961024) / !! overflow handling for -native */
Address code_area=0;	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
Line 1060 void register_branchinfo(Label source, C	Line 1060 void register_branchinfo(Label source, C

Cell *compile_prim1arg(PrimNum p)	Cell *compile_prim1arg(PrimNum p)
{	{
int l = priminfos[p].length;
Address old_code_here=code_here;	Address old_code_here=code_here;

assert(vm_prims[p]==priminfos[p].start);	assert(vm_prims[p]==priminfos[p].start);