paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-31 22:10:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed little bug in crc32 and crc64

Browse Source 
git-svn-id: trunk@12576 -
This commit is contained in:
ivost 2009-01-20 10:27:12 +00:00
parent e02c887bf2
commit 0f854c5e5b
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/hash/src/crc.pas
View File

@ -67,11 +67,6 @@ implementation
* CRC32
******************************************************************************)
const
CRC32_XINIT = $FFFFFFFF;
CRC32_XOROT = $FFFFFFFF;
{$IFDEF DYNAMIC_CRC_TABLE}
{local}
@ -218,13 +213,14 @@ end;
function crc32 (crc : cardinal; buf : Pbyte; len : cardinal): cardinal;
begin
if buf = nil then
exit(0{CRC32_XINIT});
exit(0);
{$IFDEF DYNAMIC_CRC_TABLE}
if crc32_table_empty then
make_crc32_table;
{$ENDIF}
crc := crc xor $FFFFFFFF;
while (len >= 8) do
begin
crc := crc32_table[(crc xor buf^) and $ff] xor (crc shr 8);
@ -253,7 +249,7 @@ begin
dec(len);
until (len = 0);
result := crc; //xor CRC32_XOROT;
result := crc xor $FFFFFFFF;
end;