paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 03:49:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: resolver: FinishedInterfaceIndex

Browse Source 
git-svn-id: trunk@46508 -
This commit is contained in:
Mattias Gaertner 2020-08-20 13:26:09 +00:00
parent ac36a214bf
commit dacf740561
1 changed files with 27 additions and 1 deletions

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

@ -1433,7 +1433,9 @@ type
private
FOwner: TObject;
public
constructor Create(TheOwner: TObject);
FinishedInterfaceCount: integer;
constructor Create(TheOwner: TObject); virtual;
procedure Reset; virtual;
property Owner: TObject read FOwner;
end;
TPasResolverHubClass = class of TPasResolverHub;
@ -1491,6 +1493,7 @@ type
FDefaultScope: TPasDefaultScope;
FDynArrayMaxIndex: TMaxPrecInt;
FDynArrayMinIndex: TMaxPrecInt;
FFinishedInterfaceIndex: integer;
FHub: TPasResolverHub;
FLastCreatedData: array[TResolveDataListKind] of TResolveData;
FLastElement: TPasElement;
@ -2268,6 +2271,7 @@ type
PosEl: TPasElement; RaiseIfConst: boolean = true): boolean;
function ResolvedElIsClassOrRecordInstance(const ResolvedEl: TPasResolverResult): boolean;
// utility functions
function GetResolver(El: TPasElement): TPasResolver;
function ElHasModeSwitch(El: TPasElement; ms: TModeSwitch): boolean;
function GetElModeSwitches(El: TPasElement): TModeSwitches;
function ElHasBoolSwitch(El: TPasElement; bs: TBoolSwitch): boolean;
@ -2403,6 +2407,7 @@ type
property RootElement: TPasModule read FRootElement write SetRootElement;
property Step: TPasResolverStep read FStep;
property ActiveHelpers: TPRHelperEntryArray read FActiveHelpers;
property FinishedInterfaceIndex: integer read FFinishedInterfaceIndex;
// scopes
property Scopes[Index: integer]: TPasScope read GetScopes;
property ScopeCount: integer read FScopeCount;
@ -3084,6 +3089,11 @@ begin
FOwner:=TheOwner;
end;
procedure TPasResolverHub.Reset;
begin
FinishedInterfaceCount:=0;
end;
{ TPRSpecializedItem }
destructor TPRSpecializedItem.Destroy;
@ -5844,6 +5854,8 @@ begin
if not IsUnitIntfFinished(Section.GetModule) then
RaiseInternalError(20171214004323,'TPasResolver.FinishInterfaceSection "'+RootElement.Name+'" "'+Section.GetModule.Name+'" IsUnitIntfFinished=false');
{$ENDIF}
inc(Hub.FinishedInterfaceCount);
FFinishedInterfaceIndex:=Hub.FinishedInterfaceCount;
NotifyPendingUsedInterfaces;
if Section=nil then ;
end;
@ -24957,6 +24969,20 @@ begin
exit(true);
end;
function TPasResolver.GetResolver(El: TPasElement): TPasResolver;
var
Module: TPasModule;
Scope: TPasModuleScope;
begin
Result:=nil;
if El=nil then exit;
Module:=El.GetModule;
if Module=nil then exit;
Scope:=Module.CustomData as TPasModuleScope;
if Scope=nil then exit;
Result:=Scope.Owner as TPasResolver;
end;
function TPasResolver.ElHasModeSwitch(El: TPasElement; ms: TModeSwitch
): boolean;
begin