X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=libvirt%2Flibvirt_c_epilogue.c;h=efabed052ae42c2e405d5a865868704b81b4affb;hb=9f321a893d71b510cfc01b088e60e5ddba83e481;hp=df1fabbae0b1df5710bfc79607f3fbc84c73ff31;hpb=c1a3b220af8f3fc74ba00fd0e54670c845950e4b;p=ocaml-libvirt.git

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