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

jcf2: Support "static" keyword better. Issue #32267, patch from delfion.

Browse Source 
git-svn-id: trunk@55784 -
This commit is contained in:
juha 2017-09-04 08:46:56 +00:00
parent 79e14af470
commit 80722bc507
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/jcf2/Process/Returns/ReturnAfter.pas
View File

@ -85,6 +85,14 @@ begin
exit; exit;
end; end;
{ point 1b }
if (ptNext.HasParentNode(nHintDirectives)) then
begin
Result := False;
exit;
end;
{ point 2. to avoid the return, { point 2. to avoid the return,
the next token must still be in the same property} the next token must still be in the same property}
if ptNext.HasParentNode(nProperty) and (ptNext.TokenType <> ttProperty) then if ptNext.HasParentNode(nProperty) and (ptNext.TokenType <> ttProperty) then