hedgewars/uFloat.pas
changeset 8915 36e1574e989d
parent 8905 82b1400f4a08
child 8916 71485c03a507
equal deleted inserted replaced
8914:54eb3f358740 8915:36e1574e989d
   276     b:= z1.isNegative
   276     b:= z1.isNegative
   277 else
   277 else
   278     if z1.QWordValue = z2.QWordValue then
   278     if z1.QWordValue = z2.QWordValue then
   279         b:= false
   279         b:= false
   280     else
   280     else
   281         b:= not((z1.QWordValue = z2.QWordValue) or ((z2.QWordValue < z1.QWordValue) <> z1.isNegative))
   281         b:= (z2.QWordValue < z1.QWordValue) = z1.isNegative
   282 end;
   282 end;
   283 
   283 
   284 operator > (const z1, z2: hwFloat) b : boolean; inline;
   284 operator > (const z1, z2: hwFloat) b : boolean; inline;
   285 begin
   285 begin
   286 if z1.isNegative xor z2.isNegative then
   286 if z1.isNegative xor z2.isNegative then