X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=libvirt%2Flibvirt_c_prologue.c;h=e82f0ef10d3873682861b36d33be4c1f7e4e8050;hb=401a26ab4e66a801ba1489ca8302cb7b1a47baeb;hp=7fe97148217fe134e9175b2c8bb051b4656b720e;hpb=9b1c8e53eaa6fb79ee801e3014793618b977857d;p=ocaml-libvirt.git

diff --git a/libvirt/libvirt_c_prologue.c b/libvirt/libvirt_c_prologue.c
index 7fe9714..e82f0ef 100644
--- a/libvirt/libvirt_c_prologue.c
+++ b/libvirt/libvirt_c_prologue.c
@@ -5,7 +5,8 @@
  * This library is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public
  * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
+ * version 2 of the License, or (at your option) any later version,
+ * with the OCaml linking exception described in ../COPYING.LIB.
  *
  * This library is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
@@ -104,13 +105,6 @@ static value Val_virterror (virErrorPtr err);
  * wrappers store domains (and networks) as explicit (dom, conn)
  * pairs.
  *
- * Further complication with virterror / exceptions: Virterror gives
- * us virConnectPtr, virDomainPtr, virNetworkPtr pointers.  If we
- * follow standard practice and wrap these up in blocks with
- * finalizers then we'll end up double-freeing (in particular, calling
- * virConnectClose at the wrong time).  So for virterror, we have
- * "special" wrapper functions (Val_connect_no_finalize, etc.).
- *
  * Update 2008/01: Storage pools and volumes work the same way as
  * domains and networks.  And jobs.
  */
@@ -143,11 +137,6 @@ static value Val_vol (virStorageVolPtr vol);
 static value Val_jb (virJobPtr jb);
 #endif
 
-/* ONLY for use by virterror wrappers. */
-static value Val_connect_no_finalize (virConnectPtr conn);
-static value Val_dom_no_finalize (virDomainPtr dom);
-static value Val_net_no_finalize (virNetworkPtr net);
-
 /* Domains and networks are stored as pairs (dom/net, conn), so have
  * some convenience functions for unwrapping and wrapping them.
  */
@@ -185,7 +174,3 @@ static value Val_volume (virStorageVolPtr vol, value connv);
 #ifdef HAVE_VIRJOBPTR
 static value Val_job (virJobPtr jb, value connv);
 #endif
-
-/* ONLY for use by virterror wrappers. */
-static value Val_domain_no_finalize (virDomainPtr dom, value connv);
-static value Val_network_no_finalize (virNetworkPtr net, value connv);