Fix libxml2 build on MinGW.

diff --git a/src/modules/xml/consumer_xml.c b/src/modules/xml/consumer_xml.c
index 3b96cfef1fdc293cf5d60fc5d935991c1a10dbbf..3bcf818ec67330a28b94baf85859c809d3faed55 100644 (file)
--- a/src/modules/xml/consumer_xml.c
+++ b/src/modules/xml/consumer_xml.c
@@ -751,7 +751,14 @@ static int consumer_start( mlt_consumer this )
                        int length = 0;
                        xmlDocDumpMemoryEnc( doc, &buffer, &length, "utf-8" );
                        mlt_properties_set( properties, resource, _s(buffer) );
+#ifdef WIN32
+                       xmlFreeFunc myXmlFree = NULL;
+                       xmlMemGet( &myXmlFree, NULL, NULL, NULL);
+                       if ( myXmlFree )
+                               myXmlFree( buffer );
+#else
                        xmlFree( buffer );
+#endif
                }
                else
                {

diff --git a/src/modules/xml/producer_xml.c b/src/modules/xml/producer_xml.c
index 878c97674c800249399925547b1808f3c58a7d78..285b9223669f71c5205d3d8544434e4065ded9bf 100644 (file)
--- a/src/modules/xml/producer_xml.c
+++ b/src/modules/xml/producer_xml.c
@@ -1095,7 +1095,14 @@ static void on_end_property( deserialise_context context, const xmlChar *name )
                        // Serialise the tree to get value
                        xmlDocDumpMemory( context->value_doc, &value, &size );
                        mlt_properties_set( properties, context->property, _s(value) );
+#ifdef WIN32
+                       xmlFreeFunc myXmlFree = NULL;
+                       xmlMemGet( &myXmlFree, NULL, NULL, NULL);
+                       if ( myXmlFree )
+                               myXmlFree( value );
+#else
                        xmlFree( value );
+#endif
                        xmlFreeDoc( context->value_doc );
                        context->value_doc = NULL;
                }