From 46e5903792ac7bbf9c21910db01df1c41c0ad3bd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Tue, 15 Oct 2024 15:59:09 +0200
Subject: [PATCH] * Generate correct type name for procedural type arguments in
 thunk class

---
 compiler/symcreat.pas | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/compiler/symcreat.pas b/compiler/symcreat.pas
index 6645b2b3df..4ec5ba6e60 100644
--- a/compiler/symcreat.pas
+++ b/compiler/symcreat.pas
@@ -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