paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 23:29:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix wrong assigned check pointed out by Gareth Moreton

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-02-22 09:17:44 +01:00
parent e87e14c7cc
commit cbc938900f
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/chm/src/chmreader.pas
View File

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