瀏覽代碼

* Removed unused chunk of code. Looks like a not needed leftover.

git-svn-id: trunk@31741 -
yury 10 年之前
父節點
當前提交
d27964bd1a
共有 1 個文件被更改,包括 0 次插入16 次删除
  1. 0 16
      compiler/pgenutil.pas

+ 0 - 16
compiler/pgenutil.pas

@@ -647,7 +647,6 @@ uses
         ufinalspecializename : tidstring;
         prettyname : ansistring;
         generictypelist : tfphashobjectlist;
-        st,
         specializest : tsymtable;
         hashedid : thashedidstring;
         tempst : tglobalsymtable;
@@ -686,21 +685,6 @@ uses
         ufinalspecializename:=upper(finalspecializename);
         prettyname:=genericdef.typesym.prettyname+'<'+context.prettyname+'>';
 
-        { select the symtable containing the params }
-        case genericdef.typ of
-          procdef:
-            st:=genericdef.GetSymtable(gs_para);
-          objectdef,
-          recorddef:
-            st:=genericdef.GetSymtable(gs_record);
-          arraydef:
-            st:=tarraydef(genericdef).symtable;
-          procvardef:
-            st:=genericdef.GetSymtable(gs_para);
-          else
-            internalerror(200511182);
-        end;
-
         generictypelist:=tfphashobjectlist.create(false);
 
         { build the list containing the types for the generic params }