From f428d9a90d6d2f8cc6476e5eba5385ff8829cc72 Mon Sep 17 00:00:00 2001
From: Damien Doligez <damien.doligez-inria.fr>
Date: Thu, 15 Apr 2004 15:00:27 +0000
Subject: [PATCH] appeler les fonctions de finalisation apres compactage

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6207 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 byterun/gc_ctrl.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/byterun/gc_ctrl.c b/byterun/gc_ctrl.c
index b262bbd9b..f31ef1de8 100644
--- a/byterun/gc_ctrl.c
+++ b/byterun/gc_ctrl.c
@@ -434,6 +434,7 @@ CAMLprim value caml_gc_compaction(value v)
   caml_finish_major_cycle ();
   caml_finish_major_cycle ();
   caml_compact_heap ();
+  caml_final_do_calls ();
   return Val_unit;
 }