equal
deleted
inserted
replaced
27 isNegative: boolean; |
27 isNegative: boolean; |
28 case byte of |
28 case byte of |
29 0: (Frac, Round: Longword); |
29 0: (Frac, Round: Longword); |
30 1: (QWordValue : QWord); |
30 1: (QWordValue : QWord); |
31 end; |
31 end; |
32 {$else FPC_LITTLE_ENDIAN} |
32 {$else} |
33 type hwFloat = record |
33 type hwFloat = record |
34 isNegative: boolean; |
34 isNegative: boolean; |
35 case byte of |
35 case byte of |
36 0: (Round, Frac: Longword); |
36 0: (Round, Frac: Longword); |
37 1: (QWordValue : QWord); |
37 1: (QWordValue : QWord); |
38 end; |
38 end; |
39 {$endif FPC_LITTLE_ENDIAN} |
39 {$endif} |
40 |
40 |
41 function int2hwFloat (const i: LongInt) : hwFloat; |
41 function int2hwFloat (const i: LongInt) : hwFloat; |
42 |
42 |
43 operator + (const z1, z2: hwFloat) z : hwFloat; |
43 operator + (const z1, z2: hwFloat) z : hwFloat; |
44 operator - (const z1, z2: hwFloat) z : hwFloat; |
44 operator - (const z1, z2: hwFloat) z : hwFloat; |