Commits

Sébastien Ferré committed 3e1be8c

Commenting memory measures in Common.prof

  • Participants
  • Parent commits 50b244c

Comments (0)

Files changed (1)

     let on = elem.prof_on in
 (* print_string ("<"^s^":"); flush stdout; *)
     elem.prof_on <- true;
-    let m1 = Gc.allocated_bytes () (* float_of_int (Gc.stat ()).Gc.live_words *) in
+(*    let m1 = Gc.allocated_bytes () (* float_of_int (Gc.stat ()).Gc.live_words *) in *) (* measuring memory is not reliable *)
     let d, y = chrono f in
-    let m2 = Gc.allocated_bytes () (* float_of_int (Gc.stat ()).Gc.live_words *) in
+(*    let m2 = Gc.allocated_bytes () (* float_of_int (Gc.stat ()).Gc.live_words *) in *)
     elem.prof_on <- on;
     elem.prof_nb <- elem.prof_nb + 1;
     if not on then elem.prof_time <- elem.prof_time +. d;
-    if not on then elem.prof_mem <- elem.prof_mem +. (m2 -. m1);
+(*    if not on then elem.prof_mem <- elem.prof_mem +. (m2 -. m1); *)
 (* print_string (s^">\n"); flush stdout; *)
     y