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

codetools: readparamtype: use ReadTypeReference

Browse Source 
git-svn-id: trunk@65081 -
This commit is contained in:
mattias 2021-05-02 15:37:01 +00:00
parent 8fb7b558f3
commit e70b03a463
1 changed files with 3 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
components/codetools/pascalparsertool.pas
View File

@ -1633,6 +1633,7 @@ function TPascalParserTool.ReadParamType(ExceptionOnError, Extract: boolean;
// array of const
// file
// file of integer
// a<b>.c (only mode delphi)
// LongInt location 'd0' (only m68k, powerpc)
// univ longint (only macpas)
var
@ -1711,28 +1712,7 @@ begin
AtomIsIdentifierSaveE(20180411194035);
exit;
end;
if (phpCreateNodes in Attr) then begin
CreateChildNode;
CurNode.Desc:=ctnIdentifier;
CurNode.EndPos:=CurPos.EndPos;
end;
Next;
while CurPos.Flag=cafPoint do begin
Next;
if not AtomIsIdentifier then begin
if ExceptionOnError then
AtomIsIdentifierSaveE(20180411194038);
exit;
end;
if (phpCreateNodes in Attr) then
CurNode.EndPos:=CurPos.EndPos;
Next;
end;
if (phpCreateNodes in Attr) then begin
EndChildNode;
end;
if (Scanner.CompilerMode in [cmDELPHI,cmDELPHIUNICODE]) and AtomIsChar('<') then
ReadSpecialize(phpCreateNodes in Attr,Extract,Copying,Attr);
ReadTypeReference(phpCreateNodes in Attr,Extract,Copying,Attr);
end;
if (phpCreateNodes in Attr) then begin
if IsFileType then begin
@ -4428,6 +4408,7 @@ begin
if CreateNodes then begin
CreateChildNode;
CurNode.Desc:=ctnIdentifier;
CurNode.EndPos:=CurPos.EndPos;
end;
Next;
Cnt:=1;