From 9b7e9e54858bd1497b6c4f480d10bb7dc7ef16a7 Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Mon, 26 Sep 2022 13:46:23 +0200
Subject: [PATCH] use the gc every now and then

---
 mirage/unikernel.ml | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/mirage/unikernel.ml b/mirage/unikernel.ml
index 42e11cd..01d4ab3 100644
--- a/mirage/unikernel.ml
+++ b/mirage/unikernel.ml
@@ -244,7 +244,8 @@ module Make
       | Error e -> Logs.err (fun m -> m "error %a listing kv" KV.pp_error e); assert false
       | Ok entries ->
         let t = empty dev in
-        Lwt_list.iter_s (fun (name, typ) ->
+        Lwt_list.iteri_s (fun idx (name, typ) ->
+            if idx mod 10 = 0 then Gc.full_major () ;
             match typ with
             | `Dictionary ->
               Logs.warn (fun m -> m "unexpected dictionary at %s" name);
@@ -630,6 +631,7 @@ stamp: %S
                k)) urls
     in
     let pool = Lwt_pool.create (Key_gen.parallel_downloads ()) (Fun.const Lwt.return_unit) in
+    let idx = ref 0 in
     Lwt_list.iter_p (fun (url, csums) ->
         Lwt_pool.use pool @@ fun () ->
         HM.fold (fun h v r ->
@@ -641,6 +643,8 @@ stamp: %S
           Logs.debug (fun m -> m "ignoring %s (already present)" url);
           Lwt.return_unit
         | false ->
+          incr idx;
+          if !idx mod 10 = 0 then Gc.full_major () ;
           Logs.info (fun m -> m "downloading %s" url);
           Http_mirage_client.one_request
             ~alpn_protocol:HTTP.alpn_protocol