فهرست منبع

compiler: report full nested type name on error

git-svn-id: trunk@15121 -
paul 15 سال پیش
والد
کامیت
e721a623eb
1فایلهای تغییر یافته به همراه4 افزوده شده و 1 حذف شده
  1. 4 1
      compiler/symtable.pas

+ 4 - 1
compiler/symtable.pas

@@ -1568,7 +1568,10 @@ implementation
       var
         s1,s2 : string;
       begin
-        s1:=def.typename;
+        if def.typ=objectdef then
+          s1:=tobjectdef(def).RttiName
+        else
+          s1:=def.typename;
         { When the names are the same try to include the unit name }
         if assigned(otherdef) and
            (def.owner.symtabletype in [globalsymtable,staticsymtable]) then