Git-Mirrors/qubes-mirage-firewall
1
0
Fork 0
mirror of https://github.com/mirage/qubes-mirage-firewall.git synced 2024-10-01 01:05:39 -04:00
Code Issues Packages Projects Releases Wiki Activity

use the new quick_stat+trim from mirage-xen 8.0.0

Browse Source
This commit is contained in:
palainp 2022-07-27 14:26:58 +02:00
parent 7718c95f20
commit 68ab4f37c1
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
config.ml
View File

@ -30,7 +30,7 @@ let main =
package "mirage-qubes" ~min:"0.9.1"; package "mirage-qubes" ~min:"0.9.1";
package "mirage-nat" ~min:"2.2.1"; package "mirage-nat" ~min:"2.2.1";
package "mirage-logs"; package "mirage-logs";
package "mirage-xen" ~min:"7.0.0"; package "mirage-xen" ~min:"8.0.0";
package ~min:"6.1.0" "dns-client"; package ~min:"6.1.0" "dns-client";
package "pf-qubes"; package "pf-qubes";
] ]

5
memory_pressure.ml
View File

@ -43,11 +43,12 @@ let init () =
let status () = let status () =
let stats = Xen_os.Memory.quick_stat () in let stats = Xen_os.Memory.quick_stat () in
if fraction_free stats > 0.1 then `Ok if fraction_free stats > 0.4 then `Ok
else ( else (
Gc.full_major (); Gc.full_major ();
Xen_os.Memory.trim ();
let stats = Xen_os.Memory.quick_stat () in let stats = Xen_os.Memory.quick_stat () in
report_mem_usage stats; report_mem_usage stats;
if fraction_free stats < 0.1 then `Memory_critical if fraction_free stats < 0.4 then `Memory_critical
else `Ok else `Ok
) )