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

    to get the typename of aktobjectdef

git-svn-id: trunk@2419 -

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;