From 36bcc2defa0cab77604878d2a2e5e9372723bcc8 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 5 Dec 2004 21:09:54 +0000
Subject: [PATCH]   * fixed memory release in TInterfacedObject._Release

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

diff --git a/rtl/inc/objpas.inc b/rtl/inc/objpas.inc
index c571dba1e3..d926a21c4b 100644
--- a/rtl/inc/objpas.inc
+++ b/rtl/inc/objpas.inc
@@ -704,7 +704,7 @@
       begin
          if declocked(frefcount) then
            begin
-              destroy;
+              self.destroy;
               _Release:=0;
            end
          else
@@ -747,7 +747,10 @@
 
 {
   $Log$
-  Revision 1.44  2004-11-03 11:33:50  florian
+  Revision 1.45  2004-12-05 21:09:54  florian
+    * fixed memory release in TInterfacedObject._Release
+
+  Revision 1.44  2004/11/03 11:33:50  florian
     * fixed dyn. array handling for 32 bit architectures requiering proper alignment
 
   Revision 1.42  2004/10/24 20:01:41  peter