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

--- Merging r39706 into '.':
U packages/chm/src/chmreader.pas
--- Recording mergeinfo for merge of r39706 into '.':
U .

# revisions: 39706

git-svn-id: branches/fixes_3_2@39792 -

marco 6 жил өмнө
parent
commit
a50560f383

+ 4 - 0
packages/chm/src/chmreader.pas

@@ -416,6 +416,8 @@ procedure TChmReader.ReadCommonData;
        end;
      end;
      ReadWindows(FWindows);
+     fWindows.Free;
+     fStrings.Free;
    end;
    procedure ReadContextIds;
    var
@@ -441,6 +443,8 @@ procedure TChmReader.ReadCommonData;
        Str := '/'+ ReadString(fStrings, Offset, True);
        fContextList.AddContext(Value, Str);
      end;
+     fIVB.Free;
+     fStrings.Free;
    end;
 begin
    ReadFromSystem;