hedgewars/uFloat.pas
changeset 7042 de20086a6bcc
parent 6879 f44042ba755c
child 7043 7c080e5ac8d0
--- a/hedgewars/uFloat.pas	Thu May 10 22:55:13 2012 +0400
+++ b/hedgewars/uFloat.pas	Thu May 10 23:51:05 2012 +0400
@@ -63,6 +63,7 @@
 // The implemented operators
 
 operator = (const z1, z2: hwFloat) z : boolean; inline;
+operator <> (const z1, z2: hwFloat) z : boolean; inline;
 operator + (const z1, z2: hwFloat) z : hwFloat; inline;
 operator - (const z1, z2: hwFloat) z : hwFloat; inline;
 operator - (const z1: hwFloat) z : hwFloat; inline;
@@ -213,6 +214,12 @@
 end;
 
 
+operator <> (const z1, z2: hwFloat) z : boolean; inline;
+begin
+    z:= (z1.isNegative <> z2.isNegative) or (z1.QWordValue <> z2.QWordValue);
+end;
+
+
 operator + (const z1, z2: hwFloat) z : hwFloat;
 begin
 if z1.isNegative = z2.isNegative then