paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 13:45:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* write pretty symbol name of a generic is not found during specialization

Browse Source
This commit is contained in:
florian 2023-11-04 22:43:53 +01:00
parent b388355750
commit 589fb20386
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/pgenutil.pas
View File

@ -1366,7 +1366,7 @@ uses
err : boolean;
i,
gencount : longint;
countstr,genname,ugenname : string;
countstr,genname,ugenname,prettygenname: string;
tmpstack : tfpobjectlist;
symowner : tsymtable;
hmodule : tmodule;
@ -1477,6 +1477,7 @@ uses
countstr:='';
str(context.paramlist.Count,countstr);
prettygenname:=genname;
genname:=genname+'$'+countstr;
ugenname:=upper(genname);
@ -1534,7 +1535,7 @@ uses
if not found or not (context.sym.typ in [typesym,procsym]) then
begin
identifier_not_found(genname);
identifier_not_found(prettygenname);
if not try_to_consume(_GT) then
try_to_consume(_RSHARPBRACKET);
context.free;