From: Richard W.M. Jones <rjones@redhat.com> <"Richard W.M. Jones <rjones@redhat.com>">
Date: Fri, 29 Aug 2008 16:38:12 +0000 (+0100)
Subject: Use CAMLreturn0 to avoid a warning.
X-Git-Tag: 0.6.1.1~17
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=c1a3b220af8f3fc74ba00fd0e54670c845950e4b;p=ocaml-libvirt.git

Use CAMLreturn0 to avoid a warning.
---

diff --git a/libvirt/libvirt_c_epilogue.c b/libvirt/libvirt_c_epilogue.c
index efabed0..df1fabb 100644
--- a/libvirt/libvirt_c_epilogue.c
+++ b/libvirt/libvirt_c_epilogue.c
@@ -80,8 +80,7 @@ _raise_virterror (virConnectPtr conn, const char *fn)
   caml_raise_with_arg (*caml_named_value ("ocaml_libvirt_virterror"), rv);
 
   /*NOTREACHED*/
-  /* Suppresses a compiler warning. */
-  (void) caml__frame;
+  CAMLreturn0;
 }
 
 /* Raise an error if a function is not supported. */
@@ -95,8 +94,7 @@ not_supported (const char *fn)
   caml_raise_with_arg (*caml_named_value ("ocaml_libvirt_not_supported"), fnv);
 
   /*NOTREACHED*/
-  /* Suppresses a compiler warning. */
-  (void) caml__frame;
+  CAMLreturn0;
 }
 
 /* Convert the virErrorNumber, virErrorDomain and virErrorLevel enums