hedgewars/uFloat.pas
changeset 7110 c91d33837b0d
parent 7043 7c080e5ac8d0
child 7515 8957b05d368a
--- a/hedgewars/uFloat.pas	Thu May 03 22:48:02 2012 +0200
+++ b/hedgewars/uFloat.pas	Tue May 22 11:19:32 2012 +0200
@@ -63,6 +63,9 @@
 // The implemented operators
 
 operator = (const z1, z2: hwFloat) z : boolean; inline;
+{$IFDEF PAS2C}
+operator <> (const z1, z2: hwFloat) z : boolean; inline;
+{$ENDIF}
 operator + (const z1, z2: hwFloat) z : hwFloat; inline;
 operator - (const z1, z2: hwFloat) z : hwFloat; inline;
 operator - (const z1: hwFloat) z : hwFloat; inline;
@@ -212,6 +215,12 @@
     z:= (z1.isNegative = z2.isNegative) and (z1.QWordValue = z2.QWordValue);
 end;
 
+{$IFDEF PAS2C}
+operator <> (const z1, z2: hwFloat) z : boolean; inline;
+begin
+    z:= (z1.isNegative <> z2.isNegative) or (z1.QWordValue <> z2.QWordValue);
+end;
+{$ENDIF}
 
 operator + (const z1, z2: hwFloat) z : hwFloat;
 begin