paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 22:12:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed memleak after parsing error.

Browse Source 
git-svn-id: trunk@6386 -
This commit is contained in:
vincents 2004-12-17 14:41:41 +00:00
parent 7efb2d0f67
commit e503a92f83
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/codetools/laz_xmlread.pas
View File

@ -1307,10 +1307,13 @@ begin
buf[f.Size] := #0;
reader := TXMLReader.Create;
reader.ProcessXML(buf, AFilename);
FreeMem(buf, f.Size + 1);
ADoc := reader.doc;
reader.Free;
try
reader.ProcessXML(buf, AFilename);
finally
FreeMem(buf, f.Size + 1);
ADoc := reader.doc;
reader.Free;
end;
end;
procedure ReadXMLFile(var ADoc: TXMLDocument; var f: TStream);
@ -1407,6 +1410,9 @@ end.
{
$Log$
Revision 1.14 2004/12/17 14:41:41 vincents
fixed memleak after parsing error.
Revision 1.13 2004/10/28 09:38:16 mattias
fixed COPYING.modifiedLGPL links