Browse Source

* fixed memory leak in TOmfLibObjectReader.ReadLibrary

git-svn-id: trunk@31748 -
nickysn 10 years ago
parent
commit
d942309402
1 changed files with 2 additions and 0 deletions
  1. 2 0
      compiler/owomflib.pas

+ 2 - 0
compiler/owomflib.pas

@@ -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);