313 end;

   313 end;

   314 

   314 

   315 operator / (const z1: hwFloat; z2: hwFloat) z : hwFloat; inline;

   315 operator / (const z1: hwFloat; z2: hwFloat) z : hwFloat; inline;

   316 var t: hwFloat;

   316 var t: hwFloat;

   317 begin

   317 begin

   318 z.isNegative:= z1.isNegative xor z2.isNegative;

   319 z.isNegative:= z1.isNegative xor z2.isNegative;

   319 z.Round:= z1.QWordValue div z2.QWordValue;

   320 z.Round:= z1.QWordValue div z2.QWordValue;

   320 t:= z1 - z2 * z.Round;

   321 t:= z1 - z2 * z.Round;

   321 z.Frac:= 0;

   322 z.Frac:= 0;

   322 

   323