virDomainBlockPeek and virDomainMemoryPeek need a read/write connection
[ocaml-libvirt.git] / libvirt / libvirt_c_epilogue.c
index df1fabb..efabed0 100644 (file)
@@ -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