From 716cbb642f0e7c9a9ed8eeca6cba08c737de1adb Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Thu, 1 Oct 1998 21:56:37 +0000
Subject: [PATCH]   + THandleObject completed

---
 fcl/win32/syncobjs.pp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/fcl/win32/syncobjs.pp b/fcl/win32/syncobjs.pp
index cd5c1d49af..8e74924881 100644
--- a/fcl/win32/syncobjs.pp
+++ b/fcl/win32/syncobjs.pp
@@ -59,6 +59,8 @@ unit syncobjs;
     destructor THandleObject.destroy;
 
       begin
+         CloseHandle(FHandle);
+         inherited Destroy;
       end;
 
     constructor TEvent.Create(EventAttributes : PSecurityAttributes;
@@ -91,10 +93,12 @@ end.
 
 {
   $Log$
-  Revision 1.2  1998-09-30 13:41:06  florian
+  Revision 1.3  1998-10-01 21:56:37  florian
+    + THandleObject completed
+
+  Revision 1.2  1998/09/30 13:41:06  florian
     * fixes to make it compilable
 
   Revision 1.1  1998/09/29 11:15:24  florian
     + initial revision
-
 }