浏览代码

* set the realname of the reused generic dummy symbol to the parsed name as the casing might differ from the generic that triggered the creation of said dummy symbol

git-svn-id: trunk@34528 -
svenbarth 9 年之前
父节点
当前提交
76f55f2030
共有 1 个文件被更改,包括 2 次插入0 次删除
  1. 2 0
      compiler/pdecl.pas

+ 2 - 0
compiler/pdecl.pas

@@ -647,6 +647,8 @@ implementation
                         declaration, reuse it }
                         declaration, reuse it }
                       newtype:=ttypesym(sym);
                       newtype:=ttypesym(sym);
                       newtype.typedef:=hdef;
                       newtype.typedef:=hdef;
+                      { use the correct casing }
+                      newtype.RealName:=genorgtypename;
                       sym:=nil;
                       sym:=nil;
                     end;
                     end;