gforth/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth

version 1.45, 1996/10/25 17:09:44	version 1.46, 1996/11/07 22:31:33
Line 40	Line 40
jmp_buf throw_jmp_buf;	jmp_buf throw_jmp_buf;
#endif	#endif

#ifndef FUZZ
# define FUZZ 0x4000
#endif

#ifndef DEFAULTPATH	#ifndef DEFAULTPATH
# define DEFAULTPATH "/usr/local/lib/gforth:."	# define DEFAULTPATH "/usr/local/lib/gforth:."
#endif	#endif
Line 226 Address loader(FILE imagefile, char fi	Line 222 Address loader(FILE imagefile, char fi
wholesize = preamblesize+dictsize+dsize+rsize+fsize+lsize;	wholesize = preamblesize+dictsize+dsize+rsize+fsize+lsize;
imagesize = preamblesize+header.image_size+((header.image_size-1)/sizeof(Cell))/8+1;	imagesize = preamblesize+header.image_size+((header.image_size-1)/sizeof(Cell))/8+1;
image=malloc((wholesize>imagesize?wholesize:imagesize)	image=malloc((wholesize>imagesize?wholesize:imagesize)
#ifndef __unix__	#ifdef FUZZ
+FUZZ	+FUZZ
#endif	#endif
);	);
/image = maxaligned(image);/	/image = maxaligned(image);/
/* memset(image,0,wholesize); */	/* memset(image,0,wholesize); */

#ifndef __unix__	#ifdef FUZZ
#warning Non-Unix machine, trying to help relocate with FUZZ
if(header.base==0) image += FUZZ/2;	if(header.base==0) image += FUZZ/2;
else if((UCell)(header.base - (Cell)image + preamblesize) < FUZZ)	else if((UCell)(header.base - (Cell)image + preamblesize) < FUZZ)
image = header.base - preamblesize;	image = header.base - preamblesize;