paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 16:12:57 +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; ctnVarDefinition = 21;
ctnConstDefinition = 22; ctnConstDefinition = 22;
ctnGlobalProperty = 23; ctnGlobalProperty = 23;
ctnVarArgs = 24; ctnVarArgs = 24; // macpas ... parameter
ctnSrcName = 25; // children are ctnIdentifier ctnSrcName = 25; // children are ctnIdentifier
ctnUseUnit = 26; // StartPos=unit, EndPos=unitname+inFilename, children ctnUseUnitNamespace, ctnUseUnitClearName, parent ctnUsesSection ctnUseUnit = 26; // StartPos=unit, EndPos=unitname+inFilename, children ctnUseUnitNamespace, ctnUseUnitClearName, parent ctnUsesSection
ctnUseUnitNamespace = 27; // <namespace>.clearname.pas, parent ctnUseUnit ctnUseUnitNamespace = 27; // <namespace>.clearname.pas, parent ctnUseUnit

9
components/codetools/pascalparsertool.pas
View File

@ -1993,6 +1993,15 @@ begin
AtomIsIdentifierSaveE(20180411194104); AtomIsIdentifierSaveE(20180411194104);
ReadNextAtom; ReadNextAtom;
end; 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 end else begin
// read specifier without parameters // read specifier without parameters
if UpAtomIs('FORWARD') then HasForwardModifier:=true; if UpAtomIs('FORWARD') then HasForwardModifier:=true;