pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@312 8e941d3f-bd1b-0410-a28a-d453659cc2b4

Browse Source
This commit is contained in:
inoussa
2008-01-08 17:09:27 +00:00
parent a14bc8d2a2
commit 2ec197e2c7
3 changed files with 15 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
wst/trunk/semaphore.pas
View File

@ -138,3 +138,4 @@ end;
end.

9
wst/trunk/service_intf.pas
View File

@ -366,6 +366,7 @@ Type
AFormatter : IFormatterClient;
ACallHandler : ICallMaker
);
destructor Destroy();override;
End;
TFormatterFactoryRegistryItem = class
@ -437,6 +438,14 @@ begin
FCallHandler := ACallHandler;
end;
destructor TServiceProtocol.Destroy();
begin
FFormatter := nil;
FCallHandler := nil;
FTransport := nil;
inherited;
end;
{ TFormatterFactoryRegistryItem }
constructor TFormatterFactoryRegistryItem.Create(

7
wst/trunk/wst_resources_imp.pas
View File

@ -213,7 +213,7 @@ begin
end;
Var
ResMGR : TWSTResourceManager;
ResMGR : TWSTResourceManager = nil;
Function GetWSTResourceManager(Force : Boolean = True) : TWSTResourceManager;
@ -234,5 +234,8 @@ begin
ResMGR:=AValue;
end;
end.
initialization
finalization
FreeAndNil(ResMGR);
end.