From 741bb5b9a275ff83abcc08e6f9cb5799197a47d2 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 10 May 1999 15:02:51 +0000
Subject: [PATCH] unitsym finally problem fixed

---
 compiler/symtable.pas | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/compiler/symtable.pas b/compiler/symtable.pas
index 4145ff9fcf..c27128108f 100644
--- a/compiler/symtable.pas
+++ b/compiler/symtable.pas
@@ -232,6 +232,7 @@ unit symtable;
 {$endif GDB}
           constructor init(t : tsymtabletype;const n : string);
           constructor loadasunit;
+          destructor done;virtual;
           procedure writeasunit;
 {$ifdef GDB}
 {$ifdef OLDPPU}
@@ -2657,6 +2658,12 @@ const localsymtablestack : psymtable = nil;
       end;
 
 
+     destructor tunitsymtable.done;
+       begin
+          unitsym:=nil;
+          inherited done;
+       end;
+       
        procedure tunitsymtable.load_symtable_refs;
          var
             b : byte;
@@ -3217,7 +3224,10 @@ const localsymtablestack : psymtable = nil;
 end.
 {
   $Log$
-  Revision 1.10  1999-05-09 12:46:26  peter
+  Revision 1.11  1999-05-10 15:02:51  pierre
+  unitsym finally problem fixed
+
+  Revision 1.10  1999/05/09 12:46:26  peter
     + hint where a duplicate sym is already defined
 
   Revision 1.9  1999/05/08 19:52:40  peter