* use timezone information from fpgettimeofday for getting local datetime

git-svn-id: trunk@47527 -
(cherry picked from commit f5a95782a94e41a09184808b54f3857b9afe8b2e)

rtl/unix/dos.pp

@@ -144,11 +144,13 @@ end;
 
 Procedure GetDate(Var Year, Month, MDay, WDay: Word);
 var
-  tz:timeval;
+  tv:timeval;
+  tz:timezone;
   hour,min,sec : word;
 begin
-  fpgettimeofday(@tz,nil);
-  EpochToLocal(tz.tv_sec,year,month,mday,hour,min,sec);
+  fpgettimeofday(@tv,@tz);
+  tv.tv_sec:=tv.tv_sec-tz.tz_minuteswest*60;
+  EpochToUniversal(tv.tv_sec,year,month,mday,hour,min,sec);
   Wday:=weekday(Year,Month,MDay);
 end;
 
@@ -189,12 +191,14 @@ end;
 
 Procedure GetTime(Var Hour, Minute, Second, Sec100: Word);
 var
-  tz:timeval;
+  tv:timeval;
+  tz:timezone;
   year,month,day : word;
 begin
-  fpgettimeofday(@tz,nil);
-  EpochToLocal(tz.tv_sec,year,month,day,hour,minute,second);
-  sec100:=tz.tv_usec div 10000;
+  fpgettimeofday(@tv,@tz);
+  tv.tv_sec:=tv.tv_sec-tz.tz_minuteswest*60;
+  EpochToUniversal(tv.tv_sec,year,month,day,hour,minute,second);
+  sec100:=tv.tv_usec div 10000;
 end;
 
 

rtl/unix/sysutils.pp

@@ -1385,12 +1385,12 @@ end;
 Procedure DoGetUniversalDateTime(var year, month, day, hour, min,  sec, msec, usec : word);
 
 var
-  tz:timeval;
+  tp:timeval;
 begin
-  fpgettimeofday(@tz,nil);
-  EpochToUniversal(tz.tv_sec,year,month,day,hour,min,sec);
-  msec:=tz.tv_usec div 1000;
-  usec:=tz.tv_usec mod 1000;
+  fpgettimeofday(@tp,nil);
+  EpochToUniversal(tp.tv_sec,year,month,day,hour,min,sec);
+  msec:=tp.tv_usec div 1000;
+  usec:=tp.tv_usec mod 1000;
 end;
 
 // Now, adjusted to local time.
@@ -1398,12 +1398,14 @@ end;
 Procedure DoGetLocalDateTime(var year, month, day, hour, min,  sec, msec, usec : word);
 
 var
-  tz:timeval;
-begin
-  fpgettimeofday(@tz,nil);
-  EpochToLocal(tz.tv_sec,year,month,day,hour,min,sec);
-  msec:=tz.tv_usec div 1000;
-  usec:=tz.tv_usec mod 1000;
+  tv:timeval;
+  tz:timezone;
+begin
+  fpgettimeofday(@tv,@tz);
+  tv.tv_sec:=tv.tv_sec-tz.tz_minuteswest*60;
+  EpochToUniversal(tv.tv_sec,year,month,day,hour,min,sec);
+  msec:=tv.tv_usec div 1000;
+  usec:=tv.tv_usec mod 1000;
 end;
 
 procedure GetTime(var hour,min,sec,msec,usec:word);