paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 13:37:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

demo: fixed compile, issue 34963

Browse Source
This commit is contained in:
mattias 2019-01-28 08:03:23 +00:00
parent c330f6ff6b
commit ce04b7c283
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
demo/promise/utils.pp
View File

@ -104,7 +104,7 @@ var
requestPromise : TJSPromise;
begin
fakeNetworkWait := Wait(3000 * random * Ord(fakeSlowNetwork));
fakeNetworkWait := Wait(trunc(3000 * random * Ord(fakeSlowNetwork)));
requestPromise:=TJSPromise.New(@DoRequest);
Result:=TJSPromise.all([fakeNetworkWait, requestPromise])._then(@ReturnResult);
end;