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

codetools: fixed result, issue #35632

Browse Source 
git-svn-id: branches/fixes_2_0@61374 -
This commit is contained in:
mattias 2019-06-12 22:22:36 +00:00
parent 028c96f490
commit c41077d28a
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

@ -2579,8 +2579,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;