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

* applied a memory leak fix by Charlie Ikeson

Browse Source 
git-svn-id: trunk@87 -
This commit is contained in:
florian 2005-05-24 19:14:32 +00:00
parent 28cb39dab7
commit d4883186ed
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/base/md5/md5.pp
View File

@ -351,6 +351,7 @@ begin
If (Count>0) then If (Count>0) then
MD5Update(Context, Buf^, Count); MD5Update(Context, Buf^, Count);
Until (Count<BufSize); Until (Count<BufSize);
FreeMem(Buf,BufSize);
Close(F); Close(F);
end; end;
MD5Final(Context, Result); MD5Final(Context, Result);