pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases 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
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; function GetNodeItemsCount(const ANode : TDOMNode): Integer;
var var
chdLst : TDOMNodeList; n: TDOMNode;
begin begin
if ANode.HasChildNodes then begin n := ANode.FirstChild;
chdLst := ANode.ChildNodes; Result := 0;
try while Assigned(n) do
Result := chdLst.Count; begin
finally Inc(Result);
chdLst.Release(); n := n.NextSibling;
end;
end else begin
Result := 0;
end; end;
end; end;
@ -83,7 +80,7 @@ end;
procedure ReleaseDomNode(ADomNode : TDOMNodeList);overload; procedure ReleaseDomNode(ADomNode : TDOMNodeList);overload;
begin begin
ADomNode.Release(); ADomNode.Free();
end; end;
procedure ReleaseDomNode(ADomNode : TDOMNamedNodeMap);overload; procedure ReleaseDomNode(ADomNode : TDOMNamedNodeMap);overload;