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

Merged revision(s) 56085 #e69881ff9d from trunk:

Browse Source 
Codetools: Fix code completion for methods with empty parentheses. Issue #31960.
........

git-svn-id: branches/fixes_1_8@56090 -
This commit is contained in:
maxim 2017-10-16 22:45:47 +00:00
parent 682a2912bd
commit ee2f30dec1
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/pascalparsertool.pas
View File

@ -1401,9 +1401,8 @@ begin
ExtractNextAtom(not (phpWithoutBrackets in Attr),Attr); ExtractNextAtom(not (phpWithoutBrackets in Attr),Attr);
if (CurPos.Flag in [cafRoundBracketClose,cafEdgedBracketClose]) if (CurPos.Flag in [cafRoundBracketClose,cafEdgedBracketClose])
and (Src[CurPos.StartPos] = CloseBracket) and (Src[CurPos.StartPos] = CloseBracket)
then begin then begin // empty brackets: extract also the closing bracket.
// opening bracket was not streamed, keep ExtractMemStream intact. ExtractNextAtom(not (phpWithoutBrackets in Attr),Attr);
ReadNextAtom;
exit(true); exit(true);
end; end;
end; end;