change memory limits, readd scheduled meminfo

xaki23 · Dec 28, 2022 · 9b00613 · 9b00613
1 parent 609f529
commit 9b00613
Showing 1 changed file with 14 additions and 5 deletions.
diff --git a/memory_pressure.ml b/memory_pressure.ml
@@ -38,18 +38,27 @@ let report_mem_usage stats =
 
 let init () =
   Gc.full_major ();
-  let stats = Xen_os.Memory.quick_stat () in
-  report_mem_usage stats
+  Lwt.async (fun () ->
+      let rec aux () =
+        Gc.full_major ();
+        Xen_os.Memory.trim ();
+        let stats = Xen_os.Memory.quick_stat () in
+        report_mem_usage stats;
+        Xen_os.Time.sleep_ns (Duration.of_f 60.0) >>= fun () ->
+        aux ()
+      in
+      aux ()
+  )
 
 let status () =
   let stats = Xen_os.Memory.quick_stat () in
-  if fraction_free stats > 0.5 then `Ok
+  if fraction_free stats > 0.1 then `Ok
   else (
     Gc.full_major ();
     Xen_os.Memory.trim ();
     let stats = Xen_os.Memory.quick_stat () in
-    if fraction_free stats < 0.6 then begin
-      report_mem_usage stats;
+    report_mem_usage stats;
+    if fraction_free stats < 0.1 then begin
       `Memory_critical
     end else `Ok
   )