From d86e447ba34bca00e498c75d3ff1fc73ad221a64 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 12 Jun 2019 22:22:15 +0000
Subject: [PATCH] codetools: fixed result, issue #35632

git-svn-id: trunk@61373 -
---
 components/codetools/pascalparsertool.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index 844789cde5..778e662fe5 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -2597,8 +2597,10 @@ begin
       Result:=KeyWordFuncList.DoItCaseInsensitive(Src,CurPos.StartPos,
                                                   CurPos.EndPos-CurPos.StartPos)
     else if c='[' then begin
-      if [cmsPrefixedAttributes,cmsIgnoreAttributes]*Scanner.CompilerModeSwitches<>[] then
-        ReadAttribute
+      if [cmsPrefixedAttributes,cmsIgnoreAttributes]*Scanner.CompilerModeSwitches<>[] then begin
+        ReadAttribute;
+        Result:=true;
+      end
       else begin
         Result:=ReadTilBracketClose(true);
       end;