Pārlūkot izejas kodu

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

git-svn-id: trunk@31741 -
yury 10 gadi atpakaļ
vecāks
revīzija
d27964bd1a
1 mainītis faili ar 0 papildinājumiem un 16 dzēšanām
  1. 0 16
      compiler/pgenutil.pas

+ 0 - 16
compiler/pgenutil.pas

@@ -647,7 +647,6 @@ uses
         ufinalspecializename : tidstring;
         ufinalspecializename : tidstring;
         prettyname : ansistring;
         prettyname : ansistring;
         generictypelist : tfphashobjectlist;
         generictypelist : tfphashobjectlist;
-        st,
         specializest : tsymtable;
         specializest : tsymtable;
         hashedid : thashedidstring;
         hashedid : thashedidstring;
         tempst : tglobalsymtable;
         tempst : tglobalsymtable;
@@ -686,21 +685,6 @@ uses
         ufinalspecializename:=upper(finalspecializename);
         ufinalspecializename:=upper(finalspecializename);
         prettyname:=genericdef.typesym.prettyname+'<'+context.prettyname+'>';
         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);
         generictypelist:=tfphashobjectlist.create(false);
 
 
         { build the list containing the types for the generic params }
         { build the list containing the types for the generic params }