mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: TDarwinDriverWatcher.tryAddDrive()

Browse source
This commit is contained in:
rich2014 2025-11-11 23:00:49 +08:00
commit 49576ac7ee
1 changed files with 12 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/platform/udrivewatcher.pas
View file

@ -77,6 +77,9 @@ uses
{$ENDIF}
;
const
MAX_FS = 128;
{$IFDEF LINUX}
type
@ -241,18 +244,18 @@ end;
procedure TDarwinDriverWatcher.tryAddDrive( Sender: TObject );
function driveReady: Boolean;
var
driveList: TDrivesList = nil;
fsPtr: ^TFixedStatfs;
fsList: array[0..MAX_FS] of TFixedStatfs;
count: Integer;
i: Integer;
begin
Result:= False;
driveList:= TDriveWatcher.GetDrivesList;
try
for i:=0 to driveList.Count-1 do begin
if _drivePath = driveList[i]^.Path then
Exit( True );
end;
finally
FreeAndNil( driveList );
count := getfsstat(@fsList, SizeOf(fsList), MNT_WAIT);
fsPtr := @fsList;
for i:=0 to count-1 do begin
if _drivePath = fsPtr^.mountpoint then
Exit( True );
inc( fsPtr );
end;
end;
var
@ -1296,8 +1299,6 @@ end;
else
Result := dtUnknown; // devfs, nullfs, procfs, etc.
end;
const
MAX_FS = 128;
var
drive: PDrive;
fstab: PFSTab;