From 88a3b7c7ab274b99f4ad1f3e76c7eb6eaa07ad48 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sun, 4 Jul 2021 12:11:23 +0000
Subject: [PATCH] =?UTF-8?q?Jedi=20Code=20Format:=20Parse=20raise=20excepti?=
 =?UTF-8?q?on.create(msg)=20at=20adress,adress.=20Issue=20#39142,=20patch?=
 =?UTF-8?q?=20by=20Domingo=20Galm=C3=A9s.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: trunk@65361 -
---
 components/jcf2/Parse/BuildParseTree.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/components/jcf2/Parse/BuildParseTree.pas b/components/jcf2/Parse/BuildParseTree.pas
index 2638879a51..b21cc779b1 100644
--- a/components/jcf2/Parse/BuildParseTree.pas
+++ b/components/jcf2/Parse/BuildParseTree.pas
@@ -3410,6 +3410,11 @@ begin
   begin
     Recognise(ttAt);
     RecogniseExpr(True);
+    if fcTokenList.FirstSolidTokenType = ttComma then
+    begin
+      Recognise(ttComma);
+      RecogniseExpr(True);
+    end;
   end;
 end;