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

codetools: parse varargs of type

Browse Source 
git-svn-id: trunk@62655 -
This commit is contained in:
mattias 2020-02-21 11:42:49 +00:00
parent 6f178bc229
commit 3007a4b542
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/codetree.pas
View File

@ -83,7 +83,7 @@ const
ctnVarDefinition = 21;
ctnConstDefinition = 22;
ctnGlobalProperty = 23;
ctnVarArgs = 24;
ctnVarArgs = 24; // macpas ... parameter
ctnSrcName = 25; // children are ctnIdentifier
ctnUseUnit = 26; // StartPos=unit, EndPos=unitname+inFilename, children ctnUseUnitNamespace, ctnUseUnitClearName, parent ctnUsesSection
ctnUseUnitNamespace = 27; // <namespace>.clearname.pas, parent ctnUseUnit

9
components/codetools/pascalparsertool.pas
View File

@ -1993,6 +1993,15 @@ begin
AtomIsIdentifierSaveE(20180411194104);
ReadNextAtom;
end;
end else if UpAtomIs('VARARGS') then begin
ReadNextAtom;
if UpAtomIs('OF') then begin
CreateChildNode;
CurNode.Desc:=ctnVarArgs;
ReadNextAtom;
ReadTypeReference(true);
EndChildNode;
end;
end else begin
// read specifier without parameters
if UpAtomIs('FORWARD') then HasForwardModifier:=true;