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 : 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 

   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;