From a7de7fd24794d08af31f8e5f68d8b16d5c305bd0 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 19 Apr 2000 08:24:41 +0000
Subject: [PATCH]  * remove a memory leak with resourcestrings

---
 compiler/symsym.inc | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/compiler/symsym.inc b/compiler/symsym.inc
index f02ff19228..c5749073cc 100644
--- a/compiler/symsym.inc
+++ b/compiler/symsym.inc
@@ -1701,7 +1701,7 @@
     destructor tconstsym.done;
       begin
         case consttyp of
-          conststring :
+          conststring,constresourcestring :
             freemem(pchar(value),len+1);
           constreal :
             dispose(pbestreal(value));
@@ -2137,7 +2137,10 @@
 
 {
   $Log$
-  Revision 1.141  2000-04-03 14:50:05  pierre
+  Revision 1.142  2000-04-19 08:24:41  pierre
+   * remove a memory leak with resourcestrings
+
+  Revision 1.141  2000/04/03 14:50:05  pierre
    * avoid cyclic overloaded list for operators
 
   Revision 1.140  2000/03/01 00:03:10  pierre