Displaying 3 results from an estimated 3 matches for "xpathctx_ptr".
2015 Jun 25
0
[PATCH v2] v2v: Free XML objects in the correct order.
...custom_deserialize_default
};
+value
+v2v_xml_free_doc_ptr (value docv)
+{
+ CAMLparam1 (docv);
+ xmlDocPtr doc = Doc_val (docv);
+
+ xmlFreeDoc (doc);
+ CAMLreturn (Val_unit);
+}
+
/* xmlXPathContextPtr type */
-#define Xpathctx_val(v) (*((xmlXPathContextPtr *)Data_custom_val(v)))
+#define Xpathctx_ptr_val(v) (*((xmlXPathContextPtr *)Data_custom_val(v)))
-static void
-xpathctx_finalize (value xpathctxv)
-{
- xmlXPathContextPtr xpathctx = Xpathctx_val (xpathctxv);
-
- if (xpathctx)
- xmlXPathFreeContext (xpathctx);
-}
-
-static struct custom_operations xpathctx_custom_operations = {
- (cha...
2015 Jun 25
0
[PATCH] v2v: Free XML objects in the correct order.
...custom_deserialize_default
};
+value
+v2v_xml_free_doc (value docv)
+{
+ CAMLparam1 (docv);
+ xmlDocPtr doc = Doc_val (docv);
+
+ xmlFreeDoc (doc);
+ CAMLreturn (Val_unit);
+}
+
/* xmlXPathContextPtr type */
-#define Xpathctx_val(v) (*((xmlXPathContextPtr *)Data_custom_val(v)))
+#define Xpathctx_ptr_val(v) (*((xmlXPathContextPtr *)Data_custom_val(v)))
-static void
-xpathctx_finalize (value xpathctxv)
-{
- xmlXPathContextPtr xpathctx = Xpathctx_val (xpathctxv);
-
- if (xpathctx)
- xmlXPathFreeContext (xpathctx);
-}
-
-static struct custom_operations xpathctx_custom_operations = {
- (cha...
2015 Jun 25
2
[PATCH v2] v2v: Free XML objects in the correct order.
In version 2:
- No substantial change, I just tidied up the code a bit.
- Removed one case where whitespace changes had crept in.
Rich.