|
 |
5be1a8 |
From 75b13978f85b32c7a121aa289d8ebf41ba14ee5a Mon Sep 17 00:00:00 2001
|
|
|
5be1a8 |
From: Pino Toscano <ptoscano@redhat.com>
|
|
|
5be1a8 |
Date: Thu, 5 Sep 2019 09:57:09 +0200
|
|
|
5be1a8 |
Subject: [PATCH] Make const the return value of caml_named_value()
|
|
|
5be1a8 |
|
|
|
5be1a8 |
With OCaml >= 4.09 caml_named_value() returns a const value *, so keep
|
|
|
5be1a8 |
the constness to build also in this case.
|
|
|
5be1a8 |
|
|
|
5be1a8 |
Signed-off-by: Pino Toscano <ptoscano@redhat.com>
|
|
|
5be1a8 |
---
|
|
|
5be1a8 |
libvirt/libvirt_c_oneoffs.c | 4 ++--
|
|
|
5be1a8 |
1 file changed, 2 insertions(+), 2 deletions(-)
|
|
|
5be1a8 |
|
|
|
5be1a8 |
diff --git a/libvirt/libvirt_c_oneoffs.c b/libvirt/libvirt_c_oneoffs.c
|
|
|
5be1a8 |
index 6f56f10..e23c0db 100644
|
|
|
5be1a8 |
--- a/libvirt/libvirt_c_oneoffs.c
|
|
|
5be1a8 |
+++ b/libvirt/libvirt_c_oneoffs.c
|
|
|
5be1a8 |
@@ -1207,7 +1207,7 @@ ocaml_libvirt_event_run_default_impl (value unitv)
|
|
|
5be1a8 |
#define DOMAIN_CALLBACK_BEGIN(NAME) \
|
|
|
5be1a8 |
value connv, domv, callback_id, result; \
|
|
|
5be1a8 |
connv = domv = callback_id = result = Val_int(0); \
|
|
|
5be1a8 |
- static value *callback = NULL; \
|
|
|
5be1a8 |
+ static const value *callback = NULL; \
|
|
|
5be1a8 |
caml_leave_blocking_section(); \
|
|
|
5be1a8 |
if (callback == NULL) \
|
|
|
5be1a8 |
callback = caml_named_value(NAME); \
|
|
|
5be1a8 |
@@ -1433,7 +1433,7 @@ timeout_callback(int timer, void *opaque)
|
|
|
5be1a8 |
{
|
|
|
5be1a8 |
value callback_id, result;
|
|
|
5be1a8 |
callback_id = result = Val_int(0);
|
|
|
5be1a8 |
- static value *callback = NULL;
|
|
|
5be1a8 |
+ static const value *callback = NULL;
|
|
|
5be1a8 |
caml_leave_blocking_section();
|
|
|
5be1a8 |
if (callback == NULL)
|
|
|
5be1a8 |
callback = caml_named_value("Libvirt.timeout_callback");
|
|
|
5be1a8 |
--
|
|
|
5be1a8 |
2.23.0
|
|
|
5be1a8 |
|