version 1.126, 2012/07/23 13:27:48
|
version 1.127, 2012/07/23 14:15:52
|
Line 326 typedef struct {
|
Line 326 typedef struct {
|
UCell locals_stack_size; |
UCell locals_stack_size; |
Xt *boot_entry; /* initial ip for booting (in BOOT) */ |
Xt *boot_entry; /* initial ip for booting (in BOOT) */ |
Xt *throw_entry; /* ip after signal (in THROW) */ |
Xt *throw_entry; /* ip after signal (in THROW) */ |
Cell unused1; /* possibly tib stack size */ |
Xt *quit_entry; |
|
Xt *execute_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 398 int gforth_main(int argc, char **argv, c
|
Line 399 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(void *image, int stack, Cell *entries); |
int gforth_go(Xt* ip0); |
void gforth_cleanup(); |
void gforth_cleanup(); |
void gforth_printmetrics(); |
void gforth_printmetrics(); |
|
|