paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 17:50:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

JCF2: Support operators in records. Issue #32942, patch from delfion.

Browse Source 
git-svn-id: trunk@56972 -
This commit is contained in:
juha 2018-01-05 21:36:51 +00:00
parent 6acdb23a08
commit b5ce4f63c4
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4908,6 +4908,12 @@ procedure TBuildParseTree.RecogniseMethodName(const pbClassNameCompulsory: boole
var var
lbMore: boolean; lbMore: boolean;
begin begin
if IsSymbolOperator(fcTokenList.FirstSolidToken) then begin
PushNode(nIdentifier);
Recognise(Operators);
PopNode;
exit;
end;
if not (IdentifierNext(idAllowDirectives)) then if not (IdentifierNext(idAllowDirectives)) then
raise TEParseError.Create('Expected identifier', fcTokenList.FirstSolidToken); raise TEParseError.Create('Expected identifier', fcTokenList.FirstSolidToken);
@ -4929,7 +4935,7 @@ begin
while lbMore do while lbMore do
begin begin
Recognise(ttDot); Recognise(ttDot);
Recognise(IdentiferTokens); Recognise(IdentiferTokens + Operators);
if fcTokenList.FirstSolidTokenType = ttLessThan then if fcTokenList.FirstSolidTokenType = ttLessThan then
begin begin