paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 03:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@31741 -
This commit is contained in:
yury 2015-09-17 15:11:03 +00:00
parent 12cd32ec18
commit d27964bd1a
1 changed files with 0 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/pgenutil.pas
View File

@ -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 }