From 04cc3c44b29f8f2c333374e356130bb70280c14d Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Tue, 10 Oct 2017 09:44:07 +0000
Subject: [PATCH] Codetools: Do not chomp a procedure name with empty brackets
 (). Issue #31960.

git-svn-id: trunk@56015 -
---
 components/codetools/pascalparsertool.pas | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index 4d3e05136b..feb988d2ab 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/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;