paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 06:28:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* revert r47532, r47527 (use timezone information from fpgettimeofday) because they are not available on all Linux distributions

Browse Source 
git-svn-id: trunk@47541 -
This commit is contained in:
ondrej 2020-11-23 15:17:52 +00:00
parent 0323f0b07d
commit 63beb1e83a
2 changed files with 18 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/unix/dos.pp
View File

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

27
rtl/unix/sysutils.pp
View File

@ -1191,12 +1191,12 @@ end;
Procedure DoGetUniversalDateTime(var year, month, day, hour, min, sec, msec, usec : word);
var
tp:timeval;
tz:timeval;
begin
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;
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;
end;
// Now, adjusted to local time.
@ -1204,14 +1204,12 @@ end;
Procedure DoGetLocalDateTime(var year, month, day, hour, min, sec, msec, usec : word);
var
tv:timeval;
tz:timezone;
tz:timeval;
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;
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;
end;
procedure GetTime(var hour,min,sec,msec,usec:word);
@ -1649,11 +1647,8 @@ end;
function GetLocalTimeOffset: Integer;
var
tz:timezone;
begin
fpgettimeofday(nil,@tz);
GetLocalTimeOffset:=tz.tz_minuteswest;
Result := -Tzseconds div 60;
end;
function GetLocalTimeOffset(const DateTime: TDateTime; const InputIsUTC: Boolean; out Offset: Integer): Boolean;