diff options
Diffstat (limited to 'byterun/minor_gc.c')
| -rw-r--r-- | byterun/minor_gc.c | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/byterun/minor_gc.c b/byterun/minor_gc.c index e328ddd4c..ec0203e92 100644 --- a/byterun/minor_gc.c +++ b/byterun/minor_gc.c @@ -185,7 +185,7 @@ void empty_minor_heap (void) if (young_ptr != young_end){ in_minor_collection = 1; - gc_message (0x02, "<", 0); + caml_gc_message (0x02, "<", 0); oldify_local_roots(); for (r = ref_table; r < ref_table_ptr; r++){ oldify_one (**r, *r); @@ -197,7 +197,7 @@ void empty_minor_heap (void) young_limit = young_start; ref_table_ptr = ref_table; ref_table_limit = ref_table_threshold; - gc_message (0x02, ">", 0); + caml_gc_message (0x02, ">", 0); in_minor_collection = 0; } final_empty_young (); @@ -244,7 +244,7 @@ void realloc_ref_table (void) Assert (ref_table_limit >= ref_table_threshold); if (ref_table_limit == ref_table_threshold){ - gc_message (0x08, "ref_table threshold crossed\n", 0); + caml_gc_message (0x08, "ref_table threshold crossed\n", 0); ref_table_limit = ref_table_end; urge_major_slice (); }else{ /* This will almost never happen with the bytecode interpreter. */ @@ -254,9 +254,11 @@ void realloc_ref_table (void) ref_table_size *= 2; sz = (ref_table_size + ref_table_reserve) * sizeof (value *); - gc_message (0x08, "Growing ref_table to %ldk bytes\n", (long) sz / 1024); + caml_gc_message (0x08, "Growing ref_table to %ldk bytes\n", (long) sz/1024); ref_table = (value **) realloc ((char *) ref_table, sz); - if (ref_table == NULL) fatal_error ("Fatal error: ref_table overflow\n"); + if (ref_table == NULL){ + caml_fatal_error ("Fatal error: ref_table overflow\n"); + } ref_table_end = ref_table + ref_table_size + ref_table_reserve; ref_table_threshold = ref_table + ref_table_size; ref_table_ptr = ref_table + cur_ptr; |