gforth/engine/forth.h - diff

Return to forth.h CVS log

Up to [gforth] / gforth / engine

version 1.128, 2012/07/23 14:28:26	version 1.129, 2012/07/23 14:46:31
Line 328 typedef struct {	Line 328 typedef struct {
Xt throw_entry; / ip after signal (in THROW) */	Xt throw_entry; / ip after signal (in THROW) */
Xt *quit_entry;	Xt *quit_entry;
Xt *execute_entry;	Xt *execute_entry;
	Xt *find_entry;
Label xt_base; / base of DOUBLE_INDIRECT xts[], for comp-i.fs */	Label xt_base; / base of DOUBLE_INDIRECT xts[], for comp-i.fs */
} ImageHeader;	} ImageHeader;
/* the image-header is created in main.fs */	/* the image-header is created in main.fs */
Line 399 int gforth_main(int argc, char **argv, c	Line 400 int gforth_main(int argc, char **argv, c
void gforth_args(int argc, char argv, char path, char ** imagename);	void gforth_args(int argc, char argv, char path, char ** imagename);
Address gforth_loader(char* imagename, char* path);	Address gforth_loader(char* imagename, char* path);
user_area* gforth_stacks(Cell dsize, Cell rsize, Cell fsize, Cell lsize);	user_area* gforth_stacks(Cell dsize, Cell rsize, Cell fsize, Cell lsize);
int gforth_go(Xt* ip0);	Cell gforth_go(Xt* ip0);
int gforth_boot(int argc, char** argv, char* path);	int gforth_boot(int argc, char** argv, char* path);
int gforth_quit();	int gforth_quit();
	Xt gforth_find(Char * name);
	int gforth_execute(Xt xt);
void gforth_cleanup();	void gforth_cleanup();
void gforth_printmetrics();	void gforth_printmetrics();