paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-06 11:30:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc:

Browse Source 
git-svn-id: trunk@47128 -
This commit is contained in:
Mattias Gaertner 2020-10-18 15:18:15 +00:00
parent c053bc9418
commit f5d4e54ab3
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1092,7 +1092,7 @@ type
procedure WriteIdentifiers(Prefix: string); override;
destructor Destroy; override;
public
References: TPasScopeReferences; // created by TPasAnalyzer in DeclrationProc
References: TPasScopeReferences; // created by TPasAnalyzer in DeclarationProc
function AddReference(El: TPasElement; Access: TPSRefAccess): TPasScopeReference;
function GetReferences: TFPList;
end;

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

@ -180,7 +180,7 @@ type
{$ifdef pas2js}
constructor Create(const OnItemToName, OnKeyToName: TPASItemToNameProc); reintroduce;
{$else}
constructor Create(const OnCompareMethod: TListSortCompare;
constructor Create(const OnCompareProc: TListSortCompare;
const OnCompareKeyWithData: TListSortCompare);
{$endif}
destructor Destroy; override;
@ -198,7 +198,7 @@ type
TPasAnalyzerOption = (
paoOnlyExports, // default: use all class members accessible from outside (protected, but not private)
paoImplReferences, // collect references of top lvl proc implementations, initializationa dn finalization sections
paoImplReferences, // collect references of top lvl proc implementations, initializationa and finalization sections
paoSkipGenericProc // ignore generic procedure body
);
TPasAnalyzerOptions = set of TPasAnalyzerOption;
@ -434,10 +434,10 @@ begin
FItems:=TJSObject.new;
end;
{$else}
constructor TPasAnalyzerKeySet.Create(const OnCompareMethod: TListSortCompare;
constructor TPasAnalyzerKeySet.Create(const OnCompareProc: TListSortCompare;
const OnCompareKeyWithData: TListSortCompare);
begin
FTree:=TAVLTree.Create(OnCompareMethod);
FTree:=TAVLTree.Create(OnCompareProc);
FCompareKeyWithData:=OnCompareKeyWithData;
end;
{$endif}