paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-06 07:07:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: useanalyzer: fixed implementation class forward

Browse Source
This commit is contained in:
mattias 2020-11-13 01:29:23 +00:00
parent 46053a8ce5
commit b50b1ac90c
2 changed files with 28 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/packages/fcl-passrc/src/pasuseanalyzer.pas
View File

@ -3159,15 +3159,10 @@ begin
end;
function TPasAnalyzer.IsSpecializedGenericType(El: TPasElement): boolean;
var
GenScope: TPasGenericScope;
begin
if El is TPasGenericType then
begin
GenScope:=El.CustomData as TPasGenericScope;
if (GenScope<>nil) and (GenScope.SpecializedFromItem<>nil) then
exit(true);
end;
if (El is TPasGenericType) and (El.CustomData is TPasGenericScope)
and (TPasGenericScope(El.CustomData).SpecializedFromItem<>nil) then
exit(true);
Result:=false;
end;

25
compiler/packages/fcl-passrc/tests/tcuseanalyzer.pas
View File

@ -78,6 +78,7 @@ type
procedure TestM_Class;
procedure TestM_ClassForward;
procedure TestM_Class_Property;
procedure TestM_ClassForward_Generic;
procedure TestM_Class_PropertyProtected;
procedure TestM_Class_PropertyOverride;
procedure TestM_Class_PropertyOverride2;
@ -1153,6 +1154,30 @@ begin
AnalyzeProgram;
end;
procedure TTestUseAnalyzer.TestM_ClassForward_Generic;
begin
StartUnit(false);
Add([
'{$mode delphi}',
'interface',
'type',
' {tobject_used}TObject = class',
' end;',
' TBird = class;',
' TAnt = class end;',
' TBird = class end;',
'implementation',
'type',
' TBird2 = class;',
' TAnt2 = class end;',
' TBird2 = class end;',
'var Bird2: TBird2;',
'begin',
' if Bird2=nil then;',
'']);
AnalyzeUnit;
end;
procedure TTestUseAnalyzer.TestM_Class_PropertyProtected;
begin
StartUnit(false);