diff options
Diffstat (limited to 'byterun/stacks.c')
| -rw-r--r-- | byterun/stacks.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/byterun/stacks.c b/byterun/stacks.c index 3d0e2c466..a59783916 100644 --- a/byterun/stacks.c +++ b/byterun/stacks.c @@ -41,8 +41,8 @@ void init_stack (long unsigned int initial_max_size) trapsp = stack_high; trap_barrier = stack_high + 1; max_stack_size = initial_max_size; - gc_message (0x08, "Initial stack limit: %luk bytes\n", - max_stack_size / 1024 * sizeof (value)); + caml_gc_message (0x08, "Initial stack limit: %luk bytes\n", + max_stack_size / 1024 * sizeof (value)); } void realloc_stack(asize_t required_space) @@ -57,8 +57,8 @@ void realloc_stack(asize_t required_space) if (size >= max_stack_size) raise_stack_overflow(); size *= 2; } while (size < stack_high - extern_sp + required_space); - gc_message (0x08, "Growing stack to %luk bytes\n", - (unsigned long) size * sizeof(value) / 1024); + caml_gc_message (0x08, "Growing stack to %luk bytes\n", + (unsigned long) size * sizeof(value) / 1024); new_low = (value *) stat_alloc(size * sizeof(value)); new_high = new_low + size; @@ -95,8 +95,8 @@ void change_max_stack_size (long unsigned int new_max_size) if (new_max_size < size) new_max_size = size; if (new_max_size != max_stack_size){ - gc_message (0x08, "Changing stack limit to %luk bytes\n", - new_max_size * sizeof (value) / 1024); + caml_gc_message (0x08, "Changing stack limit to %luk bytes\n", + new_max_size * sizeof (value) / 1024); } max_stack_size = new_max_size; } |