* FileGetDate, FileSetDate linux compilation

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@47397 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 11 insertions, 9 deletions

diff --git a/rtl/win/sysutils.pp b/rtl/win/sysutils.pp
index b33457d52e..1a511fab51 100644
--- a/rtl/win/sysutils.pp
+++ b/rtl/win/sysutils.pp
@@ -694,28 +694,30 @@ begin
   Result := GetLastError;
 end;
 
-Function FileSetDate (Handle : THandle; const Age: TDateTime) : Boolean;
+Function FileSetDate (Handle : THandle; const Age: TDateTime) : Longint;
 var
   FT: TFiletime;
   LT: TFiletime;
   ST: TSystemTime;
 begin
   DateTimeToSystemTime(Age,ST);
-  Result :=
-        SystemTimeToFileTime(ST,LT)
-    and LocalFileTimeToFileTime(LT,FT)
-    and SetFileTime(Handle,nil,nil,@FT);
+  if SystemTimeToFileTime(ST,LT) and LocalFileTimeToFileTime(LT,FT)
+    and SetFileTime(Handle,nil,nil,@FT) then
+    Result:=0
+  else
+    Result:=GetLastError;
 end;
 
-Function FileSetDateUTC (Handle : THandle; const AgeUTC: TDateTime) : Boolean;
+Function FileSetDateUTC (Handle : THandle; const AgeUTC: TDateTime) : Longint;
 var
   FT: TFiletime;
   ST: TSystemTime;
 begin
   DateTimeToSystemTime(AgeUTC,ST);
-  Result :=
-    SystemTimeToFileTime(ST,FT) and
-    SetFileTime(Handle,nil,nil,@FT);
+  if SystemTimeToFileTime(ST,FT) and SetFileTime(Handle,nil,nil,@FT) then
+    Result:=0
+  else
+    Result:=GetLastError;
 end;
 
 {$IFDEF OS_FILESETDATEBYNAME}