Displaying 2 results from an estimated 2 matches for "804aabc9d".
2019 Sep 05
2
[PATCH 0/1] Build fix for future OCaml 4.09
This is a simple fix for building also with the upcoming OCaml 4.09,
which has a slight API change in the C library.
This does not cover embedded copies such as ocaml-augeas, and
ocaml-libvirt, which are being fixed separately, and will then be
synchronized.
Pino Toscano (1):
ocaml: make const the return value of caml_named_value()
common/mlpcre/pcre-c.c | 2 +-
common/mltools/uri-c.c |
2019 Sep 05
0
[PATCH 1/1] ocaml: make const the return value of caml_named_value()
...tring_val (argv), &uri);
if (r == -1) {
- value *exn = caml_named_value ("URI.Parse_failed");
+ const value *exn = caml_named_value ("URI.Parse_failed");
caml_raise (*exn);
}
diff --git a/common/mlvisit/visit-c.c b/common/mlvisit/visit-c.c
index 7137c4998..804aabc9d 100644
--- a/common/mlvisit/visit-c.c
+++ b/common/mlvisit/visit-c.c
@@ -53,7 +53,7 @@ value
guestfs_int_mllib_visit (value gv, value dirv, value fv)
{
CAMLparam3 (gv, dirv, fv);
- value *visit_failure_exn;
+ const value *visit_failure_exn;
guestfs_h *g = (guestfs_h *) (intptr_t) Int64_va...