Browse Source

* Fix wrong assigned check pointed out by Gareth Moreton

Michaël Van Canneyt 1 year ago
parent
commit
cbc938900f
1 changed files with 1 additions and 2 deletions
  1. 1 2
      packages/chm/src/chmreader.pas

+ 1 - 2
packages/chm/src/chmreader.pas

@@ -529,7 +529,6 @@ var
   version   : integer;
   x         : TChmWindow;
 begin
- if not assigned(fwindowslist) then
  fWindowsList.Clear;
  mem.Position:=0;
  cnt  := LEtoN(mem.ReadDWord);
@@ -594,7 +593,7 @@ end;
 constructor TChmReader.Create(AStream: TStream; FreeStreamOnDestroy: Boolean);
 begin
   fContextList := TContextList.Create;
-  fWindowslist      := TObjectlist.Create(True);
+  fWindowslist := TObjectlist.Create(True);
   fDefaultWindow:='';
 
   inherited Create(AStream, FreeStreamOnDestroy);