Shutup pas2c
authorunc0rr
Fri, 28 Sep 2012 00:39:20 +0400
changeset 7715 8b653edac2a2
parent 7714 981001b84f0b
child 7716 95117607b81a
Shutup pas2c
hedgewars/uFloat.pas
--- a/hedgewars/uFloat.pas	Fri Sep 28 00:18:07 2012 +0400
+++ b/hedgewars/uFloat.pas	Fri Sep 28 00:39:20 2012 +0400
@@ -589,13 +589,14 @@
 end;
 
 function vector2Angle(const x, y: hwFloat): LongInt;
-var d: hwFloat;
+var d, nf: hwFloat;
     l, r, c, oc: Longword;
     n: QWord;
 begin
     d:= _1 / Distance(x, y);
 
-    n:= (y * d).QWordValue;
+    nf:= y * d;
+    n:= nf.QWordValue;
 
     l:= 0;
     r:= 1024;