From e721a623eb2841cd5fbdd0eeb095fdcba8a7e7fe Mon Sep 17 00:00:00 2001
From: paul <paul@idefix.freepascal.org>
Date: Fri, 9 Apr 2010 15:47:49 +0000
Subject: [PATCH] compiler: report full nested type name on error

git-svn-id: trunk@15121 -
---
 compiler/symtable.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/compiler/symtable.pas b/compiler/symtable.pas
index 6d569edb99..dfd099d323 100644
--- a/compiler/symtable.pas
+++ b/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