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

jcf2: Improve parsing uses clause. Issue #24678, patch from delfion.

Browse Source 
git-svn-id: trunk@55773 -
This commit is contained in:
juha 2017-09-02 16:12:43 +00:00
parent 07104a2774
commit 1739ad3e93
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/jcf2/Parse/BuildParseTree.pas
View File

@ -759,7 +759,7 @@ begin
Recognise(ttInterface, True); Recognise(ttInterface, True);
if fcTokenList.FirstSolidTokenType = ttUses then if fcTokenList.FirstSolidTokenType = ttUses then
RecogniseUsesClause(False); RecogniseUsesClause(True);
RecogniseInterfaceDecls; RecogniseInterfaceDecls;
@ -869,7 +869,7 @@ begin
Recognise(ttImplementation, True); Recognise(ttImplementation, True);
if fcTokenList.FirstSolidTokenType = ttUses then if fcTokenList.FirstSolidTokenType = ttUses then
RecogniseUsesClause(False); RecogniseUsesClause(True);
RecogniseDeclSections; RecogniseDeclSections;