From f65b5aee2881b9aa39f4a9bcea851a9c547b165e Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 26 Aug 1999 11:02:50 +0000
Subject: [PATCH]   * findclose freemem fixed

---
 rtl/go32v2/filutil.inc | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/rtl/go32v2/filutil.inc b/rtl/go32v2/filutil.inc
index 295ad36c4f..bc90c9cfc8 100644
--- a/rtl/go32v2/filutil.inc
+++ b/rtl/go32v2/filutil.inc
@@ -208,7 +208,7 @@ begin
 Sr := PSearchRec(F.FindHandle);
 if Sr <> nil then
   //!! Dispose(Sr);
-  freemem(sr,sizeof(tsearchrec));
+  freemem(sr,sizeof(searchrec));
 F.FindHandle := 0;
 end;
 
@@ -454,7 +454,10 @@ end;
 
 {
   $Log$
-  Revision 1.7  1999-08-24 13:14:28  peter
+  Revision 1.8  1999-08-26 11:02:50  peter
+    * findclose freemem fixed
+
+  Revision 1.7  1999/08/24 13:14:28  peter
     * fixed DeleteFile()
 
   Revision 1.6  1999/08/19 14:00:08  pierre