Blame brltty-ocaml-4-04-fix.patch
|
Richard W.M. Jones |
5af3e7 |
--- a/Bindings/OCaml/brlapi_stubs.c
|
|
Richard W.M. Jones |
5af3e7 |
+++ a/Bindings/OCaml/brlapi_stubs.c
|
|
Richard W.M. Jones |
5af3e7 |
@@ -144,6 +144,7 @@ CAMLprim value brlapiml_errorCode_of_error(value camlError)
|
|
Richard W.M. Jones |
5af3e7 |
/* Raises the Brlapi_error exception */
|
|
Richard W.M. Jones |
5af3e7 |
static void raise_brlapi_error(void)
|
|
Richard W.M. Jones |
5af3e7 |
{
|
|
Richard W.M. Jones |
5af3e7 |
+ CAMLparam0();
|
|
Richard W.M. Jones |
5af3e7 |
static value *exception = NULL;
|
|
Richard W.M. Jones |
5af3e7 |
CAMLlocal1(res);
|
|
Richard W.M. Jones |
5af3e7 |
if (exception==NULL) exception = caml_named_value("Brlapi_error");
|
|
Richard W.M. Jones |
5af3e7 |
@@ -157,6 +158,7 @@ static void raise_brlapi_error(void)
|
|
Richard W.M. Jones |
5af3e7 |
/* Raises Brlapi_exception */
|
|
Richard W.M. Jones |
5af3e7 |
static void BRLAPI_STDCALL raise_brlapi_exception(int err, brlapi_packetType_t type, const void *packet, size_t size)
|
|
Richard W.M. Jones |
5af3e7 |
{
|
|
Richard W.M. Jones |
5af3e7 |
+ CAMLparam0();
|
|
Richard W.M. Jones |
5af3e7 |
static value *exception = NULL;
|
|
Richard W.M. Jones |
5af3e7 |
int i;
|
|
Richard W.M. Jones |
5af3e7 |
CAMLlocal2(str, res);
|