From 8d3e97679a698386980bd1e5e5833542412a56f6 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Tue, 23 Nov 2010 18:12:26 +0000
Subject: ocaml: Fix some unused parameter warnings in OCaml bindings.

---
 ocaml/guestfs_c.h | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'ocaml/guestfs_c.h')

diff --git a/ocaml/guestfs_c.h b/ocaml/guestfs_c.h
index 29da0532..219dc2fe 100644
--- a/ocaml/guestfs_c.h
+++ b/ocaml/guestfs_c.h
@@ -29,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 */
-- 
cgit