From 05913940aa6c5e3cca9c2468f5fcd2d884ec6ab1 Mon Sep 17 00:00:00 2001

From: =?UTF-8?q?Sh=C3=A9rab?= <Sebastien.Hinderer@ens-lyon.org>

Date: Tue, 8 Nov 2016 17:39:14 +0100

Subject: [PATCH] Make OCaml API bindings compile with OCaml 4.04.0.

---

 Bindings/OCaml/brlapi_stubs.c | 4 ++++

 1 file changed, 4 insertions(+)

diff --git a/Bindings/OCaml/brlapi_stubs.c b/Bindings/OCaml/brlapi_stubs.c

index 1e66f9e..aabdc14 100644

--- a/Bindings/OCaml/brlapi_stubs.c

+++ b/Bindings/OCaml/brlapi_stubs.c

@@ -145,12 +145,14 @@ CAMLprim value brlapiml_errorCode_of_error(value camlError)

 static void raise_brlapi_error(void)

 {

   static value *exception = NULL;

+  CAMLparam0();

   CAMLlocal1(res);

   if (exception==NULL) exception = caml_named_value("Brlapi_error");

   res = caml_alloc(2,0);

   Store_field(res, 0, *exception);

   Store_field(res, 1, constrCamlError(&brlapi_error));

   caml_raise(res);

+  CAMLreturn0;

 }

 /* Function : raise_brlapi_exception */

@@ -159,6 +161,7 @@ static void BRLAPI_STDCALL raise_brlapi_exception(int err, brlapi_packetType_t t

 {

   static value *exception = NULL;

   int i;

+  CAMLparam0();

   CAMLlocal2(str, res);

   str = caml_alloc_string(size);

   for (i=0; i

@@ -169,6 +172,7 @@ static void BRLAPI_STDCALL raise_brlapi_exception(int err, brlapi_packetType_t t

   Store_field(res, 2, caml_copy_int32(type));

   Store_field(res, 3, str);

   caml_raise(res);

+  CAMLreturn0;

 }

 /* function packDots */