Переглянути джерело

* don't add empty symtables when specializing generics

git-svn-id: trunk@8066 -
florian 18 роки тому
батько
коміт
2b2c6f7f53
1 змінених файлів з 4 додано та 2 видалено
  1. 4 2
      compiler/psub.pas

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