caml_named_value returns const value pointer in OCaml 4.09+ master
authorRichard W.M. Jones <rjones@redhat.com>
Sat, 7 Dec 2019 11:08:54 +0000 (11:08 +0000)
committerRichard W.M. Jones <rjones@redhat.com>
Sat, 7 Dec 2019 11:08:54 +0000 (11:08 +0000)
augeas-c.c

index 9217017..679bcb5 100644 (file)
@@ -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)
 {
 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;
   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)
 {
 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);
   value args[5];
 
   args[0] = caml_alloc (1, 0);