paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 10:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ also fill DayOfWeek in the Unix implementation of SysUtils.GetLocalTime

Browse Source 
(cherry picked from commit f21273612a)
This commit is contained in:
Nikolay Nikolov 2021-10-13 02:39:04 +03:00 committed by marcoonthegit
parent f762d4e0c2
commit 819658f61e
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/unix/sysutils.pp
View File

@ -1467,6 +1467,7 @@ var
usecs : Word;
begin
DoGetLocalDateTime(SystemTime.Year, SystemTime.Month, SystemTime.Day,SystemTime.Hour, SystemTime.Minute, SystemTime.Second, SystemTime.MilliSecond, usecs);
SystemTime.DayOfWeek:=DayOfWeek(EncodeDate(SystemTime.Year,SystemTime.Month,SystemTime.Day))-1;
end ;
{$endif}