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

Codetools: Ignore empty () in function description. Generate function body correctly. Issue #39441, patch by Domingo Galmés.

Browse Source 
(cherry picked from commit 937b6bdfef)
This commit is contained in:
Juha 2021-10-30 23:08:27 +03:00 committed by Maxim Ganetsky
parent fd7222fae9
commit 63ed2c8183
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/pascalparsertool.pas
View File

@ -1500,6 +1500,8 @@ begin
and (Src[CurPos.StartPos] = CloseBracket) and (Src[CurPos.StartPos] = CloseBracket)
then begin // empty brackets: extract also the closing bracket. then begin // empty brackets: extract also the closing bracket.
ExtractNextAtom(not (phpWithoutBrackets in Attr),Attr); ExtractNextAtom(not (phpWithoutBrackets in Attr),Attr);
if (not (phpWithoutBrackets in Attr)) and (CloseBracket=')') then // delete empty '()'
ExtractMemStream.Position:=ExtractMemStream.Position-2;
exit(true); exit(true);
end; end;
end; end;