diff options
Diffstat (limited to 'ocaml/guestfs-c.c')
| -rw-r--r-- | ocaml/guestfs-c.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/ocaml/guestfs-c.c b/ocaml/guestfs-c.c index 265698f9..90eea547 100644 --- a/ocaml/guestfs-c.c +++ b/ocaml/guestfs-c.c @@ -48,10 +48,10 @@ 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 (value environmentv, value close_on_exitv, 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); +value ocaml_guestfs_create (value environmentv, value close_on_exitv, value unitv); +value ocaml_guestfs_close (value gv); +value ocaml_guestfs_set_event_callback (value gv, value closure, value events); +value ocaml_guestfs_delete_event_callback (value gv, value eh); value ocaml_guestfs_last_errno (value gv); value ocaml_guestfs_user_cancel (value gv); @@ -140,7 +140,7 @@ ocaml_guestfs_raise_closed (const char *func) } /* Guestfs.create */ -CAMLprim value +value ocaml_guestfs_create (value environmentv, value close_on_exitv, value unitv) { CAMLparam3 (environmentv, close_on_exitv, unitv); @@ -180,7 +180,7 @@ ocaml_guestfs_create (value environmentv, value close_on_exitv, value unitv) } /* Guestfs.close */ -CAMLprim value +value ocaml_guestfs_close (value gv) { CAMLparam1 (gv); @@ -234,7 +234,7 @@ event_bitmask_of_event_list (value events) } /* Guestfs.set_event_callback */ -CAMLprim value +value ocaml_guestfs_set_event_callback (value gv, value closure, value events) { CAMLparam3 (gv, closure, events); @@ -269,7 +269,7 @@ ocaml_guestfs_set_event_callback (value gv, value closure, value events) } /* Guestfs.delete_event_callback */ -CAMLprim value +value ocaml_guestfs_delete_event_callback (value gv, value ehv) { CAMLparam2 (gv, ehv); |