gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.21, 1999/01/17 14:09:13	version 1.22, 1999/01/21 20:09:14
Line 73 int die_on_signal=0;	Line 73 int die_on_signal=0;
#ifndef INCLUDE_IMAGE	#ifndef INCLUDE_IMAGE
static int clear_dictionary=0;	static int clear_dictionary=0;
static size_t pagesize=0;	static size_t pagesize=0;
	char *progname;
	#else
	char *progname = "gforth";
	int optind = 1;
#endif	#endif
static int debug=0;	static int debug=0;
char *progname;

/* image file format:	/* image file format:
* "#! binary-path -i\n" (e.g., "#! /usr/local/bin/gforth-0.4.0 -i\n")	* "#! binary-path -i\n" (e.g., "#! /usr/local/bin/gforth-0.4.0 -i\n")
Line 165 void relocate(Cell image, const char b	Line 168 void relocate(Cell image, const char b
image[i]+=(Cell)image;	image[i]+=(Cell)image;
}	}
}	}
	((ImageHeader*)(image))->base = image;
}	}

UCell checksum(Label symbols[])	UCell checksum(Label symbols[])
Line 685 int main(int argc, char argv, char e	Line 689 int main(int argc, char argv, char e

#ifdef INCLUDE_IMAGE	#ifdef INCLUDE_IMAGE
set_stack_sizes((ImageHeader *)image);	set_stack_sizes((ImageHeader *)image);
relocate(image, reloc_bits, ((ImageHeader)&image)->image_size, (Label)engine(0, 0, 0, 0, 0));	if(((ImageHeader *)image)->base != image)
	relocate(image, reloc_bits, ((ImageHeader *)image)->image_size,
	(Label*)engine(0, 0, 0, 0, 0));
alloc_stacks((ImageHeader *)image);	alloc_stacks((ImageHeader *)image);
#else	#else
image_file = open_image_file(imagename, path);	image_file = open_image_file(imagename, path);