diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2010-11-23 18:12:26 +0000 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2010-11-23 18:25:18 +0000 |
| commit | 8d3e97679a698386980bd1e5e5833542412a56f6 (patch) | |
| tree | 8fb7a250dcfd4a43097eaaac38d805b326bd9043 /ocaml | |
| parent | 4220b7a6411f1eeecc616e37adaa5b2d2fe9aec1 (diff) | |
| download | libguestfs-8d3e97679a698386980bd1e5e5833542412a56f6.tar.gz libguestfs-8d3e97679a698386980bd1e5e5833542412a56f6.tar.xz libguestfs-8d3e97679a698386980bd1e5e5833542412a56f6.zip | |
ocaml: Fix some unused parameter warnings in OCaml bindings.
Diffstat (limited to 'ocaml')
| -rw-r--r-- | ocaml/guestfs_c.c | 2 | ||||
| -rw-r--r-- | ocaml/guestfs_c.h | 10 |
2 files changed, 11 insertions, 1 deletions
diff --git a/ocaml/guestfs_c.c b/ocaml/guestfs_c.c index 7648ba93..1324fb69 100644 --- a/ocaml/guestfs_c.c +++ b/ocaml/guestfs_c.c @@ -225,7 +225,7 @@ clear_progress_callback (guestfs_h *g) } static void -progress_callback (guestfs_h *g, void *root, +progress_callback (guestfs_h *g ATTRIBUTE_UNUSED, void *root, int proc_nr, int serial, uint64_t position, uint64_t total) { CAMLparam0 (); 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 */ |