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.37 and 1.38

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

version 1.37, 2000/07/27 10:40:42	version 1.38, 2000/09/07 08:28:50
Line 347 void alloc_stacks(ImageHeader * header)	Line 347 void alloc_stacks(ImageHeader * header)

int go_forth(Address image, int stack, Cell *entries)	int go_forth(Address image, int stack, Cell *entries)
{	{
ImageHeader image_header = (ImageHeader )image;	volatile ImageHeader image_header = (ImageHeader )image;
Cell sp0=(Cell)(image_header->data_stack_base + dsize);	Cell sp0=(Cell)(image_header->data_stack_base + dsize);
Float fp0=(Float )(image_header->fp_stack_base + fsize);	Float fp0=(Float )(image_header->fp_stack_base + fsize);
Cell rp0=(Cell )(image_header->return_stack_base + rsize);	Cell rp0=(Cell )(image_header->return_stack_base + rsize);
	volatile Cell *orig_rp0=rp0;
Address lp0=image_header->locals_stack_base + lsize;	Address lp0=image_header->locals_stack_base + lsize;
Xt ip0=(Xt )(image_header->boot_entry);	Xt ip0=(Xt )(image_header->boot_entry);
#ifdef SYSSIGNALS	#ifdef SYSSIGNALS
Line 377 int go_forth(Address image, int stack, C	Line 378 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
if (rp <= rp0 && rp > (Cell *)(image_header->return_stack_base+5)) {	/* fprintf(stderr,"\nrp=%ld\n",(long)rp); */
	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)ip;	*--rp0 = (Cell)ip;

Removed from v.1.37
changed lines
	Added in v.1.38