From 9126b8380fad8b01bb029f2c468f57026396e684 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Sun, 15 Oct 2000 20:44:18 +0000
Subject: [PATCH]   * FindClose correction

---
 rtl/os2/sysutils.pp | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/rtl/os2/sysutils.pp b/rtl/os2/sysutils.pp
index 196156b7fa..0bd4eb2e8e 100644
--- a/rtl/os2/sysutils.pp
+++ b/rtl/os2/sysutils.pp
@@ -320,18 +320,19 @@ end;
 
 procedure FindClose (var F: TSearchrec);
 
-{ var SR: PSearchRec; }
+var SR: PSearchRec;
 
 begin
     if os_mode = osOS2 then
         begin
             DosFindClose (F.FindHandle);
         end
-{    else
+    else
         begin
+            SR := PSearchRec (F.FindHandle);
             DOS.FindClose (SR^);
             FreeMem (SR, SizeOf (SearchRec));
-        end};
+        end;
     F.FindHandle := 0;
 end;
 
@@ -756,7 +757,10 @@ Finalization
 end.
 {
   $Log$
-  Revision 1.5  2000-09-29 21:49:41  jonas
+  Revision 1.6  2000-10-15 20:44:18  hajny
+    * FindClose correction
+
+  Revision 1.5  2000/09/29 21:49:41  jonas
     * removed warnings
 
   Revision 1.4  2000/08/30 06:30:55  michael