From d5e4828f6fc82baae0e0dabe8284301650c961e9 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Fri, 19 Jan 2007 05:12:08 +0000
Subject: [PATCH]  * avoid memory leak for copy of withnode in tempnodes

git-svn-id: trunk@6067 -
---
 compiler/nbas.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/compiler/nbas.pas b/compiler/nbas.pas
index 63805d32c0..09a69a8ceb 100644
--- a/compiler/nbas.pas
+++ b/compiler/nbas.pas
@@ -1015,6 +1015,10 @@ implementation
 
     destructor ttempdeletenode.destroy;
       begin
+        if assigned(tempinfo^.withnode) then
+          begin
+            tempinfo^.withnode.free;
+          end;
         dispose(tempinfo);
       end;