mirror of
https://github.com/mirage/qubes-mirage-firewall.git
synced 2024-10-01 01:05:39 -04:00
9 lines
459 B
OCaml
9 lines
459 B
OCaml
|
(* Copyright (C) 2015, Thomas Leonard <thomas.leonard@unikernel.com>
|
||
|
|
See the README file for details. *)
|
||
|
|
|
||
|
|
val status : unit -> [ `Ok | `Memory_critical ]
|
||
|
|
(** Check the memory situation. If we're running low, do a GC (work-around for
|
||
|
|
http://caml.inria.fr/mantis/view.php?id=7100 and OCaml GC needing to malloc
|
||
|
|
extra space to run finalisers). Returns [`Memory_critical] if memory is
|
||
|
|
still low - caller should take action to reduce memory use. *)
|