paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 02:55:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed result, issue #35632

Browse Source 
git-svn-id: trunk@61373 -
This commit is contained in:
mattias 2019-06-12 22:22:15 +00:00
parent ae53b22501
commit d86e447ba3
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/pascalparsertool.pas
View File

@ -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;