hedgewars/uFloat.pas
changeset 7623 addc5b262617
parent 7614 3ae60c8a15f2
child 7624 03d662ff9c41
--- a/hedgewars/uFloat.pas	Wed Aug 29 16:42:22 2012 +0400
+++ b/hedgewars/uFloat.pas	Wed Aug 29 09:58:23 2012 -0400
@@ -269,6 +269,11 @@
     z.QWordValue:= z1.QWordValue + z2.QWordValue
     end
 end;
+
+function isZero(const z: hwFloat): boolean; inline; 
+begin
+isZero := z.QWordValue = 0;
+end;
 {$ENDIF}
 {$IFDEF WEB}
 (*
@@ -343,6 +348,11 @@
     if z.Frac<z1.Frac then inc(z.Round)
     end
 end;
+
+function isZero(const z: hwFloat): boolean; inline; 
+begin
+isZero := z.Round = 0 and z.Frac = 0;
+end;
 {$ENDIF}
 
 operator - (const z1: hwFloat) z : hwFloat;
@@ -544,11 +554,6 @@
 else
     AngleCos.QWordValue:= SinTable[Angle - 1024]
 end;
-
-function isZero(const z: hwFloat): boolean; inline; 
-begin
-isZero := z.QWordValue = 0;
-end;
 {$ENDIF}
 
 end.