From ce04b7c28336a7cf48865a94ddfad07b885f63c3 Mon Sep 17 00:00:00 2001
From: mattias <mattias@idefix.freepascal.org>
Date: Mon, 28 Jan 2019 08:03:23 +0000
Subject: [PATCH] demo: fixed compile, issue 34963

---
 demo/promise/utils.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/demo/promise/utils.pp b/demo/promise/utils.pp
index 7fb2629..6d4041c 100644
--- a/demo/promise/utils.pp
+++ b/demo/promise/utils.pp
@@ -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;