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

fix #3008

Browse source
This commit is contained in:
Ivan Bondarev 2024-01-14 12:07:16 +01:00
parent 564ece3614
commit acc6458a82
3 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
TestSuite/l2.dll Normal file
View file

Binary file not shown.

6
TestSuite/overloads11.pas Normal file
View file

@ -0,0 +1,6 @@
{$reference l2.dll}
begin
l2.t2.m1;
assert(l2.t2.i = 1);
end.

8
TreeConverter/TreeConversion/convertion_data_and_alghoritms.cs
View file

@ -2233,7 +2233,13 @@ namespace PascalABCCompiler.TreeConverter
}
continue;
}
set_of_possible_functions.Add(fn);
else if ((func = find_eq_method_in_list(fn, set_of_possible_functions)) != null)
{
if (!(fn is compiled_function_node cfn && func is compiled_function_node cfn2 && (cfn.polymorphic_state == polymorphic_state.ps_static || cfn2.polymorphic_state == polymorphic_state.ps_static)))
set_of_possible_functions.Add(fn);
}
else
set_of_possible_functions.Add(fn);
}
}
if (parameters.Count > fn.parameters.Count)