From 0e31a84f5b52394b63b0946ec4f9d4b83df33b60 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Fri, 19 Mar 1999 16:35:29 +0000
Subject: [PATCH]  * Tnamed_object done also removed left and right

---
 compiler/cobjects.pas | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/compiler/cobjects.pas b/compiler/cobjects.pas
index ebcd450d12..46a9810e44 100644
--- a/compiler/cobjects.pas
+++ b/compiler/cobjects.pas
@@ -865,6 +865,10 @@ end;
 destructor Tnamed_object.done;
 begin
   stringdispose(_name);
+  if assigned(left) then
+    dispose(left,done);
+  if assigned(right) then
+    dispose(right,done);
 end;
 
 function Tnamed_object.name:string;
@@ -1559,7 +1563,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.20  1999-03-18 20:30:45  peter
+  Revision 1.21  1999-03-19 16:35:29  pierre
+   * Tnamed_object done also removed left and right
+
+  Revision 1.20  1999/03/18 20:30:45  peter
     + .a writer
 
   Revision 1.19  1999/03/01 13:32:00  pierre