2
0
Эх сурвалжийг харах

* fixed memory leak in TOmfLibObjectReader.ReadLibrary

git-svn-id: trunk@31748 -
nickysn 10 жил өмнө
parent
commit
d942309402
1 өөрчлөгдсөн 2 нэмэгдсэн , 0 устгасан
  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);