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

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
+}