Blame SOURCES/brltty-4.5-ocaml-4.04-fix.patch
|
 |
db48e1 |
diff --git a/Bindings/OCaml/brlapi_stubs.c b/Bindings/OCaml/brlapi_stubs.c
|
|
|
db48e1 |
index 1e66f9e..aabdc14 100644
|
|
|
db48e1 |
--- a/Bindings/OCaml/brlapi_stubs.c
|
|
|
db48e1 |
+++ b/Bindings/OCaml/brlapi_stubs.c
|
|
|
db48e1 |
@@ -145,12 +145,14 @@ CAMLprim value brlapiml_errorCode_of_error(value camlError)
|
|
|
db48e1 |
static void raise_brlapi_error(void)
|
|
|
db48e1 |
{
|
|
|
db48e1 |
static value *exception = NULL;
|
|
|
db48e1 |
+ CAMLparam0();
|
|
|
db48e1 |
CAMLlocal1(res);
|
|
|
db48e1 |
if (exception==NULL) exception = caml_named_value("Brlapi_error");
|
|
|
db48e1 |
res = caml_alloc(2,0);
|
|
|
db48e1 |
Store_field(res, 0, *exception);
|
|
|
db48e1 |
Store_field(res, 1, constrCamlError(&brlapi_error));
|
|
|
db48e1 |
caml_raise(res);
|
|
|
db48e1 |
+ CAMLreturn0;
|
|
|
db48e1 |
}
|
|
|
db48e1 |
|
|
|
db48e1 |
/* Function : raise_brlapi_exception */
|
|
|
db48e1 |
@@ -159,6 +161,7 @@ static void BRLAPI_STDCALL raise_brlapi_exception(int err, brlapi_packetType_t t
|
|
|
db48e1 |
{
|
|
|
db48e1 |
static value *exception = NULL;
|
|
|
db48e1 |
int i;
|
|
|
db48e1 |
+ CAMLparam0();
|
|
|
db48e1 |
CAMLlocal2(str, res);
|
|
|
db48e1 |
str = caml_alloc_string(size);
|
|
|
db48e1 |
for (i=0; i
|
|
|
db48e1 |
@@ -169,6 +172,7 @@ static void BRLAPI_STDCALL raise_brlapi_exception(int err, brlapi_packetType_t t
|
|
|
db48e1 |
Store_field(res, 2, caml_copy_int32(type));
|
|
|
db48e1 |
Store_field(res, 3, str);
|
|
|
db48e1 |
caml_raise(res);
|
|
|
db48e1 |
+ CAMLreturn0;
|
|
|
db48e1 |
}
|
|
|
db48e1 |
|
|
|
db48e1 |
/* function packDots */
|