From 474e1578a3b1c000f65819207d527111d8f6f82a Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 23 Nov 2003 17:39:16 +0000
Subject: [PATCH]   * don't release exceptsymtable for copied nodes

---
 compiler/nflw.pas | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/compiler/nflw.pas b/compiler/nflw.pas
index 77f27eaaf8..8320944f45 100644
--- a/compiler/nflw.pas
+++ b/compiler/nflw.pas
@@ -1381,7 +1381,9 @@ implementation
 
     destructor tonnode.destroy;
       begin
-        if assigned(exceptsymtable) then
+        { copied nodes don't need to release the symtable }
+        if assigned(exceptsymtable) and
+           not(nf_copy in flags) then
          exceptsymtable.free;
         inherited destroy;
       end;
@@ -1470,7 +1472,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.87  2003-11-12 15:48:27  peter
+  Revision 1.88  2003-11-23 17:39:16  peter
+    * don't release exceptsymtable for copied nodes
+
+  Revision 1.87  2003/11/12 15:48:27  peter
     * fix set_varstate in for loops
     * fix set_varstate from case statements