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

fcl-passrc: fixed isspecialized test

Browse Source 
git-svn-id: trunk@44387 -
This commit is contained in:
Mattias Gaertner 2020-03-28 16:32:10 +00:00
parent ef13f52ba8
commit 2ae212164e
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2324,6 +2324,7 @@ type
Params: TFPList): TPasElement; virtual;
procedure FinishSpecializedClassOrRecIntf(Scope: TPasGenericScope); virtual;
procedure FinishSpecializations(Scope: TPasGenericScope); virtual;
function IsSpecialized(El: TPasGenericType): boolean; overload;
function IsFullySpecialized(El: TPasGenericType): boolean; overload;
function IsFullySpecialized(Proc: TPasProcedure): boolean; overload;
function IsInterfaceType(const ResolvedEl: TPasResolverResult;
@ -27943,7 +27944,7 @@ var
ProcScope: TPasProcedureScope;
begin
Result:=nil;
if El.CustomData<>nil then
if (El.ClassType=TPasSpecializeType) and (El.CustomData<>nil) then
RaiseNotYetImplemented(20190726142522,El);
// check if there is already such a specialization
@ -28099,6 +28100,12 @@ begin
SpecializeGenericImpl(TPRSpecializedItem(SpecializedItems[i]));
end;
function TPasResolver.IsSpecialized(El: TPasGenericType): boolean;
begin
Result:=(El<>nil) and (El.CustomData is TPasGenericScope)
and (TPasGenericScope(El.CustomData).SpecializedFromItem<>nil);
end;
function TPasResolver.IsFullySpecialized(El: TPasGenericType): boolean;
var
GenScope: TPasGenericScope;

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

@ -2981,7 +2981,7 @@ function TPasElement.GetModule: TPasModule;
Var
p : TPaselement;
begin
if self is TPasPackage then
if Self is TPasPackage then
Result := nil
else
begin