* Nested classes can result in more than one dot in method names

git-svn-id: trunk@34699 -

packages/fcl-passrc/src/pparser.pp

@@ -4270,11 +4270,12 @@ function TPasParser.ParseProcedureOrFunctionDecl(Parent: TPasElement; ProcType:
     if Parent is TImplementationSection then
     begin
       NextToken;
-      if CurToken=tkDot then
-      begin
+      While CurToken=tkDot do
+        begin
         Result:=Result+'.'+ExpectIdentifier;
-      end else
-        UngetToken;
+        NextToken;
+        end;
+      UngetToken;
     end;
   end;