ソースを参照

* 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