paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 00:29:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed memory leak in TOmfLibObjectReader.ReadLibrary

Browse Source 
git-svn-id: trunk@31748 -
This commit is contained in:
nickysn 2015-09-17 16:40:40 +00:00
parent 24d051703e
commit d942309402
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/owomflib.pas
View File

@ -366,6 +366,8 @@ implementation
Header.DecodeFrom(RawRecord); Header.DecodeFrom(RawRecord);
FPageSize:=Header.PageSize; FPageSize:=Header.PageSize;
ReadDictionary(Header.DictionaryOffset, Header.DictionarySizeInBlocks); ReadDictionary(Header.DictionaryOffset, Header.DictionarySizeInBlocks);
Header.Free;
RawRecord.Free;
end; end;
procedure TOmfLibObjectReader.ReadDictionary(DictionaryOffset: DWord; DictionarySizeInBlocks: Word); procedure TOmfLibObjectReader.ReadDictionary(DictionaryOffset: DWord; DictionarySizeInBlocks: Word);