paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 07:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: resolver: TPasIdentifierScope.GetLocalIdentifiers

Browse Source 
git-svn-id: trunk@38159 -
This commit is contained in:
Mattias Gaertner 2018-02-08 07:01:45 +00:00
parent 33188fb5ba
commit 9fb9939464
1 changed files with 25 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
packages/fcl-passrc/src/pasresolver.pp
View File

@ -243,6 +243,13 @@ uses
const
ParserMaxEmbeddedColumn = 2048;
ParserMaxEmbeddedRow = $7fffffff div ParserMaxEmbeddedColumn;
po_Resolver = [
po_ResolveStandardTypes,
po_NoOverloadedProcs,
po_KeepClassForward,
po_ArrayRangeExpr,
po_CheckModeswitches,
po_CheckCondFunction];
type
TResolverBaseType = (
@ -569,6 +576,7 @@ type
destructor Destroy; override;
property Element: TPasElement read FElement write SetElement;
end;
TPasIdentifierArray = array of TPasIdentifier;
{ TPasIdentifierScope - elements with a list of sub identifiers }
@ -577,6 +585,7 @@ type
FItems: TFPHashList;
procedure InternalAdd(Item: TPasIdentifier);
procedure OnClearItem(Item, Dummy: pointer);
procedure OnCollectItem(Item, List: pointer);
protected
procedure OnWriteItem(Item, Dummy: pointer);
public
@ -595,6 +604,7 @@ type
const OnIterateElement: TIterateScopeElement; Data: Pointer;
var Abort: boolean); override;
procedure WriteIdentifiers(Prefix: string); override;
function GetLocalIdentifiers: TFPList; virtual;
end;
{ TPasDefaultScope - root scope }
@ -2679,6 +2689,14 @@ begin
end;
end;
procedure TPasIdentifierScope.OnCollectItem(Item, List: pointer);
var
PasIdentifier: TPasIdentifier absolute Item;
FPList: TFPList absolute List;
begin
FPList.Add(PasIdentifier);
end;
procedure TPasIdentifierScope.OnWriteItem(Item, Dummy: pointer);
var
PasIdentifier: TPasIdentifier absolute Item;
@ -2874,6 +2892,12 @@ begin
FItems.ForEachCall(@OnWriteItem,Pointer(Prefix));
end;
function TPasIdentifierScope.GetLocalIdentifiers: TFPList;
begin
Result:=TFPList.Create;
FItems.ForEachCall(@OnCollectItem,Pointer(Result));
end;
{ TPasResolver }
// inline
@ -3539,9 +3563,7 @@ begin
Clear;
inherited SetCurrentParser(AValue);
if CurrentParser<>nil then
CurrentParser.Options:=CurrentParser.Options
+[po_resolvestandardtypes,po_nooverloadedprocs,po_keepclassforward,
po_arrayrangeexpr,po_CheckModeswitches,po_CheckCondFunction];
CurrentParser.Options:=CurrentParser.Options+po_Resolver;
end;
procedure TPasResolver.CheckTopScope(ExpectedClass: TPasScopeClass;