X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=ocaml%2Fguestfs_c.h;h=219dc2fef116105547461b88bf7ab4cbd08bf88d;hp=cd1d73b1976cf709c6bfd294b33f71fde39a3e72;hb=13af3835cdcfbf46c8072b7960d73ae9ca5deb4d;hpb=79125c4dea9c69d08b522ed7c85f26dc6ee1bcb3;ds=sidebyside

diff --git a/ocaml/guestfs_c.h b/ocaml/guestfs_c.h
index cd1d73b..219dc2f 100644
--- a/ocaml/guestfs_c.h
+++ b/ocaml/guestfs_c.h
@@ -19,6 +19,8 @@
 #ifndef GUESTFS_OCAML_C_H
 #define GUESTFS_OCAML_C_H
 
+#include "guestfs-internal.h"
+
 #define Guestfs_val(v) (*((guestfs_h **)Data_custom_val(v)))
 extern void ocaml_guestfs_raise_error (guestfs_h *g, const char *func)
   Noreturn;
@@ -27,4 +29,14 @@ extern void ocaml_guestfs_raise_closed (const char *func)
 extern char **ocaml_guestfs_strings_val (guestfs_h *g, value sv);
 extern void ocaml_guestfs_free_strings (char **r);
 
+# ifdef __GNUC__
+# ifndef ATTRIBUTE_UNUSED
+#  define ATTRIBUTE_UNUSED __attribute__((__unused__))
+# endif
+#else
+# ifndef ATTRIBUTE_UNUSED
+#  define ATTRIBUTE_UNUSED
+# endif
+#endif
+
 #endif /* GUESTFS_OCAML_C_H */