From 0934df505cdf94d24ff93dcd6c23eefac8799795 Mon Sep 17 00:00:00 2001 From: Nikolay Nikolov Date: Wed, 13 Oct 2021 01:28:45 +0300 Subject: [PATCH] + implemented SysUtils.GetLocalTime for WASI --- rtl/wasi/sysutils.pp | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/rtl/wasi/sysutils.pp b/rtl/wasi/sysutils.pp index 7e4a0003ff..7d1c3d3a5a 100644 --- a/rtl/wasi/sysutils.pp +++ b/rtl/wasi/sysutils.pp @@ -667,8 +667,20 @@ end; {$I tzenv.inc} Procedure GetLocalTime(var SystemTime: TSystemTime); +var + NanoSecsPast: __wasi_timestamp_t; 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; {****************************************************************************