ocaml: Get rid of CAMLprim.

It's wrong to use it, and in any case it doesn't do anything on Linux.

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