From 2ec197e2c71956544eb8c703add76a3a31d9197a Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 8 Jan 2008 17:09:27 +0000
Subject: [PATCH] git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@312
 8e941d3f-bd1b-0410-a28a-d453659cc2b4

---
 wst/trunk/semaphore.pas         | 1 +
 wst/trunk/service_intf.pas      | 9 +++++++++
 wst/trunk/wst_resources_imp.pas | 7 +++++--
 3 files changed, 15 insertions(+), 2 deletions(-)

diff --git a/wst/trunk/semaphore.pas b/wst/trunk/semaphore.pas
index b85bc8cca..297f3ebf9 100644
--- a/wst/trunk/semaphore.pas
+++ b/wst/trunk/semaphore.pas
@@ -138,3 +138,4 @@ end;
 
 end.
 
+
diff --git a/wst/trunk/service_intf.pas b/wst/trunk/service_intf.pas
index 031ac7572..859e990c8 100644
--- a/wst/trunk/service_intf.pas
+++ b/wst/trunk/service_intf.pas
@@ -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(
diff --git a/wst/trunk/wst_resources_imp.pas b/wst/trunk/wst_resources_imp.pas
index f1c1dfa2c..f7f75ce74 100644
--- a/wst/trunk/wst_resources_imp.pas
+++ b/wst/trunk/wst_resources_imp.pas
@@ -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.