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

+ implemented SysUtils.GetLocalTime for WASI

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-10-13 01:28:45 +03:00
parent 00d4a6889d
commit 0934df505c
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/wasi/sysutils.pp
View File

@ -667,8 +667,20 @@ end;
{$I tzenv.inc} {$I tzenv.inc}
Procedure GetLocalTime(var SystemTime: TSystemTime); Procedure GetLocalTime(var SystemTime: TSystemTime);
var
NanoSecsPast: __wasi_timestamp_t;
begin begin
end ; if __wasi_clock_time_get(__WASI_CLOCKID_REALTIME,1000000,@NanoSecsPast)=__WASI_ERRNO_SUCCESS then
begin
EpochToLocal(NanoSecsPast div 1000000000,
SystemTime.Year,SystemTime.Month,SystemTime.Day,
SystemTime.Hour,SystemTime.Minute,SystemTime.Second);
SystemTime.MilliSecond := (NanoSecsPast div 1000000) mod 1000;
SystemTime.DayOfWeek := DayOfWeek(EncodeDate(SystemTime.Year,SystemTime.Month,SystemTime.Day))-1;
end
else
FillChar(SystemTime,SizeOf(SystemTime),0);
end;
{**************************************************************************** {****************************************************************************