paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Avoid "TInterfacedPersistent" : it does not actually implement interface life style. Fix binder memory leak.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1155 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2010-02-08 12:03:09 +00:00
parent ea4816281b
commit 4c0d2981e5
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
wst/trunk/server_service_intf.pas
View File

@ -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)