From 589fb20386b63be2f90b0fed86868be88d2b878c Mon Sep 17 00:00:00 2001 From: florian Date: Sat, 4 Nov 2023 22:43:53 +0100 Subject: [PATCH] * write pretty symbol name of a generic is not found during specialization --- compiler/pgenutil.pas | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/compiler/pgenutil.pas b/compiler/pgenutil.pas index 8807447022..5735f39e42 100644 --- a/compiler/pgenutil.pas +++ b/compiler/pgenutil.pas @@ -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;