From d6f5792f3691bd33ae6c644d0ba8ea9bdd540422 Mon Sep 17 00:00:00 2001
From: Mattias Gaertner <nc-gaertnma@netcologne.de>
Date: Wed, 20 Feb 2019 02:22:12 +0000
Subject: [PATCH] fcl-js: fixed MinMaxSafeIntDouble for significand bits
 instead of explicit bits

git-svn-id: trunk@41388 -
---
 packages/fcl-js/src/jsbase.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/fcl-js/src/jsbase.pp b/packages/fcl-js/src/jsbase.pp
index cbd72e3b88..e863a364ca 100644
--- a/packages/fcl-js/src/jsbase.pp
+++ b/packages/fcl-js/src/jsbase.pp
@@ -26,8 +26,8 @@ uses
   Classes;
 
 const
-  MinSafeIntDouble = -$fffffffffffff-1; // -4503599627370496
-  MaxSafeIntDouble =  $fffffffffffff; //  4503599627370495
+  MinSafeIntDouble = -$1fffffffffffff; // -9007199254740991 53 bits (52 explicitly stored)
+  MaxSafeIntDouble =  $1fffffffffffff; //  9007199254740991
 Type
   TJSType = (jstUNDEFINED,jstNull,jstBoolean,jstNumber,jstString,jstObject,jstReference,jstCompletion);