* don't endlessly recurse in tobjectdef.gettypename if we need

    to get the typename of aktobjectdef


git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@2419 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 8 insertions, 1 deletions

diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index 71f3ca9a1d..744dcb5668 100644
--- a/compiler/symdef.pas
+++ b/compiler/symdef.pas
@@ -4401,7 +4401,14 @@ implementation
 
     function tobjectdef.gettypename:string;
       begin
-        gettypename:=typename;
+        if (self <> aktobjectdef) then
+          gettypename:=typename
+        else
+          { in this case we will go in endless recursion, because then  }
+          { there is no tsym associated yet with the def. It can occur  }
+          { (tests/webtbf/tw4757.pp), so for now give a generic name    }
+          { instead of the actual type name                             }
+          gettypename:='<Currently Parsed Class>';
       end;