paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 09:09:47 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed calculation of md4/md5 for files > 512MB on 32 bit systems

Browse Source 
(based on patch from Sergei Gorelkin, mantis #9903)

git-svn-id: trunk@9724 -
This commit is contained in:
Jonas Maebe 2008-01-12 16:57:08 +00:00
parent 70d94fecc1
commit 3d39cb8d1d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/hash/src/md5.pp
View File

@ -55,7 +55,7 @@ type
Version : TMDVersion;
Align : PtrUInt;
State : array[0..3] of Cardinal;
BufCnt : PtrUInt;
BufCnt : QWord;
Buffer : array[0..63] of Byte;
case Integer of
0: (Length : PtrUInt);