Displaying 3 results from an estimated 3 matches for "xpathobj_ptr".
2015 Jun 25
0
[PATCH v2] v2v: Free XML objects in the correct order.
...pathctx_ptr (value xpathctxv)
+{
+ CAMLparam1 (xpathctxv);
+ xmlXPathContextPtr xpathctx = Xpathctx_ptr_val (xpathctxv);
+
+ xmlXPathFreeContext (xpathctx);
+ CAMLreturn (Val_unit);
+}
+
/* xmlXPathObjectPtr type */
-#define Xpathobj_val(v) (*((xmlXPathObjectPtr *)Data_custom_val(v)))
+#define Xpathobj_ptr_val(v) (*((xmlXPathObjectPtr *)Data_custom_val(v)))
-static void
-xpathobj_finalize (value xpathobjv)
-{
- xmlXPathObjectPtr xpathobj = Xpathobj_val (xpathobjv);
-
- if (xpathobj)
- xmlXPathFreeObject (xpathobj);
-}
-
-static struct custom_operations xpathobj_custom_operations = {
- (char *...
2015 Jun 25
0
[PATCH] v2v: Free XML objects in the correct order.
...ree_context (value xpathctxv)
+{
+ CAMLparam1 (xpathctxv);
+ xmlXPathContextPtr xpathctx = Xpathctx_ptr_val (xpathctxv);
+
+ xmlXPathFreeContext (xpathctx);
+ CAMLreturn (Val_unit);
+}
+
/* xmlXPathObjectPtr type */
-#define Xpathobj_val(v) (*((xmlXPathObjectPtr *)Data_custom_val(v)))
+#define Xpathobj_ptr_val(v) (*((xmlXPathObjectPtr *)Data_custom_val(v)))
-static void
-xpathobj_finalize (value xpathobjv)
-{
- xmlXPathObjectPtr xpathobj = Xpathobj_val (xpathobjv);
-
- if (xpathobj)
- xmlXPathFreeObject (xpathobj);
-}
-
-static struct custom_operations xpathobj_custom_operations = {
- (char *...
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.