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

* Generate correct type name for procedural type arguments in thunk class

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-10-15 15:59:09 +02:00
parent 742158b678
commit 46e5903792
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/symcreat.pas
View File

@ -1432,7 +1432,13 @@ implementation
isAnonymousArrayDef:=false;
if asPointer and (vardef.typ=formaldef) then
exit('pointer');
if not (vardef is tarraydef) then
if (vardef is tprocvardef) then
begin
result:=vardef.fullownerhierarchyname(false);
if Assigned(vardef.typesym) then
Result:=Result+(vardef.typesym.Name);
end
else if not (vardef is tarraydef) then
result:=vardef.fulltypename
else
begin