From a4926e2d269585458fe21cdb9fa1a27d94b5e2bb Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 8 Nov 1999 16:24:28 +0000
Subject: [PATCH]  * missing disposetree added to avoid memory loss

---
 compiler/ptconst.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/compiler/ptconst.pas b/compiler/ptconst.pas
index b8a4e8f2ba..8bf65a00d2 100644
--- a/compiler/ptconst.pas
+++ b/compiler/ptconst.pas
@@ -642,6 +642,7 @@ unit ptconst;
                end
               else
                Message(cg_e_illegal_expression);
+              disposetree(p);
            end;
          { reads a typed constant record }
          recorddef:
@@ -763,7 +764,10 @@ unit ptconst;
 end.
 {
   $Log$
-  Revision 1.56  1999-11-08 14:02:16  florian
+  Revision 1.57  1999-11-08 16:24:28  pierre
+   * missing disposetree added to avoid memory loss
+
+  Revision 1.56  1999/11/08 14:02:16  florian
     * problem with "index X"-properties solved
     * typed constants of class references are now allowed