paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 17:30:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: fixed anaylyzer

Browse Source 
git-svn-id: trunk@46515 -
This commit is contained in:
Mattias Gaertner 2020-08-20 17:18:59 +00:00
parent 75e5afd45b
commit 89752e042d
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -910,7 +910,12 @@ end;
procedure TPasAnalyzer.CreateTree;
begin
FUsedElements:=CreatePasElementSet;
FUsedElements:=TPasAnalyzerKeySet.Create(
{$ifdef pas2js}
@PAElement_ElToHashName,@PasElementToHashName
{$else}
@ComparePAElements,@CompareElementWithPAElement
{$endif});
end;
function TPasAnalyzer.MarkElementAsUsed(El: TPasElement; aClass: TPAElementClass