mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Compilation under Linux

Browse source
This commit is contained in:
Alexander Koblov 2012-04-14 19:37:30 +00:00
commit c327939385
4 changed files with 8 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

11
components/doublecmd/dcdatetimeutils.pas
View file

@ -486,12 +486,11 @@ end;
function UnixFileTimeToWinTime(UnixTime: TUnixFileTime): TWinFileTime;
var
ft: Windows.TFileTime;
WinFileTime: TWinFileTime;
begin
ft.dwLowDateTime := $D53E8000; // Unix epoch start
ft.dwHighDateTime := $019DB1DE;
if not AdjustWinFileTime(TWinFileTime(ft), Result, 10000000 * Int64(UnixTime)) then
Result := TWinFileTime(ft);
WinFileTime := $019DB1DED53E8000; // Unix epoch start
if not AdjustWinFileTime(WinFileTime, Result, 10000000 * Int64(UnixTime)) then
Result := WinFileTime;
end;
function GetTimeZoneBias: LongInt;
@ -575,4 +574,4 @@ initialization
{$ENDIF}
end.

2
src/ffileproperties.pas
View file

@ -142,7 +142,7 @@ implementation
uses
LCLType, FileUtil, StrUtils, uLng, BaseUnix, uUsersGroups, uDCUtils, uOSUtils,
uDefaultFilePropertyFormatter, uMyUnix, uFileAttributes,
uDefaultFilePropertyFormatter, uMyUnix, DCFileAttributes,
uFileSourceOperationTypes, uFileSystemFileSource, uOperationsManager,
uFileSourceOperationOptions, uKeyboard, DCStrUtils;

2
src/newdesign/ufile.pas
View file

@ -275,7 +275,7 @@ implementation
{$IFDEF UNIX}
uses
uFileAttributes;
DCFileAttributes;
{$ENDIF}
constructor TFile.Create(const APath: String);

2
src/platform/uOSUtils.pas
View file

@ -29,7 +29,7 @@ interface
uses
SysUtils, Classes, LCLType, uDrive, DCBasicTypes
{$IF DEFINED(UNIX)}
, uFileAttributes
, DCFileAttributes
{$IFDEF DARWIN}
, MacOSAll
{$ENDIF}