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

* WebAssembly: fixed SysUtils.sleep() with large timeouts causing incorrect time

Browse Source 
delay, due to arithmetic overflow
This commit is contained in:
Nikolay Nikolov 2024-09-03 02:30:09 +03:00
parent 0314ba9bfd
commit ccbc28dd85
1 changed files with 1 additions and 1 deletions

2
rtl/wasi/sysutils.pp
View File

@ -760,7 +760,7 @@ begin
FillChar(subscription,SizeOf(subscription),0);
subscription.u.tag:=__WASI_EVENTTYPE_CLOCK;
subscription.u.u.clock.id:=__WASI_CLOCKID_MONOTONIC;
subscription.u.u.clock.timeout:=MilliSeconds*1000000;
subscription.u.u.clock.timeout:=__wasi_timestamp_t(MilliSeconds)*1000000;
subscription.u.u.clock.precision:=1000000;
subscription.u.u.clock.flags:=0; { timeout value is relative }
__wasi_poll_oneoff(@subscription,@event,1,@nevents);