paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 01:09:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

tools: fix another memory leak - it may happen in case of exception

Browse Source 
git-svn-id: trunk@37030 -
This commit is contained in:
paul 2012-04-26 06:50:45 +00:00
parent d9d4cafa40
commit d335785ef6
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tools/svn2revisioninc.pas
View File

@ -204,17 +204,21 @@ var
EntriesDoc: TXMLDocument;
EntryNode: TDomNode;
begin
Result:=false;
Result := False;
EntriesFileName:=AppendPathDelim(SourceDirectory)+'.svn'+PathDelim+'entries';
if FileExistsUTF8(EntriesFileName) then begin
if FileExistsUTF8(EntriesFileName) then
begin
try
ReadXMLFile(EntriesDoc, EntriesFileName);
EntriesDoc := nil;
try
ReadXMLFile(EntriesDoc, EntriesFileName);
EntryNode := EntriesDoc.FirstChild.FirstChild;
while not Result and (EntryNode<>nil) do begin
if EntryNode.Attributes.GetNamedItem('name').NodeValue='' then begin
while not Result and Assigned(EntryNode) do
begin
if EntryNode.Attributes.GetNamedItem('name').NodeValue='' then
begin
RevisionStr:=EntryNode.Attributes.GetNamedItem('revision').NodeValue;
Result:=true;
Result := True;
end;
EntryNode := EntryNode.NextSibling;
end;
@ -438,8 +442,8 @@ var
begin
Result := false;
p := TProcessUTF8.Create(nil);
sl := TStringList.Create;
try
sl := TStringList.Create;
p.CommandLine := 'git branch';
p.Options := [poUsePipes, poWaitOnExit];
p.Execute;