equal
deleted
inserted
replaced
228 z.QWordValue:= z1.QWordValue div abs(z2) |
228 z.QWordValue:= z1.QWordValue div abs(z2) |
229 end; |
229 end; |
230 |
230 |
231 operator < (const z1, z2: hwFloat) b : boolean; |
231 operator < (const z1, z2: hwFloat) b : boolean; |
232 begin |
232 begin |
233 if z1.isNegative <> z2.isNegative then |
233 if z1.isNegative xor z2.isNegative then |
234 b:= z1.isNegative |
234 b:= z1.isNegative |
235 else |
235 else |
236 if z1.QWordValue = z2.QWordValue then |
236 if z1.QWordValue = z2.QWordValue then |
237 b:= false |
237 b:= false |
238 else |
238 else |
239 b:= (z1.QWordValue < z2.QWordValue) xor z1.isNegative |
239 b:= (z1.QWordValue < z2.QWordValue) xor z1.isNegative |
240 end; |
240 end; |
241 |
241 |
242 operator > (const z1, z2: hwFloat) b : boolean; |
242 operator > (const z1, z2: hwFloat) b : boolean; |
243 begin |
243 begin |
244 if z1.isNegative <> z2.isNegative then |
244 if z1.isNegative xor z2.isNegative then |
245 b:= z2.isNegative |
245 b:= z2.isNegative |
246 else |
246 else |
247 if z1.QWordValue = z2.QWordValue then |
247 if z1.QWordValue = z2.QWordValue then |
248 b:= false |
248 b:= false |
249 else |
249 else |