From: DeaDDooMER Date: Thu, 17 Jun 2021 20:04:46 +0000 (+0300) Subject: sfs: fix garbage collector X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=1b91259cc2544a3e3dd76adb5e8f8ef0879fc199;p=d2df-sdl.git sfs: fix garbage collector --- diff --git a/src/sfs/sfs.pas b/src/sfs/sfs.pas index 5e5c0d2..11e1045 100644 --- a/src/sfs/sfs.pas +++ b/src/sfs/sfs.pas @@ -455,8 +455,7 @@ begin while f < volumes.Count do begin vi := TVolumeInfo(volumes[f]); - if vi = nil then continue; - if (not vi.fPermanent) and (vi.fOpenedFilesCount = 0) then + if (vi <> nil) and (not vi.fPermanent) and (vi.fOpenedFilesCount = 0) then begin // this volume probably can be removed used := false;