Jelajahi Sumber

* fixed memory leak in TOmfLibObjectReader.ReadLibrary

git-svn-id: trunk@31748 -
nickysn 10 tahun lalu
induk
melakukan
d942309402
1 mengubah file dengan 2 tambahan dan 0 penghapusan
  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);