From 8853f5a49587f00a7d2a5c8c7e52480a16bbdb02 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" 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 -- 1.8.3.1