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

Codetools: Improve support for generics in function return. Issue #20059

Browse Source 
git-svn-id: trunk@32067 -
This commit is contained in:
juha 2011-08-27 07:21:28 +00:00
parent 827c9501e8
commit 49baf73873
1 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
components/codetools/pascalparsertool.pas
View File

@ -1443,7 +1443,6 @@ function TPascalParserTool.ReadTilProcedureHeadEnd(
var HasForwardModifier: boolean): boolean;
{ parse parameter list, result type, of object, method specifiers
examples:
procedure ProcName; virtual; abstract;
function FuncName(Parameter1: Type1; Parameter2: Type2): ResultType;
@ -1459,7 +1458,7 @@ function TPascalParserTool.ReadTilProcedureHeadEnd(
Delphi mode:
Function TPOSControler.Logout; // missing function type
function SomeMethod: IDictionary<string, IDictionary<K, V>>; // generics
proc specifiers without parameters:
stdcall, virtual, abstract, dynamic, overload, override, cdecl, inline
@ -1535,23 +1534,22 @@ begin
end;
// Support generics in the function return type
Level:=1;
if GetAtom='<' then
begin
ReadNextAtom;
if GetAtom='<' then begin
while Level>0 do begin
AtomIsIdentifier(true);
ReadNextAtom;
if CurPos.Flag=cafPoint then
Continue;
if CurPos.Flag=cafComma then
ReadNextAtom
else if GetAtom='<' then
Inc(Level)
else if GetAtom='>' then begin
if CurPos.Flag in [cafPoint, cafComma] then begin
ReadNextAtom;
AtomIsIdentifier(true);
end
else if GetAtom='<' then begin
ReadNextAtom;
AtomIsIdentifier(true);
Inc(Level);
end
else if GetAtom='>' then
Dec(Level);
end;
end;
ReadNextAtom;
end;
end else begin
if (Scanner.CompilerMode<>cmDelphi) then