From 4c0d2981e5bc59d11c6ae1ad1f06dd708be6840f Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 8 Feb 2010 12:03:09 +0000
Subject: [PATCH] Avoid "TInterfacedPersistent" : it does not actually
 implement interface life style. Fix binder memory leak.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1155 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/server_service_intf.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/wst/trunk/server_service_intf.pas b/wst/trunk/server_service_intf.pas
index ea2678a4f..4b4e1d8d0 100644
--- a/wst/trunk/server_service_intf.pas
+++ b/wst/trunk/server_service_intf.pas
@@ -139,7 +139,8 @@ type
   
   { TBaseServiceBinder }
 
-  TBaseServiceBinder = Class(TInterfacedPersistent,IServerService)
+{$M+}
+  TBaseServiceBinder = Class(TInterfacedObject,IServerService)
   Private
     FVerbList : TObjectList;
     FImplementationFactory : IServiceImplementationFactory;
@@ -163,7 +164,8 @@ type
     procedure Error(Const AMsg : string);overload;
     procedure Error(Const AMsg : string;Const AArgs : Array of Const);overload;
   End;
-
+{$M-}
+ 
   { TBaseServiceImplementation }
 
   TBaseServiceImplementation = class(TSimpleFactoryItem,ICallControl)