|
@@ -232,7 +232,6 @@ begin
|
|
...
|
|
...
|
|
idx = 2, len = 6 -> [0, 2[ + [0, 2[ => Block = [2,6[, buf []
|
|
idx = 2, len = 6 -> [0, 2[ + [0, 2[ => Block = [2,6[, buf []
|
|
* }
|
|
* }
|
|
-
|
|
|
|
{$IFDEF DEBUG}
|
|
{$IFDEF DEBUG}
|
|
System.Assert(a_index = 0); // nothing would work anyways if a_index is !=0
|
|
System.Assert(a_index = 0); // nothing would work anyways if a_index is !=0
|
|
{$ENDIF DEBUG}
|
|
{$ENDIF DEBUG}
|
|
@@ -250,6 +249,10 @@ begin
|
|
TransformUInt32Fast(k);
|
|
TransformUInt32Fast(k);
|
|
Fm_idx := 0;
|
|
Fm_idx := 0;
|
|
end;
|
|
end;
|
|
|
|
+ end
|
|
|
|
+ else
|
|
|
|
+ begin
|
|
|
|
+ i := 0;
|
|
end;
|
|
end;
|
|
|
|
|
|
nBlocks := len shr 2;
|
|
nBlocks := len shr 2;
|
|
@@ -260,7 +263,6 @@ begin
|
|
while i < nBlocks do
|
|
while i < nBlocks do
|
|
begin
|
|
begin
|
|
k := TConverters.ReadBytesAsUInt32LE(ptr_a_data, a_index + (i * 4));
|
|
k := TConverters.ReadBytesAsUInt32LE(ptr_a_data, a_index + (i * 4));
|
|
-
|
|
|
|
TransformUInt32Fast(k);
|
|
TransformUInt32Fast(k);
|
|
|
|
|
|
System.Inc(i);
|
|
System.Inc(i);
|
|
@@ -270,7 +272,6 @@ begin
|
|
offset := a_index + (i * 4);
|
|
offset := a_index + (i * 4);
|
|
while offset < (len + a_index) do
|
|
while offset < (len + a_index) do
|
|
begin
|
|
begin
|
|
-
|
|
|
|
ByteUpdate(a_data[offset]);
|
|
ByteUpdate(a_data[offset]);
|
|
System.Inc(offset);
|
|
System.Inc(offset);
|
|
|
|
|