paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 21:38:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: simplify

Browse Source 
git-svn-id: trunk@46509 -
This commit is contained in:
Mattias Gaertner 2020-08-20 13:26:40 +00:00
parent dacf740561
commit dba6f9a828
1 changed files with 15 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
packages/fcl-passrc/src/pasuseanalyzer.pas
View File

@ -329,6 +329,7 @@ function CompareElementWithPAElement(El, Id: Pointer): integer;
function ComparePAOverrideLists(List1, List2: Pointer): integer;
function CompareElementWithPAOverrideList(El, List: Pointer): integer;
{$endif}
function CreatePasElementSet: TPasAnalyzerKeySet;
function GetElModName(El: TPasElement): string;
function dbgs(a: TPAIdentifierAccess): string; overload;
@ -394,6 +395,17 @@ begin
end;
{$endif}
function CreatePasElementSet: TPasAnalyzerKeySet;
begin
Result:=TPasAnalyzerKeySet.Create(
{$ifdef pas2js}
@PasElementToHashName
{$else}
@ComparePointer
{$endif}
,nil);
end;
function GetElModName(El: TPasElement): string;
var
aModule: TPasModule;
@ -898,12 +910,7 @@ end;
procedure TPasAnalyzer.CreateTree;
begin
FUsedElements:=TPasAnalyzerKeySet.Create(
{$ifdef pas2js}
@PAElement_ElToHashName,@PasElementToHashName
{$else}
@ComparePAElements,@CompareElementWithPAElement
{$endif});
FUsedElements:=CreatePasElementSet;
end;
function TPasAnalyzer.MarkElementAsUsed(El: TPasElement; aClass: TPAElementClass
@ -2977,23 +2984,9 @@ var
begin
CreateTree;
for m in TPAUseMode do
FModeChecked[m]:=TPasAnalyzerKeySet.Create(
{$ifdef pas2js}
@PasElementToHashName
{$else}
@ComparePointer
{$endif}
,nil
);
FModeChecked[m]:=CreatePasElementSet;
for oc in TPAOtherCheckedEl do
FOtherChecked[oc]:=TPasAnalyzerKeySet.Create(
{$ifdef pas2js}
@PasElementToHashName
{$else}
@ComparePointer
{$endif}
,nil
);
FOtherChecked[oc]:=CreatePasElementSet;
FOverrideLists:=TPasAnalyzerKeySet.Create(
{$ifdef pas2js}
@PAOverrideList_ElToHashName,@PasElementToHashName