From cbc938900f236d05850fd70754c14dbe0d7b2f9e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Thu, 22 Feb 2024 09:17:44 +0100
Subject: [PATCH] * Fix wrong assigned check pointed out by Gareth Moreton

---
 packages/chm/src/chmreader.pas | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/packages/chm/src/chmreader.pas b/packages/chm/src/chmreader.pas
index 395469c4af..b8d619efd5 100644
--- a/packages/chm/src/chmreader.pas
+++ b/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);