From 1739ad3e930d77cb12b11e6b0f977f5e048c2983 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sat, 2 Sep 2017 16:12:43 +0000
Subject: [PATCH] jcf2: Improve parsing uses clause. Issue #24678, patch from
 delfion.

git-svn-id: trunk@55773 -
---
 components/jcf2/Parse/BuildParseTree.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/jcf2/Parse/BuildParseTree.pas b/components/jcf2/Parse/BuildParseTree.pas
index c46987b102..135ad11814 100644
--- a/components/jcf2/Parse/BuildParseTree.pas
+++ b/components/jcf2/Parse/BuildParseTree.pas
@@ -759,7 +759,7 @@ begin
   Recognise(ttInterface, True);
 
   if fcTokenList.FirstSolidTokenType = ttUses then
-    RecogniseUsesClause(False);
+    RecogniseUsesClause(True);
 
   RecogniseInterfaceDecls;
 
@@ -869,7 +869,7 @@ begin
   Recognise(ttImplementation, True);
 
   if fcTokenList.FirstSolidTokenType = ttUses then
-    RecogniseUsesClause(False);
+    RecogniseUsesClause(True);
 
   RecogniseDeclSections;