From 37099d2db793bc650f71c6df46303b90367737f8 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Mon, 29 May 2000 17:59:58 +0000
Subject: [PATCH]   * FindClose implemented

---
 rtl/os2/filutil.inc | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/rtl/os2/filutil.inc b/rtl/os2/filutil.inc
index 285e31a121..90669082ef 100644
--- a/rtl/os2/filutil.inc
+++ b/rtl/os2/filutil.inc
@@ -181,10 +181,12 @@ begin
 end;
 
 
-Procedure FindClose (Var F : TSearchrec);
-
+procedure FindClose (var F: TSearchrec);
 begin
-  //!! Needs implementing
+    if os_mode = osOS2 then
+        begin
+           DosCalls.FindClose (F.FindHandle);
+        end;
 end;
 
 
@@ -340,7 +342,10 @@ end;
 
 {
   $Log$
-  Revision 1.7  2000-05-28 18:22:58  hajny
+  Revision 1.8  2000-05-29 17:59:58  hajny
+    * FindClose implemented
+
+  Revision 1.7  2000/05/28 18:22:58  hajny
     + implementation started
 
   Revision 1.6  2000/02/17 22:16:05  sg