paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch by Sergei Gorelkin : The attached patch fixes compilation of WST with the latest changes in FPC trunk

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@799 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2009-05-13 16:35:51 +00:00
parent e14f7af87a
commit f7944f4721
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
wst/trunk/wst_fpc_xml.pas
View File

@ -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;