equal
deleted
inserted
replaced
61 function hwFloat2Float (const i: hwFloat) : extended; inline; |
61 function hwFloat2Float (const i: hwFloat) : extended; inline; |
62 |
62 |
63 // The implemented operators |
63 // The implemented operators |
64 |
64 |
65 operator = (const z1, z2: hwFloat) z : boolean; inline; |
65 operator = (const z1, z2: hwFloat) z : boolean; inline; |
|
66 operator <> (const z1, z2: hwFloat) z : boolean; inline; |
66 operator + (const z1, z2: hwFloat) z : hwFloat; inline; |
67 operator + (const z1, z2: hwFloat) z : hwFloat; inline; |
67 operator - (const z1, z2: hwFloat) z : hwFloat; inline; |
68 operator - (const z1, z2: hwFloat) z : hwFloat; inline; |
68 operator - (const z1: hwFloat) z : hwFloat; inline; |
69 operator - (const z1: hwFloat) z : hwFloat; inline; |
69 |
70 |
70 operator * (const z1, z2: hwFloat) z : hwFloat; inline; |
71 operator * (const z1, z2: hwFloat) z : hwFloat; inline; |
211 begin |
212 begin |
212 z:= (z1.isNegative = z2.isNegative) and (z1.QWordValue = z2.QWordValue); |
213 z:= (z1.isNegative = z2.isNegative) and (z1.QWordValue = z2.QWordValue); |
213 end; |
214 end; |
214 |
215 |
215 |
216 |
|
217 operator <> (const z1, z2: hwFloat) z : boolean; inline; |
|
218 begin |
|
219 z:= (z1.isNegative <> z2.isNegative) or (z1.QWordValue <> z2.QWordValue); |
|
220 end; |
|
221 |
|
222 |
216 operator + (const z1, z2: hwFloat) z : hwFloat; |
223 operator + (const z1, z2: hwFloat) z : hwFloat; |
217 begin |
224 begin |
218 if z1.isNegative = z2.isNegative then |
225 if z1.isNegative = z2.isNegative then |
219 begin |
226 begin |
220 z.isNegative:= z1.isNegative; |
227 z.isNegative:= z1.isNegative; |