Skip to content

Commit ba4f1a7

Browse files
committed
remover some more unneeded compiler special casing
1 parent ac23cb3 commit ba4f1a7

3 files changed

Lines changed: 1 addition & 24 deletions

File tree

HashLib/src/Hash128/HlpMurmurHash3_x64_128.pas

Lines changed: 0 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -37,19 +37,10 @@ TMurmurHash3_x64_128 = class sealed(THash, IHash128, IHashWithKey,
3737

3838
const
3939
CKEY = UInt32($0);
40-
41-
{$IFDEF FPC}
4240
// to bypass Internal error (200706094) on FPC, We use "Typed Constant".
43-
4441
C1: UInt64 = UInt64($87C37B91114253D5);
4542
C5: UInt64 = UInt64($FF51AFD7ED558CCD);
4643
C6: UInt64 = UInt64($C4CEB9FE1A85EC53);
47-
48-
{$ELSE}
49-
C1 = UInt64($87C37B91114253D5);
50-
C5 = UInt64($FF51AFD7ED558CCD);
51-
C6 = UInt64($C4CEB9FE1A85EC53);
52-
{$ENDIF FPC}
5344
C2 = UInt64($4CF5AD432745937F);
5445
C3 = UInt32($52DCE729);
5546
C4 = UInt32($38495AB5);

HashLib/src/Hash64/HlpMurmur2_64.pas

Lines changed: 0 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -28,14 +28,8 @@ TMurmur2_64 = class sealed(TMultipleTransformNonBlock, IHash64, IHashWithKey,
2828

2929
const
3030
CKEY = UInt64($0);
31-
{$IFDEF FPC}
3231
// to bypass Internal error (200706094) on FPC, We use "Typed Constant".
33-
3432
M: UInt64 = UInt64($C6A4A7935BD1E995);
35-
36-
{$ELSE}
37-
M = UInt64($C6A4A7935BD1E995);
38-
{$ENDIF FPC}
3933
R = Int32(47);
4034

4135
function GetKeyLength(): TNullableInteger;

HashLib/src/Hash64/HlpXXHash64.pas

Lines changed: 1 addition & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -28,21 +28,13 @@ TXXHash64 = class sealed(THash, IHash64, IHashWithKey, ITransformBlock)
2828

2929
const
3030
CKEY = UInt64(0);
31-
32-
{$IFDEF FPC}
3331
// to bypass Internal error (200706094) on FPC, We use "Typed Constant".
3432
PRIME64_1: UInt64 = (11400714785074694791);
3533
PRIME64_2: UInt64 = (14029467366897019727);
3634
PRIME64_3: UInt64 = (1609587929392839161);
3735
PRIME64_4: UInt64 = (9650029242287828579);
3836
PRIME64_5: UInt64 = (2870177450012600261);
39-
{$ELSE}
40-
PRIME64_1 = UInt64(11400714785074694791);
41-
PRIME64_2 = UInt64(14029467366897019727);
42-
PRIME64_3 = UInt64(1609587929392839161);
43-
PRIME64_4 = UInt64(9650029242287828579);
44-
PRIME64_5 = UInt64(2870177450012600261);
45-
{$ENDIF FPC}
37+
4638
function GetKeyLength(): TNullableInteger;
4739
function GetKey: THashLibByteArray; inline;
4840
procedure SetKey(const AValue: THashLibByteArray); inline;

0 commit comments

Comments
 (0)