Explorar o código

compiler: report full nested type name on error

git-svn-id: trunk@15121 -
paul %!s(int64=15) %!d(string=hai) anos
pai
achega
e721a623eb
Modificáronse 1 ficheiros con 4 adicións e 1 borrados
  1. 4 1
      compiler/symtable.pas

+ 4 - 1
compiler/symtable.pas

@@ -1568,7 +1568,10 @@ implementation
       var
       var
         s1,s2 : string;
         s1,s2 : string;
       begin
       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 }
         { When the names are the same try to include the unit name }
         if assigned(otherdef) and
         if assigned(otherdef) and
            (def.owner.symtabletype in [globalsymtable,staticsymtable]) then
            (def.owner.symtabletype in [globalsymtable,staticsymtable]) then