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(); |
|
|