From ad7c4498f66f37c4219242c6df04d28e9ee7877f Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Fri, 6 Jul 2012 13:47:07 +0100
Subject: ocaml: Calling Gc.compact before g#mount_local works around
 RHBZ#838081.

---
 ocaml/t/guestfs_500_parallel_mount_local.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/ocaml/t/guestfs_500_parallel_mount_local.ml b/ocaml/t/guestfs_500_parallel_mount_local.ml
index a26ff9d6..e1f5e26a 100644
--- a/ocaml/t/guestfs_500_parallel_mount_local.ml
+++ b/ocaml/t/guestfs_500_parallel_mount_local.ml
@@ -115,6 +115,7 @@ and start_thread (filename, mp) =
     let t = time () in
     if t -. start_t < total_time then (
       if debug then eprintf "%s < mounting filesystem\n%!" mp;
+      Gc.compact (); (* Workaround for RHBZ#838081 *)
       g#mount_local mp;
 
       (* Run test in an exec'd subprocess. *)
-- 
cgit