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-06 13:42:17 +0100 |
commit | 1bdfc88eba7f932b2581d55ecf4455d0e70335c2 (patch) | |
tree | c7a995bcdc698dba290f318f05d0ad21e2257029 /ocaml | |
parent | 450493cf6b563389bd11f02284bd22d7ed90b5da (diff) | |
download | libguestfs-1bdfc88eba7f932b2581d55ecf4455d0e70335c2.tar.gz libguestfs-1bdfc88eba7f932b2581d55ecf4455d0e70335c2.tar.xz libguestfs-1bdfc88eba7f932b2581d55ecf4455d0e70335c2.zip |
ocaml: Fix parameters to ocaml_guestfs_create.
The first parameter (not used) is a unit, so declare it properly.
Diffstat (limited to 'ocaml')
-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; |