소스 검색

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

Sven/Sarah Barth 1 개월 전
부모
커밋
ab6a6416c4
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  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;