X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=extratests%2Fsuppressions;h=97d4b78941d2375e5aaba423249ce2db698ad7ff;hb=270a2b5ebb6a5f01eb3f8cd2b591cd68d3b6096f;hp=c5738547cabfbe4cd3682668f61e05c20a327dbd;hpb=ec730ce979f1d19b21ba1000ad6fe811b62df394;p=libguestfs.git

diff --git a/extratests/suppressions b/extratests/suppressions
index c573854..97d4b78 100644
--- a/extratests/suppressions
+++ b/extratests/suppressions
@@ -58,3 +58,35 @@
    fun:calloc
    obj:/usr/lib/libnl.so.1.1
 }
+
+# OCaml, by design, doesn't bother to free the major heap before
+# calling exit.  Ignore that leak.
+{
+   ocaml_heap_leak
+   Memcheck:Leak
+   ...
+   fun:caml_alloc_for_heap
+}
+# On the other hand, these seem to be a real bugs in OCaml:
+{
+   ocaml_heap_leak_2
+   Memcheck:Leak
+   fun:malloc
+   fun:caml_thread_new_descriptor
+   fun:caml_thread_new
+}
+{
+   ocaml_heap_leak_3
+   Memcheck:Leak
+   fun:malloc
+   fun:caml_thread_new_descriptor
+   fun:caml_thread_initialize
+}
+{
+   ocaml_heap_leak_4
+   Memcheck:Leak
+   ...
+   fun:pthread_create*
+   ...
+   fun:caml_thread_new
+}