diff options
Diffstat (limited to 'byterun/stacks.c')
| -rw-r--r-- | byterun/stacks.c | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/byterun/stacks.c b/byterun/stacks.c index ed8f06527..f43a44230 100644 --- a/byterun/stacks.c +++ b/byterun/stacks.c @@ -30,9 +30,9 @@ CAMLexport value * caml_trapsp; CAMLexport value * caml_trap_barrier; value caml_global_data; -unsigned long caml_max_stack_size; /* also used in gc_ctrl.c */ +uintnat caml_max_stack_size; /* also used in gc_ctrl.c */ -void caml_init_stack (long unsigned int initial_max_size) +void caml_init_stack (uintnat initial_max_size) { caml_stack_low = (value *) caml_stat_alloc(Stack_size); caml_stack_high = caml_stack_low + Stack_size / sizeof (value); @@ -57,8 +57,9 @@ void caml_realloc_stack(asize_t required_space) if (size >= caml_max_stack_size) caml_raise_stack_overflow(); size *= 2; } while (size < caml_stack_high - caml_extern_sp + required_space); - caml_gc_message (0x08, "Growing stack to %luk bytes\n", - (unsigned long) size * sizeof(value) / 1024); + caml_gc_message (0x08, "Growing stack to %" + ARCH_INTNAT_PRINTF_FORMAT "uk bytes\n", + (uintnat) size * sizeof(value) / 1024); new_low = (value *) caml_stat_alloc(size * sizeof(value)); new_high = new_low + size; @@ -89,7 +90,7 @@ CAMLprim value caml_ensure_stack_capacity(value required_space) return Val_unit; } -void caml_change_max_stack_size (long unsigned int new_max_size) +void caml_change_max_stack_size (uintnat new_max_size) { asize_t size = caml_stack_high - caml_extern_sp + Stack_threshold / sizeof (value); |