Codetools: Do not chomp a procedure name with empty brackets (). Issue #31960.

git-svn-id: trunk@56015 -

components/codetools/pascalparsertool.pas

@@ -1402,8 +1402,7 @@ begin
       if (CurPos.Flag in [cafRoundBracketClose,cafEdgedBracketClose])
       and (Src[CurPos.StartPos] = CloseBracket)
       then begin
-        // chomp empty brackets
-        ExtractMemStream.Position := ExtractMemStream.Position - 1;
+        // opening bracket was not streamed, keep ExtractMemStream intact.
         ReadNextAtom;
         exit(true);
       end;