Statistical memory profiling of blocks allocated in the major heap.

1 files changed, 4 insertions, 3 deletions

diff --git a/runtime/minor_gc.c b/runtime/minor_gc.c
index fce3ae06a5..8cdaddd4f8 100644
--- a/runtime/minor_gc.c
+++ b/runtime/minor_gc.c
@@ -196,7 +196,7 @@ void caml_oldify_one (value v, value *p)
         value field0;
 
         sz = Wosize_hd (hd);
-        result = caml_alloc_shr_preserving_profinfo (sz, tag, hd);
+        result = caml_alloc_shr_for_minor_gc (sz, tag, hd);
         *p = result;
         field0 = Field (v, 0);
         Hd_val (v) = 0;            /* Set forward flag */
@@ -213,7 +213,7 @@ void caml_oldify_one (value v, value *p)
         }
       }else if (tag >= No_scan_tag){
         sz = Wosize_hd (hd);
-        result = caml_alloc_shr_preserving_profinfo (sz, tag, hd);
+        result = caml_alloc_shr_for_minor_gc (sz, tag, hd);
         for (i = 0; i < sz; i++) Field (result, i) = Field (v, i);
         Hd_val (v) = 0;            /* Set forward flag */
         Field (v, 0) = result;     /*  and forward pointer. */
@@ -246,7 +246,7 @@ void caml_oldify_one (value v, value *p)
             ){
           /* Do not short-circuit the pointer.  Copy as a normal block. */
           CAMLassert (Wosize_hd (hd) == 1);
-          result = caml_alloc_shr_preserving_profinfo (1, Forward_tag, hd);
+          result = caml_alloc_shr_for_minor_gc (1, Forward_tag, hd);
           *p = result;
           Hd_val (v) = 0;             /* Set (GC) forward flag */
           Field (v, 0) = result;      /*  and forward pointer. */
@@ -489,6 +489,7 @@ CAMLexport value caml_check_urgent_gc (value extra_root)
     CAML_INSTR_INT ("force_minor/check_urgent_gc@", 1);
     caml_gc_dispatch();
   }
+  caml_memprof_handle_postponed();
   CAMLreturn (extra_root);
 }