From f7944f4721d480e83ee0b163e2a1aff16344d1d8 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 13 May 2009 16:35:51 +0000
Subject: [PATCH] Patch by Sergei Gorelkin : The attached patch fixes
 compilation of WST with the latest changes in FPC trunk

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@799 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/wst_fpc_xml.pas | 19 ++++++++-----------
 1 file changed, 8 insertions(+), 11 deletions(-)

diff --git a/wst/trunk/wst_fpc_xml.pas b/wst/trunk/wst_fpc_xml.pas
index e99e641df..3cb5d71b6 100644
--- a/wst/trunk/wst_fpc_xml.pas
+++ b/wst/trunk/wst_fpc_xml.pas
@@ -52,17 +52,14 @@ uses
 
 function GetNodeItemsCount(const ANode : TDOMNode): Integer;
 var
-  chdLst : TDOMNodeList;
+  n: TDOMNode;
 begin
-  if ANode.HasChildNodes then begin
-    chdLst := ANode.ChildNodes;
-    try
-      Result := chdLst.Count;
-    finally
-      chdLst.Release();
-    end;
-  end else begin
-    Result := 0;
+  n := ANode.FirstChild;
+  Result := 0;
+  while Assigned(n) do
+  begin
+    Inc(Result);
+    n := n.NextSibling;
   end;
 end;
 
@@ -83,7 +80,7 @@ end;
 
 procedure ReleaseDomNode(ADomNode : TDOMNodeList);overload;
 begin
-  ADomNode.Release();
+  ADomNode.Free();
 end;
 
 procedure ReleaseDomNode(ADomNode : TDOMNamedNodeMap);overload;