paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 13:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

- remove unused consume_generic_interface; it has been superseded by handle_generic_interface in 17a0ac7fc0

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-10-21 17:09:55 +02:00
parent c75bb80b14
commit 399d82e1da
1 changed files with 0 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
compiler/pdecsub.pas
View File

@ -701,42 +701,6 @@ implementation
current_tokenpos:=storepos;
end;
procedure consume_generic_interface;
var
genparalist : tfpobjectlist;
prettyname,
specializename : ansistring;
genname,
ugenname : tidstring;
gencount : string;
begin
consume(_LSHARPBRACKET);
genparalist:=tfpobjectlist.create(false);
if not parse_generic_specialization_types(genparalist,nil,prettyname,specializename) then
srsym:=generrorsym
else
begin
str(genparalist.count,gencount);
genname:=sp+'$'+gencount;
{ ToDo: handle nested interfaces }
genname:=generate_generic_name(genname,specializename,'');
ugenname:=upper(genname);
srsym:=search_object_name(ugenname,false);
if not assigned(srsym) then
begin
Message1(type_e_generic_declaration_does_not_match,sp+'<'+prettyname+'>');
srsym:=nil;
exit;
end;
end;
genparalist.free;
consume(_RSHARPBRACKET);
end;
function handle_generic_interface:boolean;
var
i : longint;