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 /generator | |
| 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 'generator')
| -rw-r--r-- | generator/generator_ocaml.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generator/generator_ocaml.ml b/generator/generator_ocaml.ml index 860242c7..393a0629 100644 --- a/generator/generator_ocaml.ml +++ b/generator/generator_ocaml.ml @@ -537,7 +537,8 @@ copy_table (char * const * argv) pr "CAMLprim value "; pr "ocaml_guestfs_%s_byte (value *argv, int argn);\n" name; pr "CAMLprim value\n"; - pr "ocaml_guestfs_%s_byte (value *argv, int argn)\n" name; + pr "ocaml_guestfs_%s_byte (value *argv, int argn ATTRIBUTE_UNUSED)\n" + name; pr "{\n"; pr " return ocaml_guestfs_%s (argv[0]" name; iteri (fun i _ -> pr ", argv[%d]" i) (List.tl params); |