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

fix pascalabcnet/pascalabcnetide#261

Browse source
This commit is contained in:
Ivan Bondarev 2023-05-01 10:20:12 +02:00
parent 7466145631
commit 7d0bb3a62d
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
CodeCompletion/SymTable.cs
View file

@ -491,17 +491,23 @@ namespace CodeCompletion
return lst;
}
private bool hasUsesCycle(SymScope unit)
private bool hasUsesCycle(SymScope unit, int deep=0)
{
if (unit.Name == "PABCSystem")
return true;
if (deep > 100)
return true;
if (this.used_units != null)
for (int i = 0; i < this.used_units.Count; i++)
{
if (this.used_units[i] == unit || this.used_units[i] == this)
return true;
else if (this.used_units[i].hasUsesCycle(unit))
return true;
else
{
if (this.used_units[i].hasUsesCycle(unit, deep+1))
return true;
}
}
return false;
}