hedgewars/uMisc.pas
changeset 2279 ef19b949ad30
parent 2272 c59656d7b1de
child 2290 bf87ca44782e
--- a/hedgewars/uMisc.pas	Sun Jul 26 20:56:18 2009 +0000
+++ b/hedgewars/uMisc.pas	Tue Jul 28 12:32:33 2009 +0000
@@ -170,7 +170,7 @@
 
 function hwSign(r: hwFloat): LongInt;
 begin
-if r.isNegative then hwSign:= -1 else hwSign:= 1
+if r.isNegative and (r.QWordValue > 0) then hwSign:= -1 else hwSign:= 1
 end;
 
 function Min(a, b: LongInt): LongInt;