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

Jedi code format: Fix issue #41011, bad format of comments before class var

Browse Source 
(cherry picked from commit 109012f8f7)
This commit is contained in:
DomingoGP 2024-07-03 21:09:14 +02:00
parent 501f6f9ab6
commit a82057a3cf
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/jcf2/Process/Returns/ReturnBefore.pas
View File

@ -283,6 +283,10 @@ begin
if (pt.TokenType = ttClass) and pt.HasParentNode([nProperty],1) then if (pt.TokenType = ttClass) and pt.HasParentNode([nProperty],1) then
exit(True); exit(True);
{start of class var/threadvar}
if (pt.TokenType = ttClass) and (pt.NextSolidTokenType in [ttVar, ttThreadVar] ) then
exit(True);
{ start of class function decl in class } { start of class function decl in class }
if (pt.TokenType = ttClass) and pt.HasParentNode([nProcedureDecl, nFunctionDecl, nProperty]) and if (pt.TokenType = ttClass) and pt.HasParentNode([nProcedureDecl, nFunctionDecl, nProperty]) and
(not IsGenericFunctionOrProperty(pt)) and (not IsGenericFunctionOrProperty(pt)) and