From 13fa23a76ef2d52627229b0902d599bca9214d72 Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Mon, 21 Sep 1998 13:24:44 +0000
Subject: [PATCH] * Memory leak fixed.

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

diff --git a/compiler/pdecl.pas b/compiler/pdecl.pas
index 78a8cd8267..9f87cd4c18 100644
--- a/compiler/pdecl.pas
+++ b/compiler/pdecl.pas
@@ -137,6 +137,7 @@ unit pdecl;
                       else Message(cg_e_illegal_expression);
                    end;
                    consume(SEMICOLON);
+                   disposetree(p);
                 end;
               COLON:
                 begin
@@ -2037,7 +2038,10 @@ unit pdecl;
 end.
 {
   $Log$
-  Revision 1.54  1998-09-17 13:41:16  pierre
+  Revision 1.55  1998-09-21 13:24:44  daniel
+  * Memory leak fixed.
+
+  Revision 1.54  1998/09/17 13:41:16  pierre
   sizeof(TPOINT) problem
 
   Revision 1.53.2.1  1998/09/17 13:12:09  pierre