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

fcl-passrc: added TPasResolver.ImplementationUsesUnit

Browse Source 
git-svn-id: trunk@46846 -
This commit is contained in:
Mattias Gaertner 2020-09-11 15:58:41 +00:00
parent f281e52ea3
commit aed1866db9
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2395,6 +2395,8 @@ type
function GetLastSection: TPasSection;
function GetParentSection(El: TPasElement): TPasSection;
function FindUsedUnitInSection(aMod: TPasModule; Section: TPasSection): TPasUsesUnit;
function FirstSectionUsesUnit(aModule: TPasModule): boolean;
function ImplementationUsesUnit(aModule: TPasModule; NotInIntf: boolean = true): boolean;
function GetShiftAndMaskForLoHiFunc(BaseType: TResolverBaseType;
isLoFunc: Boolean; out Mask: LongWord): Integer;
public
@ -29590,6 +29592,31 @@ begin
if Clause[i].Module=aMod then exit(Clause[i]);
end;
function TPasResolver.FirstSectionUsesUnit(aModule: TPasModule): boolean;
var
aSection: TPasSection;
begin
Result:=false;
aSection:=GetFirstSection(false);
if aSection=nil then
exit;
Result:=FindUsedUnitInSection(aModule,aSection)<>nil;
end;
function TPasResolver.ImplementationUsesUnit(aModule: TPasModule;
NotInIntf: boolean): boolean;
var
MyModule: TPasModule;
begin
Result:=false;
MyModule:=RootElement;
if MyModule=nil then exit;
if FindUsedUnitInSection(aModule,MyModule.ImplementationSection)=nil then
exit;
if NotInIntf then
Result:=not FirstSectionUsesUnit(aModule);
end;
function TPasResolver.GetShiftAndMaskForLoHiFunc(BaseType: TResolverBaseType;
isLoFunc: Boolean; out Mask: LongWord): Integer;
const