gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

Diff for /gforth/engine/main.c between versions 1.96 and 1.97

version 1.96, 2003/01/20 17:07:40	version 1.97, 2003/01/26 12:31:45
Line 118 char *progname = "gforth";	Line 118 char *progname = "gforth";
int optind = 1;	int optind = 1;
#endif	#endif

#define CODE_BLOCK_SIZE (64*1024)	#define CODE_BLOCK_SIZE (256*1024)
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 476 int go_forth(Address image, int stack, C	Line 476 int go_forth(Address image, int stack, C
signal_data_stack[7]=throw_code;	signal_data_stack[7]=throw_code;

#ifdef GFORTH_DEBUGGING	#ifdef GFORTH_DEBUGGING
/* fprintf(stderr,"\nrp=%ld\n",(long)rp); */	if (debug)
	fprintf(stderr,"\ncaught signal, throwing exception %d, ip=%p rp=%p\n",
	throw_code, saved_ip, rp);
if (rp <= orig_rp0 && rp > (Cell *)(image_header->return_stack_base+5)) {	if (rp <= orig_rp0 && rp > (Cell *)(image_header->return_stack_base+5)) {
/* no rstack overflow or underflow */	/* no rstack overflow or underflow */
rp0 = rp;	rp0 = rp;
*--rp0 = (Cell)saved_ip;	*--rp0 = (Cell)saved_ip;
}	}
else /* I love non-syntactic ifdefs :-) */	else /* I love non-syntactic ifdefs :-) */
#endif	rp0 = signal_return_stack+8;
rp0 = signal_return_stack+8;	#else /* !defined(GFORTH_DEBUGGING) */
	if (debug)
	fprintf(stderr,"\ncaught signal, throwing exception %d\n", throw_code);
	rp0 = signal_return_stack+8;
	#endif /* !defined(GFORTH_DEBUGGING) */
/* fprintf(stderr, "rp=$%x\n",rp0);*/	/* fprintf(stderr, "rp=$%x\n",rp0);*/

return((int)(Cell)engine(image_header->throw_entry, signal_data_stack+7,	return((int)(Cell)engine(image_header->throw_entry, signal_data_stack+7,

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.96
changed lines
	Added in v.1.97