Bläddra i källkod

* don't release exceptsymtable for copied nodes

peter 22 år sedan
förälder
incheckning
474e1578a3
1 ändrade filer med 7 tillägg och 2 borttagningar
  1. 7 2
      compiler/nflw.pas

+ 7 - 2
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