paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 14:49:48 +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; buf[f.Size] := #0;
reader := TXMLReader.Create; reader := TXMLReader.Create;
reader.ProcessXML(buf, AFilename); try
FreeMem(buf, f.Size + 1); reader.ProcessXML(buf, AFilename);
ADoc := reader.doc; finally
reader.Free; FreeMem(buf, f.Size + 1);
ADoc := reader.doc;
reader.Free;
end;
end; end;
procedure ReadXMLFile(var ADoc: TXMLDocument; var f: TStream); procedure ReadXMLFile(var ADoc: TXMLDocument; var f: TStream);
@ -1407,6 +1410,9 @@ end.
{ {
$Log$ $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 Revision 1.13 2004/10/28 09:38:16 mattias
fixed COPYING.modifiedLGPL links fixed COPYING.modifiedLGPL links