Ver Fonte

* fixed memory leak in TOmfLibObjectReader.ReadLibrary

git-svn-id: trunk@31748 -
nickysn há 10 anos atrás
pai
commit
d942309402
1 ficheiros alterados com 2 adições e 0 exclusões
  1. 2 0
      compiler/owomflib.pas

+ 2 - 0
compiler/owomflib.pas

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