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

fix #2713

Browse source
This commit is contained in:
Ivan Bondarev 2022-09-25 10:40:08 +02:00
parent 6096112e55
commit 5b4eb6beb2
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Optimizer/Optimizer.cs
View file

@ -18,6 +18,7 @@ namespace PascalABCCompiler
private bool condition_block = false;
private bool has_returns = false;
private bool has_goto = false;
private Dictionary<common_method_node, common_method_node> processed_methods = new Dictionary<common_method_node, common_method_node>();
private bool no_infinite_recursion;
public Optimizer()
@ -140,6 +141,9 @@ namespace PascalABCCompiler
private void VisitMethod(common_method_node cmn)
{
if (processed_methods.ContainsKey(cmn))
return;
processed_methods.Add(cmn, cmn);
if (extended_mode)
VisitVariables(cmn.var_definition_nodes_list);
foreach (var_definition_node vdn in cmn.var_definition_nodes_list)