paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 06:38:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

jcf2: Support type helpers. Issue #32267, patch from delfion.

Browse Source 
git-svn-id: trunk@55791 -
This commit is contained in:
juha 2017-09-06 16:20:13 +00:00
parent e6cc12dc01
commit f0c3017757
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -63,6 +63,7 @@ type
fcTokenList: TSourceTokenList;
fiTokenCount: integer;
procedure RecogniseTypeHelper;
procedure SplitGreaterThanOrEqual;
procedure RecogniseGoal;
@ -1153,6 +1154,18 @@ begin
end;
procedure TBuildParseTree.RecogniseTypeHelper;
begin
PushNode(nClassType);
Recognise(ttType);
Recognise(ttHelper);
Recognise(ttFor);
RecogniseIdentifier(False, idStrict);
RecogniseClassBody;
Recognise(ttEnd);
PopNode;
end;
procedure TBuildParseTree.RecogniseTypeDecl;
begin
{
@ -1184,6 +1197,13 @@ begin
Recognise(ttEquals);
//Recognise type helper (for fpc)
if (fcTokenList.FirstSolidTokenType = ttType) and
(fcTokenList.SolidToken(2).TokenType=ttHelper) then
begin
RecogniseTypeHelper;
end else
// type or restricted type
if (fcTokenList.FirstSolidTokenType in [ttObject, ttClass, ttInterface,
ttDispInterface]) then