From 2b2c6f7f53522fc91a806921831571b9bd3e1fba Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 15 Jul 2007 17:16:21 +0000
Subject: [PATCH] * don't add empty symtables when specializing generics

git-svn-id: trunk@8066 -
---
 compiler/psub.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/compiler/psub.pas b/compiler/psub.pas
index 3ab9f90cef..908a32602e 100644
--- a/compiler/psub.pas
+++ b/compiler/psub.pas
@@ -1810,8 +1810,10 @@ implementation
             symtablestack.push(pu.u.globalsymtable);
             pu:=tused_unit(pu.next);
           end;
-        symtablestack.push(hmodule.globalsymtable);
-        symtablestack.push(hmodule.localsymtable);
+        if assigned(hmodule.globalsymtable) then
+          symtablestack.push(hmodule.globalsymtable);
+        if assigned(hmodule.localsymtable) then
+          symtablestack.push(hmodule.localsymtable);
 
         { definitions }
         for i:=0 to tobjectdef(ttypesym(p).typedef).symtable.DefList.Count-1 do