paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 10:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: added TPasIdentifierScope.WriteLocalIdentifiers

Browse Source 
git-svn-id: trunk@39157 -
This commit is contained in:
Mattias Gaertner 2018-06-02 07:15:16 +00:00
parent f03a396757
commit 13ebc81095
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -677,6 +677,7 @@ type
const OnIterateElement: TIterateScopeElement; Data: Pointer;
var Abort: boolean); override;
procedure WriteIdentifiers(Prefix: string); override;
procedure WriteLocalIdentifiers(Prefix: string); virtual;
function GetLocalIdentifiers: TFPList; virtual;
end;
@ -3110,7 +3111,7 @@ procedure TPasSectionScope.IterateElements(const aName: string;
Data: Pointer; var Abort: boolean);
var
i: Integer;
UsesScope: TPasIdentifierScope;
UsesScope: TPasSectionScope;
FilterData: TPasIterateFilterData;
begin
inherited IterateElements(aName, StartScope, OnIterateElement, Data, Abort);
@ -3119,9 +3120,9 @@ begin
FilterData.Data:=Data;
for i:=UsesScopes.Count-1 downto 0 do
begin
UsesScope:=TPasIdentifierScope(UsesScopes[i]);
UsesScope:=TPasSectionScope(UsesScopes[i]);
{$IFDEF VerbosePasResolver}
writeln('TPasSectionScope.IterateElements "',aName,'" in used unit ',GetObjName(UsesScope.Element));
writeln('TPasSectionScope.IterateElements "',aName,'" in used unit ',UsesScope.Element.ParentPath,':',GetObjName(UsesScope.Element));
{$ENDIF}
UsesScope.IterateLocalElements(aName,StartScope,@OnInternalIterate,@FilterData,Abort);
if Abort then exit;
@ -3484,7 +3485,11 @@ end;
procedure TPasIdentifierScope.WriteIdentifiers(Prefix: string);
begin
inherited WriteIdentifiers(Prefix);
Prefix:=Prefix+' ';
WriteLocalIdentifiers(Prefix+' ');
end;
procedure TPasIdentifierScope.WriteLocalIdentifiers(Prefix: string);
begin
FItems.ForEachCall(@OnWriteItem,Pointer(Prefix));
end;