administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

fix #1098

Browse source
This commit is contained in:
Бондарев Иван 2018-10-04 12:42:54 +02:00
parent 1782cd7e96
commit 1482a35bdf
1 changed files with 18 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
SyntaxVisitors/YieldVisitors/ProcessYieldsCapturedVars.cs
View file

@ -408,7 +408,7 @@ namespace SyntaxVisitors
{
// Метод класса описан вне класса
return UpperTo<declarations>().list
cd = UpperTo<declarations>().list
.OfType<type_declarations>()
.SelectMany(tdecls => tdecls.types_decl)
.Where(td => td.type_name.name == GetClassName(pd).name)
@ -416,6 +416,23 @@ namespace SyntaxVisitors
.Where(_cd => _cd != null)
.DefaultIfEmpty()
.First();
if (cd == null)
{
implementation_node impl = UpperTo<implementation_node>();
if (impl != null)
{
cd = (impl.Parent as unit_module).interface_part.interface_definitions.list
.OfType<type_declarations>()
.SelectMany(tdecls => tdecls.types_decl)
.Where(td => td.type_name.name == GetClassName(pd).name)
.Select(td => td.type_def as class_definition)
.Where(_cd => _cd != null)
.DefaultIfEmpty()
.First();
}
}
return cd;
}
}