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: Compiling with FPC 2.4.x.

Browse source
This commit is contained in:
cobines 2011-08-02 18:18:29 +00:00
commit 35cd3fd385
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/newdesign/ufilesystemfilesource.pas
View file

@ -513,7 +513,7 @@ begin
fpCreationTime,
fpLastAccessTime,
fpOwner] * PropertiesToSet <> []) or
((TFilePropertyType.fpLink in PropertiesToSet) and (not (fpAttributes in AssignedProperties))) then
((uFileProperty.fpLink in PropertiesToSet) and (not (fpAttributes in AssignedProperties))) then
begin
if fpLstat(sFullPath, StatInfo) = -1 then
raise EFileNotFound.Create(sFullPath);
@ -542,7 +542,7 @@ begin
FileTimeToDateTime(StatInfo.st_atime));
end;
if TFilePropertyType.fpLink in PropertiesToSet then
if uFileProperty.fpLink in PropertiesToSet then
begin
Attrs := Attributes;
@ -704,7 +704,7 @@ begin
fpModificationTime,
fpCreationTime,
fpLastAccessTime,
TFilePropertyType.fpLink
uFileProperty.fpLink
];
end;