Perform small optimization of sqrt
authorunc0rr
Sun, 20 Jan 2008 22:57:05 +0000
changeset 745 43b344488804
parent 744 7a9663194767
child 746 980240306370
Perform small optimization of sqrt
hedgewars/uFloat.pas
--- a/hedgewars/uFloat.pas	Sun Jan 20 22:53:46 2008 +0000
+++ b/hedgewars/uFloat.pas	Sun Jan 20 22:57:05 2008 +0000
@@ -294,7 +294,7 @@
    end else
    begin
    l:= $100000000;
-   r:= t.QWordValue
+   r:= t.QWordValue div 2 + $80000000 // r:= t / 2 + 0.5 
    end;
 
 repeat