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

Merge pull request #3067 from SunSerega/refact-AddIndirectUsedUnitsForType

Browse source 
Мелкий рефакторинг `AddIndirectUsedUnitsForType`
This commit is contained in:
Ivan Bondarev 2024-03-31 14:24:01 +02:00 committed by GitHub
parent 9768db1f87 963ff1e545
commit d55ab163e0
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 22 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

51
Compiler/PCU/PCUWriter.cs
View file

@ -899,37 +899,30 @@ namespace PascalABCCompiler.PCU
private void AddIndirectUsedUnitsForType(type_node tn, Dictionary<common_namespace_node, bool> ns_dict, bool interf) private void AddIndirectUsedUnitsForType(type_node tn, Dictionary<common_namespace_node, bool> ns_dict, bool interf)
{ {
if (tn is common_type_node) if (!added_indirect_types.Add(tn)) return;
if (!(tn is common_type_node ctn)) return;
common_namespace_node comp_cnn = ctn.comprehensive_namespace;
if (tn is common_generic_instance_type_node cgitn)
{ {
common_namespace_node comp_cnn = (tn as common_type_node).comprehensive_namespace; comp_cnn = cgitn.common_original_generic.comprehensive_namespace;
if (tn is common_generic_instance_type_node) foreach (type_node param_tn in cgitn.instance_params)
comp_cnn = (tn as common_generic_instance_type_node).common_original_generic.comprehensive_namespace; AddIndirectUsedUnitsForType(param_tn, ns_dict, interf);
if (comp_cnn != null && !ns_dict.ContainsKey(comp_cnn) && unit.SemanticTree != comp_cnn.cont_unit)
{
var path = Compiler.GetUnitPath(unit, compiler.UnitsTopologicallySortedList.Find(u => u.SemanticTree == comp_cnn.cont_unit));
if (interf)
unit.InterfaceUsedUnits.AddElement(comp_cnn.cont_unit, path);
else
unit.ImplementationUsedUnits.AddElement(comp_cnn.cont_unit, path);
ns_dict[comp_cnn] = true;
}
if (tn.base_type is common_type_node)
AddIndirectUsedUnitsForType(tn.base_type, ns_dict, interf);
if (tn is common_generic_instance_type_node)
{
foreach (type_node param_tn in (tn as common_generic_instance_type_node).instance_params)
{
if (!added_indirect_types.Contains(param_tn))
{
added_indirect_types.Add(param_tn);
AddIndirectUsedUnitsForType(param_tn, ns_dict, interf);
}
}
}
} }
if (comp_cnn != null && !ns_dict.ContainsKey(comp_cnn) && unit.SemanticTree != comp_cnn.cont_unit)
{
var path = Compiler.GetUnitPath(unit, compiler.UnitsTopologicallySortedList.Find(u => u.SemanticTree == comp_cnn.cont_unit));
if (interf)
unit.InterfaceUsedUnits.AddElement(comp_cnn.cont_unit, path);
else
unit.ImplementationUsedUnits.AddElement(comp_cnn.cont_unit, path);
ns_dict[comp_cnn] = true;
}
AddIndirectUsedUnitsForType(tn.base_type, ns_dict, interf);
} }
private void AddIndirectUsedUnitsForFunction(common_namespace_function_node cnfn, Dictionary<common_namespace_node, bool> ns_dict, bool interf) private void AddIndirectUsedUnitsForFunction(common_namespace_function_node cnfn, Dictionary<common_namespace_node, bool> ns_dict, bool interf)