diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2012-06-06 13:42:17 +0100 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2012-06-21 12:44:45 +0100 |
| commit | df3813d60d63ec915f33d6de23fdc60c47a6d467 (patch) | |
| tree | d6d38ed31cb5e508bcf1c6c2e62709f79cc45d42 | |
| parent | 41094f2b55fecbd6813ebc1cc57d39413a74c5b7 (diff) | |
| download | libguestfs-df3813d60d63ec915f33d6de23fdc60c47a6d467.tar.gz libguestfs-df3813d60d63ec915f33d6de23fdc60c47a6d467.tar.xz libguestfs-df3813d60d63ec915f33d6de23fdc60c47a6d467.zip | |
ocaml: Fix parameters to ocaml_guestfs_create.
The first parameter (not used) is a unit, so declare it properly.
(cherry picked from commit 1bdfc88eba7f932b2581d55ecf4455d0e70335c2)
| -rw-r--r-- | ocaml/guestfs_c.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ocaml/guestfs_c.c b/ocaml/guestfs_c.c index cfbe1cc8..fc7f9d04 100644 --- a/ocaml/guestfs_c.c +++ b/ocaml/guestfs_c.c @@ -48,7 +48,7 @@ static void event_callback_wrapper (guestfs_h *g, void *data, uint64_t event, in #endif /* These prototypes are solely to quiet gcc warning. */ -CAMLprim value ocaml_guestfs_create (void); +CAMLprim value ocaml_guestfs_create (value unitv); CAMLprim value ocaml_guestfs_close (value gv); CAMLprim value ocaml_guestfs_set_event_callback (value gv, value closure, value events); CAMLprim value ocaml_guestfs_delete_event_callback (value gv, value eh); @@ -141,9 +141,9 @@ ocaml_guestfs_raise_closed (const char *func) /* Guestfs.create */ CAMLprim value -ocaml_guestfs_create (void) +ocaml_guestfs_create (value unitv) { - CAMLparam0 (); + CAMLparam1 (unitv); CAMLlocal1 (gv); guestfs_h *g; value *v; |