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

UPD: Clean up

Browse source
This commit is contained in:
Alexander Koblov 2015-06-28 08:28:31 +00:00
commit ba8db70b7d
1 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/platform/uOSUtils.pas
View file

@ -467,12 +467,10 @@ function GetDiskFreeSpace(const Path : String; out FreeSize, TotalSize : Int64)
var
sbfs: TStatFS;
begin
Result:= (fpStatFS(PChar(UTF8ToSys(Path)), @sbfs) = 0);
if not Result then Exit;
FreeSize := (Int64(sbfs.bavail)*sbfs.bsize);
{$IF DEFINED(CPU32) or (FPC_VERSION>2) or ((FPC_VERSION=2) and ((FPC_RELEASE>2) or ((FPC_RELEASE=2) and (FPC_PATCH>=3))))}
TotalSize := (Int64(sbfs.blocks)*sbfs.bsize);
{$ENDIF}
Result:= (fpStatFS(PChar(UTF8ToSys(Path)), @sbfs) = 0);
if not Result then Exit;
FreeSize := (Int64(sbfs.bavail) * sbfs.bsize);
TotalSize := (Int64(sbfs.blocks) * sbfs.bsize);
end;
{$ELSE}
var