equal
deleted
inserted
replaced
212 ((z2.QWordValue and $8000000000000000) = 0) do |
212 ((z2.QWordValue and $8000000000000000) = 0) do |
213 begin |
213 begin |
214 t.QWordValue:= t.QWordValue shl 1; |
214 t.QWordValue:= t.QWordValue shl 1; |
215 z2.QWordValue:= z2.QWordValue shl 1 |
215 z2.QWordValue:= z2.QWordValue shl 1 |
216 end; |
216 end; |
217 z.Frac:= (t.QWordValue) div (z2.Round) |
217 if z2.Round > 0 then z.Frac:= (t.QWordValue) div (z2.Round) |
|
218 else z.Frac:= 0 |
218 end |
219 end |
219 end; |
220 end; |
220 |
221 |
221 operator / (const z1: hwFloat; const z2: LongInt) z : hwFloat; |
222 operator / (const z1: hwFloat; const z2: LongInt) z : hwFloat; |
222 begin |
223 begin |