From d4883186ed330f7e8c8b191b87cc766c4eebe027 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 24 May 2005 19:14:32 +0000
Subject: [PATCH] * applied a memory leak fix by Charlie Ikeson

git-svn-id: trunk@87 -
---
 packages/base/md5/md5.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/packages/base/md5/md5.pp b/packages/base/md5/md5.pp
index 2f0fe6d8a7..f7acb2cecf 100644
--- a/packages/base/md5/md5.pp
+++ b/packages/base/md5/md5.pp
@@ -351,6 +351,7 @@ begin
       If (Count>0) then
         MD5Update(Context, Buf^, Count);
     Until (Count<BufSize);
+    FreeMem(Buf,BufSize);
     Close(F);
     end;
   MD5Final(Context, Result);