From b5ce4f63c465114d846379b19823a038d69e60a5 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Fri, 5 Jan 2018 21:36:51 +0000
Subject: [PATCH] JCF2: Support operators in records. Issue #32942, patch from
 delfion.

git-svn-id: trunk@56972 -
---
 components/jcf2/Parse/BuildParseTree.pas | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/components/jcf2/Parse/BuildParseTree.pas b/components/jcf2/Parse/BuildParseTree.pas
index f62f1713cc..3b7886af8d 100644
--- a/components/jcf2/Parse/BuildParseTree.pas
+++ b/components/jcf2/Parse/BuildParseTree.pas
@@ -4908,6 +4908,12 @@ procedure TBuildParseTree.RecogniseMethodName(const pbClassNameCompulsory: boole
 var
   lbMore: boolean;
 begin
+  if IsSymbolOperator(fcTokenList.FirstSolidToken) then begin
+      PushNode(nIdentifier);
+      Recognise(Operators);
+      PopNode;
+      exit;
+  end;
   if not (IdentifierNext(idAllowDirectives)) then
     raise TEParseError.Create('Expected identifier', fcTokenList.FirstSolidToken);
 
@@ -4929,7 +4935,7 @@ begin
     while lbMore do
     begin
       Recognise(ttDot);
-      Recognise(IdentiferTokens);
+      Recognise(IdentiferTokens + Operators);
 
       if fcTokenList.FirstSolidTokenType = ttLessThan then
       begin