Skip to content

Commit 533cc56

Browse files
Xor-elXor-el
committed
Remove Delphi {$REGION}/{$ENDREGION} folding directives from sources
1 parent f4e7102 commit 533cc56

15 files changed

Lines changed: 0 additions & 44 deletions

‎HashLib/src/Checksum/HlpCRC.pas‎

Lines changed: 0 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -24,8 +24,6 @@ interface
2424
SUnSupportedCRCType = 'UnSupported CRC Type: "%s"';
2525
SWidthOutOfRange = 'Width Must be Between 3 and 64. "%d"';
2626

27-
{$REGION 'CRC Standards'}
28-
2927
type
3028
/// <summary>
3129
/// Enum of all defined and implemented CRC standards.
@@ -572,8 +570,6 @@ interface
572570
/// </summary>
573571
CRC64_Jones);
574572

575-
{$ENDREGION}
576-
577573
type
578574
TCRC = class sealed(THash, IChecksum, ICRC, ITransformBlock)
579575

@@ -954,8 +950,6 @@ constructor TCRC.Create(AWidth: Int32; APolynomial, AInitial: UInt64;
954950
FCacheEntry := GetOrCreateCacheEntry(Polynomial, Width, IsInputReflected);
955951
end;
956952

957-
{$REGION 'CRC Standards Implementation'}
958-
959953
class function TCRC.CreateCRCObject(AValue: TCRCStandard): ICRC;
960954
begin
961955
case AValue of
@@ -1417,8 +1411,6 @@ class function TCRC.CreateCRCObject(AValue: TCRCStandard): ICRC;
14171411
end;
14181412
end;
14191413

1420-
{$ENDREGION}
1421-
14221414
class constructor TCRC.CreateCRCCache;
14231415
begin
14241416
FCache := TDictionary<String, TCRCCacheValue>.Create;

‎HashLib/src/Crypto/HlpBlake3.pas‎

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -29,7 +29,6 @@ interface
2929
type
3030
TBlake3 = class(THash, ICryptoNotBuildIn, ITransformBlock)
3131
strict private
32-
{$REGION 'Consts'}
3332
const
3433
ChunkSize = Int32(1024);
3534
BlockSizeInBytes = Int32(64);
@@ -48,7 +47,6 @@ TBlake3 = class(THash, ICryptoNotBuildIn, ITransformBlock)
4847

4948
IV: array [0 .. 7] of UInt32 = ($6A09E667, $BB67AE85, $3C6EF372, $A54FF53A,
5049
$510E527F, $9B05688C, $1F83D9AB, $5BE0CD19);
51-
{$ENDREGION}
5250

5351
// A TBlake3Node represents a chunk or parent in the BLAKE3 Merkle tree. In BLAKE3
5452
// terminology, the elements of the bottom layer (aka "leaves") of the tree are

‎HashLib/src/Crypto/HlpGOST3411_2012.pas‎

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -353,7 +353,6 @@ procedure TGOST3411_2012.F(const AVector: THashLibByteArray);
353353

354354
class constructor TGOST3411_2012.GOST3411_2012;
355355
begin
356-
{$REGION 'Consts'}
357356
FC := THashLibMatrixByteArray.Create(THashLibByteArray.Create(Byte($B1),
358357
Byte($08), Byte($5B), Byte($DA), Byte($1E), Byte($CA), Byte($DA), Byte($E9),
359358
Byte($EB), Byte($CB), Byte($2F), Byte($81), Byte($C0), Byte($65), Byte($7C),
@@ -1517,7 +1516,6 @@ procedure TGOST3411_2012.F(const AVector: THashLibByteArray);
15171516
UInt64($938290A9ECD1DBB3), UInt64($88E3B293344DD172),
15181517
UInt64($2734158C250FA3D6)));
15191518

1520-
{$ENDREGION}
15211519
end;
15221520

15231521
procedure TGOST3411_2012.GN(const AHashState, ACounter, AMessageBlock

‎HashLib/src/Crypto/HlpGrindahl256.pas‎

Lines changed: 0 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -23,8 +23,6 @@ TGrindahl256 = class sealed(TBlockHash, ICryptoNotBuildIn, ITransformBlock)
2323

2424
FSTable0, FSTable1, FSTable2, FSTable3: THashLibUInt32Array;
2525

26-
{$REGION 'Consts'}
27-
2826
const
2927
MasterTable: array [0 .. 255] of UInt32 = ($C66363A5, $F87C7C84, $EE777799,
3028
$F67B7B8D, $FFF2F20D, $D66B6BBD, $DE6F6FB1, $91C5C554, $60303050,
@@ -71,7 +69,6 @@ TGrindahl256 = class sealed(TBlockHash, ICryptoNotBuildIn, ITransformBlock)
7169
$299999B0, $5A2D2D77, $1E0F0F11, $7BB0B0CB, $A85454FC, $6DBBBBD6,
7270
$2C16163A);
7371

74-
{$ENDREGION}
7572
class function CalcTable(AI: Int32): THashLibUInt32Array;
7673

7774
procedure InjectMsg(AFullProcess: Boolean);

‎HashLib/src/Crypto/HlpGrindahl512.pas‎

Lines changed: 0 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -25,8 +25,6 @@ TGrindahl512 = class sealed(TBlockHash, ICryptoNotBuildIn, ITransformBlock)
2525
FSTable0, FSTable1, FSTable2, FSTable3, FSTable4, FSTable5, FSTable6,
2626
FSTable7: THashLibUInt64Array;
2727

28-
{$REGION 'Consts'}
29-
3028
const
3129
MasterTable: array [0 .. 255] of UInt64 = (UInt64($C6636397633551A2),
3230
UInt64($F87C7CEB7CCD1326), UInt64($EE7777C777952952),
@@ -158,7 +156,6 @@ TGrindahl512 = class sealed(TBlockHash, ICryptoNotBuildIn, ITransformBlock)
158156
UInt64($A854544B5496E3DD), UInt64($6DBBBBDABBAFB775),
159157
UInt64($2C16165816B074E8));
160158

161-
{$ENDREGION}
162159
class function CalcTable(AI: Int32): THashLibUInt64Array;
163160

164161
procedure InjectMsg(AFullProcess: Boolean);

‎HashLib/src/Crypto/HlpHAS160.pas‎

Lines changed: 0 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -18,8 +18,6 @@ THAS160 = class sealed(TBlockHash, ICryptoNotBuildIn, ITransformBlock)
1818
var
1919
FHash: THashLibUInt32Array;
2020

21-
{$REGION 'Consts'}
22-
2321
const
2422
SRot: array [0 .. 19] of Int32 = (5, 11, 7, 15, 6, 13, 8, 14, 7, 12, 9, 11,
2523
8, 15, 6, 12, 9, 14, 5, 13);
@@ -33,7 +31,6 @@ THAS160 = class sealed(TBlockHash, ICryptoNotBuildIn, ITransformBlock)
3331
6, 15, 17, 8, 1, 10, 3, 18, 7, 2, 13, 8, 19, 3, 14, 9, 4, 16, 15, 10, 5,
3432
0, 17, 11, 6, 1, 12);
3533

36-
{$ENDREGION}
3734
strict protected
3835
procedure Finish(); override;
3936
function GetResult(): THashLibByteArray; override;

‎HashLib/src/Crypto/HlpMD2.pas‎

Lines changed: 0 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -18,8 +18,6 @@ TMD2 = class sealed(TBlockHash, ICryptoNotBuildIn, ITransformBlock)
1818
var
1919
FState, FChecksum: THashLibByteArray;
2020

21-
{$REGION 'Consts'}
22-
2321
const
2422
Pi: array [0 .. 255] of Byte = (41, 46, 67, 201, 162, 216, 124, 1, 61, 54,
2523
84, 161, 236, 240, 6, 19,
@@ -57,7 +55,6 @@ TMD2 = class sealed(TBlockHash, ICryptoNotBuildIn, ITransformBlock)
5755

5856
49, 68, 80, 180, 143, 237, 31, 26, 219, 153, 141, 51, 159, 17, 131, 20);
5957

60-
{$ENDREGION}
6158
strict protected
6259
procedure Finish(); override;
6360
function GetResult(): THashLibByteArray; override;

‎HashLib/src/Crypto/HlpSHA0.pas‎

Lines changed: 0 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -19,16 +19,13 @@ TSHA0 = class(TBlockHash, ICryptoNotBuildIn, ITransformBlock)
1919
var
2020
FState: THashLibUInt32Array;
2121

22-
{$REGION 'Consts'}
23-
2422
const
2523

2624
C1 = UInt32($5A827999);
2725
C2 = UInt32($6ED9EBA1);
2826
C3 = UInt32($8F1BBCDC);
2927
C4 = UInt32($CA62C1D6);
3028

31-
{$ENDREGION}
3229
procedure Finish(); override;
3330
procedure Expand(AData: PCardinal); virtual;
3431
procedure TransformBlock(AData: PByte; ADataLength: Int32;

‎HashLib/src/Crypto/HlpSnefru.pas‎

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -238,7 +238,6 @@ procedure TSnefru.TransformBlock(AData: PByte; ADataLength: Int32;
238238

239239
class constructor TSnefru.Snefru;
240240
begin
241-
{$REGION 'Consts'}
242241
FSBoxes := THashLibMatrixUInt32Array.Create
243242
(THashLibUInt32Array.Create($64F9001B, $FEDDCDF6, $7C8FF1E2, $11D71514,
244243
$8B8C18D3, $DDDF881E, $6EAB5056, $88CED8E1, $49148959, $69C56FD5, $B7994F03,
@@ -834,7 +833,6 @@ procedure TSnefru.TransformBlock(AData: PByte; ADataLength: Int32;
834833
$D03B24C9, $F412601E, $6D72A243, $0E018DFD, $89F3721A, $C94F4134, $2F992F20,
835834
$4D87253C));
836835

837-
{$ENDREGION}
838836
end;
839837

840838
end.

‎HashLib/src/Crypto/HlpTiger.pas‎

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -23,7 +23,6 @@ TTiger = class abstract(TBlockHash, ICryptoNotBuildIn, ITransformBlock)
2323

2424
strict private
2525

26-
{$REGION 'Consts'}
2726
const
2827

2928
C1 = UInt64($A5A5A5A5A5A5A5A5);
@@ -549,7 +548,6 @@ TTiger = class abstract(TBlockHash, ICryptoNotBuildIn, ITransformBlock)
549548
UInt64($C12591D7535F5065), UInt64($C83223F1720AEF96),
550549
UInt64($C3A0396F7363A51F));
551550

552-
{$ENDREGION}
553551
strict protected
554552
var
555553
FRounds: Int32;

0 commit comments

Comments
 (0)