mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-21 22:53:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

ocaml: Fix parameters to ocaml_guestfs_create.

Browse Source 
The first parameter (not used) is a unit, so declare it properly.
This commit is contained in:
Richard W.M. Jones
2012-06-06 13:42:17 +01:00
parent 450493cf6b
commit 1bdfc88eba
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
ocaml/guestfs_c.c
View File

@@ -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;