|
 |
da373f |
From 524b0c748a3a2d47b4c76e3aa546b9d4af144e6c Mon Sep 17 00:00:00 2001
|
|
|
da373f |
From: "Richard W.M. Jones" <rjones@redhat.com>
|
|
|
da373f |
Date: Sat, 7 Dec 2019 11:08:54 +0000
|
|
|
da373f |
Subject: [PATCH] caml_named_value returns const value pointer in OCaml 4.09+
|
|
|
da373f |
|
|
|
da373f |
(cherry picked from ocaml-augeas
|
|
|
da373f |
commit 1cf5aef99b26a46529ca797547c0b49627fffe78)
|
|
|
da373f |
---
|
|
|
da373f |
common/mlaugeas/augeas-c.c | 4 ++--
|
|
|
da373f |
1 file changed, 2 insertions(+), 2 deletions(-)
|
|
|
da373f |
|
|
|
da373f |
diff --git a/common/mlaugeas/augeas-c.c b/common/mlaugeas/augeas-c.c
|
|
|
da373f |
index 3e0ba67ba..3b1dc2551 100644
|
|
|
da373f |
--- a/common/mlaugeas/augeas-c.c
|
|
|
da373f |
+++ b/common/mlaugeas/augeas-c.c
|
|
|
da373f |
@@ -77,7 +77,7 @@ static const int error_map_len = sizeof error_map / sizeof error_map[0];
|
|
|
da373f |
static void
|
|
|
da373f |
raise_error (augeas_t t, const char *msg)
|
|
|
da373f |
{
|
|
|
da373f |
- value *exn = caml_named_value ("Augeas.Error");
|
|
|
da373f |
+ const value *exn = caml_named_value ("Augeas.Error");
|
|
|
da373f |
value args[4];
|
|
|
da373f |
const int code = aug_error (t);
|
|
|
da373f |
const char *aug_err_minor;
|
|
|
da373f |
@@ -113,7 +113,7 @@ raise_error (augeas_t t, const char *msg)
|
|
|
da373f |
static void
|
|
|
da373f |
raise_init_error (const char *msg)
|
|
|
da373f |
{
|
|
|
da373f |
- value *exn = caml_named_value ("Augeas.Error");
|
|
|
da373f |
+ const value *exn = caml_named_value ("Augeas.Error");
|
|
|
da373f |
value args[4];
|
|
|
da373f |
|
|
|
da373f |
args[0] = caml_alloc (1, 0);
|
|
|
da373f |
--
|
|
|
da373f |
2.18.4
|
|
|
da373f |
|