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