paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-29 20:46:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ implemented GetMsCount in the DOS unit for WASI

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-10-05 20:49:32 +03:00
parent 074ce9c50f
commit e19fcd2b8b
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/wasi/dos.pp
View File

@ -227,7 +227,13 @@ End;
function GetMsCount: int64; function GetMsCount: int64;
var
NanoSecsPast: __wasi_timestamp_t;
begin begin
if __wasi_clock_time_get(__WASI_CLOCKID_REALTIME,1000000,@NanoSecsPast)=__WASI_ERRNO_SUCCESS then
GetMsCount:=NanoSecsPast div 1000000
else
GetMsCount:=0;
end; end;