58 lines
1.9 KiB
Diff
58 lines
1.9 KiB
Diff
|
From 8853f5a49587f00a7d2a5c8c7e52480a16bbdb02 Mon Sep 17 00:00:00 2001
|
||
|
|
From: "Richard W.M. Jones" <rjones@redhat.com>
|
||
|
|
Date: Fri, 5 Feb 2016 16:28:34 +0000
|
||
|
|
Subject: [PATCH] Remove unused 'not_supported' function.
|
||
|
|
|
||
|
|
Found by compiling under GCC 6. The warning was:
|
||
|
|
|
||
|
|
In file included from libvirt_c.c:2058:0:
|
||
|
|
libvirt_c_epilogue.c:89:1: error: 'not_supported' defined but not used [-Werror=unused-function]
|
||
|
|
not_supported (const char *fn)
|
||
|
|
^~~~~~~~~~~~~
|
||
|
|
---
|
||
|
|
libvirt/libvirt_c_epilogue.c | 15 ---------------
|
||
|
|
libvirt/libvirt_c_prologue.c | 1 -
|
||
|
|
2 files changed, 16 deletions(-)
|
||
|
|
|
||
|
|
diff --git a/libvirt/libvirt_c_epilogue.c b/libvirt/libvirt_c_epilogue.c
|
||
|
|
index 4972e50..fa592c9 100644
|
||
|
|
--- a/libvirt/libvirt_c_epilogue.c
|
||
|
|
+++ b/libvirt/libvirt_c_epilogue.c
|
||
|
|
@@ -84,21 +84,6 @@ _raise_virterror (const char *fn)
|
||
|
|
(void) caml__frame;
|
||
|
|
}
|
||
|
|
|
||
|
|
-/* Raise an error if a function is not supported. */
|
||
|
|
-static void
|
||
|
|
-not_supported (const char *fn)
|
||
|
|
-{
|
||
|
|
- CAMLparam0 ();
|
||
|
|
- CAMLlocal1 (fnv);
|
||
|
|
-
|
||
|
|
- fnv = caml_copy_string (fn);
|
||
|
|
- caml_raise_with_arg (*caml_named_value ("ocaml_libvirt_not_supported"), fnv);
|
||
|
|
-
|
||
|
|
- /*NOTREACHED*/
|
||
|
|
- /* Suppresses a compiler warning. */
|
||
|
|
- (void) caml__frame;
|
||
|
|
-}
|
||
|
|
-
|
||
|
|
/* Convert the virErrorNumber, virErrorDomain and virErrorLevel enums
|
||
|
|
* into values (longs because they are variants in OCaml).
|
||
|
|
*
|
||
|
|
diff --git a/libvirt/libvirt_c_prologue.c b/libvirt/libvirt_c_prologue.c
|
||
|
|
index bf972e9..710c0d6 100644
|
||
|
|
--- a/libvirt/libvirt_c_prologue.c
|
||
|
|
+++ b/libvirt/libvirt_c_prologue.c
|
||
|
|
@@ -25,7 +25,6 @@ typedef value (*Val_ptr_t) (void *);
|
||
|
|
static value Val_opt (void *ptr, Val_ptr_t Val_ptr);
|
||
|
|
/*static value option_default (value option, value deflt);*/
|
||
|
|
static void _raise_virterror (const char *fn) Noreturn;
|
||
|
|
-static void not_supported (const char *fn) Noreturn;
|
||
|
|
static value Val_virterror (virErrorPtr err);
|
||
|
|
|
||
|
|
/* Use this around synchronous libvirt API calls to release the OCaml
|
||
|
|
--
|
||
|
|
2.5.0
|
||
|
|
|