Browse Source

* use the pretty symbol name when generating the name for a "class of" type

Sven/Sarah Barth 1 month ago
parent
commit
ab6a6416c4
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/symdef.pas

+ 1 - 1
compiler/symdef.pas

@@ -4213,7 +4213,7 @@ implementation
 
 
     function tclassrefdef.GetTypeName : string;
     function tclassrefdef.GetTypeName : string;
       begin
       begin
-         GetTypeName:='Class Of '+pointeddef.typename;
+         GetTypeName:='Class Of '+pointeddef.typesymbolprettyname;
       end;
       end;