Update of /cvsroot/perl-xml/XML-LibXML-XPathContext
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21695
Modified Files:
XPathContext.xs
Log Message:
avoid using XPathContextDATA on the lvalue side (some compilers seem
displeased with it)
Index: XPathContext.xs
===================================================================
RCS file: /cvsroot/perl-xml/XML-LibXML-XPathContext/XPathContext.xs,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -d -r1.41 -r1.42
--- XPathContext.xs 10 Nov 2003 10:09:12 -0000 1.41
+++ XPathContext.xs 24 Mar 2005 20:18:11 -0000 1.42
@@ -205,7 +205,7 @@
by configure_namespaces */
ctxt->namespaces = NULL;
/* backup data */
- XPathContextDATA(copy) = xmlMalloc(sizeof(XPathContextData));
+ copy->user = xmlMalloc(sizeof(XPathContextData));
if (XPathContextDATA(copy)) {
memcpy(XPathContextDATA(copy), XPathContextDATA(ctxt),sizeof(XPathContextData));
/* clear ctxt->pool, so that it is not used freed during re-entrance */
@@ -239,7 +239,7 @@
if (XPathContextDATA(copy)) {
memcpy(XPathContextDATA(ctxt),XPathContextDATA(copy),sizeof(XPathContextData));
xmlFree(XPathContextDATA(copy));
- XPathContextDATA(copy) = XPathContextDATA(ctxt);
+ copy->user = XPathContextDATA(ctxt);
}
/* now copy the rest */
memcpy(ctxt, copy, sizeof(xmlXPathContext));
|
