version 1.130, 2003/11/06 21:59:49
|
version 1.131, 2003/11/09 11:31:57
|
Line 140 char *progname = "gforth";
|
Line 140 char *progname = "gforth";
|
int optind = 1; |
int optind = 1; |
#endif |
#endif |
|
|
#define CODE_BLOCK_SIZE (256*1024) |
#define CODE_BLOCK_SIZE (4096*1024) /* !! overflow handling for -native */ |
Address code_area=0; |
Address code_area=0; |
Cell code_area_size = CODE_BLOCK_SIZE; |
Cell code_area_size = CODE_BLOCK_SIZE; |
Address code_here=NULL+CODE_BLOCK_SIZE; /* does for code-area what HERE |
Address code_here=NULL+CODE_BLOCK_SIZE; /* does for code-area what HERE |
Line 1060 void register_branchinfo(Label source, C
|
Line 1060 void register_branchinfo(Label source, C
|
|
|
Cell *compile_prim1arg(PrimNum p) |
Cell *compile_prim1arg(PrimNum p) |
{ |
{ |
int l = priminfos[p].length; |
|
Address old_code_here=code_here; |
Address old_code_here=code_here; |
|
|
assert(vm_prims[p]==priminfos[p].start); |
assert(vm_prims[p]==priminfos[p].start); |