Git-Mirrors/qubes-mirage-firewall
1
0
Fork 0
mirror of https://github.com/mirage/qubes-mirage-firewall.git synced 2025-01-15 17:17:08 -05:00
Code Issues Packages Projects Releases Wiki Activity

remove unneeded logs: be silent if the GC is enough

Browse Source
This commit is contained in:
palainp 2022-10-09 12:38:44 +02:00 committed by Hannes Mehnert
parent eb4d0fc371
commit 06b9a88331
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
memory_pressure.ml
View File

@ -63,7 +63,8 @@ let status () =
Gc.full_major (); Gc.full_major ();
Xen_os.Memory.trim (); Xen_os.Memory.trim ();
let stats = Xen_os.Memory.quick_stat () in let stats = Xen_os.Memory.quick_stat () in
report_mem_usage stats; if fraction_free stats < 0.6 then begin
if fraction_free stats < 0.6 then `Memory_critical report_mem_usage stats;
else `Ok `Memory_critical
end else `Ok
) )