From c1f2dda6600a87d386a55ba71702de5f4a66382a Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 9 Jun 2009 22:48:50 +0000
Subject: [PATCH] fix for FCL-XML new ChildNodes policy

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@834 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/wst_fpc_xml.pas | 2 ++
 wst/trunk/wst_global.inc  | 5 ++++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/wst/trunk/wst_fpc_xml.pas b/wst/trunk/wst_fpc_xml.pas
index 3cb5d71b6..368b0facb 100644
--- a/wst/trunk/wst_fpc_xml.pas
+++ b/wst/trunk/wst_fpc_xml.pas
@@ -80,7 +80,9 @@ end;
 
 procedure ReleaseDomNode(ADomNode : TDOMNodeList);overload;
 begin
+{$IFNDEF TDOMNodeList_RELEASE_NOT_FREE}
   ADomNode.Free();
+{$ENDIF}
 end;
 
 procedure ReleaseDomNode(ADomNode : TDOMNamedNodeMap);overload;
diff --git a/wst/trunk/wst_global.inc b/wst/trunk/wst_global.inc
index 76ca9306e..f3930bcc2 100644
--- a/wst/trunk/wst_global.inc
+++ b/wst/trunk/wst_global.inc
@@ -16,10 +16,13 @@
       {$IF Defined(FPC_RELEASE) }
         {$IF Defined(FPC_VERSION) and (FPC_RELEASE > 0) }
           {$define FPC_211}
-          {$IF Defined(FPC_VERSION) and (FPC_RELEASE > 2) }
+          {$IF Defined(FPC_RELEASE) and (FPC_RELEASE > 2) }
             {$DEFINE WST_TKPROCVAR}
             {$DEFINE WST_UNICODESTRING}
           {$IFEND}
+          {$IF Defined(FPC_RELEASE) and ( (FPC_RELEASE > 2) or ( ( FPC_RELEASE = 2 ) and ( FPC_PATCH > 4 ) ) ) }
+            {$DEFINE TDOMNodeList_RELEASE_NOT_FREE}
+          {$IFEND}
         {$IFEND}
       {$IFEND}
     {$IFEND}