mirror of
https://anongit.gentoo.org/git/repo/gentoo.git
synced 2025-07-25 00:19:49 +02:00
6f36dd9f95
Closes: https://bugs.gentoo.org/798039 Closes: https://bugs.gentoo.org/750209 Signed-off-by: Sam James <sam@gentoo.org>
28 lines
1.1 KiB
Diff
28 lines
1.1 KiB
Diff
http://git.annexia.org/?p=ocaml-augeas.git;a=commit;h=1cf5aef99b26a46529ca797547c0b49627fffe78
|
|
https://bugs.gentoo.org/750209
|
|
|
|
From 1cf5aef99b26a46529ca797547c0b49627fffe78 Mon Sep 17 00:00:00 2001
|
|
From: "Richard W.M. Jones" <rjones@redhat.com>
|
|
Date: Sat, 7 Dec 2019 11:08:54 +0000
|
|
Subject: [PATCH] caml_named_value returns const value pointer in OCaml 4.09+
|
|
|
|
--- a/augeas-c.c
|
|
+++ b/augeas-c.c
|
|
@@ -86,7 +86,7 @@ static const int error_map_len = sizeof error_map / sizeof error_map[0];
|
|
static void
|
|
raise_error_and_maybe_close (augeas_t t, const char *msg, bool close_handle)
|
|
{
|
|
- value *exn = caml_named_value ("Augeas.Error");
|
|
+ const value *exn = caml_named_value ("Augeas.Error");
|
|
value args[5];
|
|
const int code = aug_error (t);
|
|
const char *aug_err_msg;
|
|
@@ -132,7 +132,7 @@ raise_error_and_maybe_close (augeas_t t, const char *msg, bool close_handle)
|
|
static void
|
|
raise_init_error (const char *msg)
|
|
{
|
|
- value *exn = caml_named_value ("Augeas.Error");
|
|
+ const value *exn = caml_named_value ("Augeas.Error");
|
|
value args[5];
|
|
|
|
args[0] = caml_alloc (1, 0);
|