[perl-xml-cvs] CVS: XML-LibXML-XPathContext XPathContext.xs,1.39,1.40

[Ilya M. <m_...@us...>]

Update of /cvsroot/perl-xml/XML-LibXML-XPathContext
In directory sc8-pr-cvs1:/tmp/cvs-serv13337

Modified Files:
	XPathContext.xs 
Log Message:
Remove _enter() and unused field lock in struct _XPathContextData


Index: XPathContext.xs
===================================================================
RCS file: /cvsroot/perl-xml/XML-LibXML-XPathContext/XPathContext.xs,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -d -r1.39 -r1.40
--- XPathContext.xs	7 Nov 2003 15:26:16 -0000	1.39
+++ XPathContext.xs	10 Nov 2003 10:07:36 -0000	1.40
@@ -39,7 +39,6 @@
 
 struct _XPathContextData {
     SV* node;
-    int lock;  /* currently unnecessary */
     HV* pool;  
     SV* varLookup;
     SV* varData;
@@ -525,7 +524,6 @@
           XPathContextDATA(ctxt)->node = &PL_sv_undef;
         }
 
-        XPathContextDATA(ctxt)->lock = 0;
         XPathContextDATA(ctxt)->pool = NULL;
         XPathContextDATA(ctxt)->varLookup = NULL;
         XPathContextDATA(ctxt)->varData = NULL;
@@ -864,22 +862,6 @@
         }
 
 void
-_enter( pxpath_context )
-        SV * pxpath_context
-    PREINIT:
-        xmlXPathContextPtr ctxt = NULL;
-    INIT:
-        ctxt = (xmlXPathContextPtr)SvIV(SvRV(pxpath_context));
-        if ( ctxt == NULL ) {
-            croak("XPathContext: missing xpath context");
-        }
-    PPCODE:
-        if ( XPathContextDATA(ctxt)->lock != 0 ) {
-            croak("XPathContext: context is locked");
-        }
-        XPathContextDATA(ctxt)->lock=1;
-
-void
 _leave( pxpath_context )
         SV * pxpath_context
     PREINIT:
@@ -890,7 +872,6 @@
             croak("XPathContext: missing xpath context");
         }
     PPCODE:
-        XPathContextDATA(ctxt)->lock=0;
         if (XPathContextDATA(ctxt)->pool != NULL) {
             SvREFCNT_dec((SV *)XPathContextDATA(ctxt)->pool);
             XPathContextDATA(ctxt)->pool = NULL;