+
+static void
+progress_callback (guestfs_h *g ATTRIBUTE_UNUSED, void *root,
+ int proc_nr, int serial, uint64_t position, uint64_t total)
+{
+ /* Ensure we are holding the GC lock before any GC operations are
+ * possible. (RHBZ#725824)
+ */
+ caml_leave_blocking_section ();
+
+ progress_callback_locked (g, root, proc_nr, serial, position, total);
+
+ caml_enter_blocking_section ();
+}