mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-13 07:49:25 +02:00
jcf2: Support "static" keyword better. Issue #32267, patch from delfion.
git-svn-id: trunk@55784 -
This commit is contained in:
parent
79e14af470
commit
80722bc507
@ -85,6 +85,14 @@ begin
|
||||
exit;
|
||||
end;
|
||||
|
||||
{ point 1b }
|
||||
if (ptNext.HasParentNode(nHintDirectives)) then
|
||||
begin
|
||||
Result := False;
|
||||
exit;
|
||||
end;
|
||||
|
||||
|
||||
{ point 2. to avoid the return,
|
||||
the next token must still be in the same property}
|
||||
if ptNext.HasParentNode(nProperty) and (ptNext.TokenType <> ttProperty) then
|
||||
|
Loading…
Reference in New Issue
Block a user