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

codetools: parsing subclasses in function result type

Browse Source 
git-svn-id: trunk@34316 -
This commit is contained in:
mattias 2011-12-20 08:38:04 +00:00
parent fde0121875
commit bd8b3fd2e2
1 changed files with 9 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/codetools/pascalparsertool.pas
View File

@ -1086,7 +1086,7 @@ function TPascalParserTool.KeyWordFuncClassMethod: boolean;
constructor Create;
destructor Destroy; override;
class function X: integer;
static function X: integer;
static function X: uNameSpace.Storage.Folders.PItem;
function Intf.Method = ImplementingMethodName;
class operator Inc(Rec: TRec1): TRec1;
@ -1560,21 +1560,18 @@ begin
CreateChildNode;
CurNode.Desc:=ctnIdentifier;
CurNode.EndPos:=CurPos.EndPos;
EndChildNode;
end;
ReadNextAtom;
if CurPos.Flag=cafPoint then begin
// unitname.identifier -> read identifier
repeat
ReadNextAtom;
if CurPos.Flag<>cafPoint then break;
// unitname.classname.identifier
ReadNextAtom;
AtomIsIdentifier(true);
if (pphCreateNodes in ParseAttr) then begin
CreateChildNode;
CurNode.Desc:=ctnIdentifier;
if (pphCreateNodes in ParseAttr) then
CurNode.EndPos:=CurPos.EndPos;
EndChildNode;
end;
ReadNextAtom;
end;
until false;
if (pphCreateNodes in ParseAttr) then
EndChildNode;
ReadGenericParam;
end else begin
if (Scanner.CompilerMode<>cmDelphi) then