hedgewars/uFloat.pas
branchqmlfrontend
changeset 10606 8e95911cb86b
parent 10562 3388822b3914
child 11046 47a8c19ecb60
--- a/hedgewars/uFloat.pas	Sat Nov 22 00:55:01 2014 +0300
+++ b/hedgewars/uFloat.pas	Wed Dec 03 00:07:33 2014 +0300
@@ -370,8 +370,8 @@
 
 function hwSqrt1(const t: hwFloat): hwFloat;
 const pwr = 8; // even value, feel free to adjust
-      rThreshold = 1 shl (pwr + 32);
-      lThreshold = 1 shl (pwr div 2 + 32);
+      rThreshold: QWord = 1 shl (pwr + 32);
+      lThreshold: QWord = 1 shl (pwr div 2 + 32);
 var l, r: QWord;
     c: hwFloat;
 begin