From 82d45a463dc3c038751fb0eab090bb65015fba36 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 17 Jun 1999 23:45:21 +0000
Subject: [PATCH]  * dipsoe of S field in TResourceFile destructor

---
 ide/text/wresourc.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/ide/text/wresourc.pas b/ide/text/wresourc.pas
index 51b13221c4..9c2dca34a8 100644
--- a/ide/text/wresourc.pas
+++ b/ide/text/wresourc.pas
@@ -667,6 +667,8 @@ destructor TResourceFile.Done;
 begin
   Flush;
   inherited Done;
+  if assigned(S) then dispose(S,Done);
+  S:=nil;
   if Resources<>nil then Dispose(Resources, Done); Resources:=nil;
   if Entries<>nil then
     begin Entries^.DeleteAll; Dispose(Entries, Done); Entries:=nil; end;
@@ -701,7 +703,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.4  1999-04-07 21:56:05  peter
+  Revision 1.5  1999-06-17 23:45:21  pierre
+   * dipsoe of S field in TResourceFile destructor
+
+  Revision 1.4  1999/04/07 21:56:05  peter
     + object support for browser
     * html help fixes
     * more desktop saving things