From: Richard W.M. Jones <rjones@redhat.com> <"Richard W.M. Jones <rjones@redhat.com>">
Date: Fri, 29 Aug 2008 16:39:44 +0000 (+0100)
Subject: Revert previous change.
X-Git-Tag: 0.6.1.1~16
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=78840c01a52b57d64a97586434aa5fe963218154;p=ocaml-libvirt.git

Revert previous change.
---

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