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

Codetools: parse function-param of type "specialize G<T>.member". (Part of) issue #39699

Browse Source
This commit is contained in:
Martin 2023-03-09 23:51:02 +01:00
parent 44b14e0702
commit e923b4c5d5
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/codetools/pascalparsertool.pas
View File

@ -1724,7 +1724,7 @@ begin
end;
end;
if NeedIdentifier and UpAtomIs('SPECIALIZE') then begin
ReadSpecialize(phpCreateNodes in Attr,Extract,Copying,Attr);
ReadTypeReference(phpCreateNodes in Attr,Extract,Copying,Attr);
NeedIdentifier:=false;
end;
if NeedIdentifier then begin
@ -4460,6 +4460,12 @@ var
begin
if (Scanner.CompilerMode=cmOBJFPC) and UpAtomIs('SPECIALIZE') then begin
ReadSpecialize(CreateNodes,Extract,Copying,Attr);
while CurPos.Flag=cafPoint do begin
// e.g. atype<params>.subtype
Next;
AtomIsIdentifierSaveE(20180411194209);
Next;
end;
exit;
end;
if CreateNodes then begin