paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 14:09:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* generate the generic name for a specialization of a generic interface alias in the same way as for specializations in general

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-10-28 17:36:22 +02:00
parent 399d82e1da
commit 35a57bac94
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/pdecsub.pas
View File

@ -750,8 +750,15 @@ implementation
srsym:=generrorsym; srsym:=generrorsym;
exit; exit;
end; end;
{ ToDo: handle nested interfaces }
genname:=generate_generic_name(sp,specializename,''); if not searchsym(sp,typesrsym,typesrsymtable) or (typesrsym.typ<>typesym) then
begin
identifier_not_found(sp);
srsym:=generrorsym;
exit;
end;
genname:=generate_generic_name(sp,specializename,ttypesym(typesrsym).typedef.ownerhierarchyname);
ugenname:=upper(genname); ugenname:=upper(genname);
srsym:=search_object_name(ugenname,false); srsym:=search_object_name(ugenname,false);