19 lines
675 B
Diff
19 lines
675 B
Diff
--- a/Bindings/OCaml/brlapi_stubs.c
|
|
+++ a/Bindings/OCaml/brlapi_stubs.c
|
|
@@ -144,6 +144,7 @@ CAMLprim value brlapiml_errorCode_of_error(value camlError)
|
|
/* Raises the Brlapi_error exception */
|
|
static void raise_brlapi_error(void)
|
|
{
|
|
+ CAMLparam0();
|
|
static value *exception = NULL;
|
|
CAMLlocal1(res);
|
|
if (exception==NULL) exception = caml_named_value("Brlapi_error");
|
|
@@ -157,6 +158,7 @@ static void raise_brlapi_error(void)
|
|
/* Raises Brlapi_exception */
|
|
static void BRLAPI_STDCALL raise_brlapi_exception(int err, brlapi_packetType_t type, const void *packet, size_t size)
|
|
{
|
|
+ CAMLparam0();
|
|
static value *exception = NULL;
|
|
int i;
|
|
CAMLlocal2(str, res);
|