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

#1093

Browse source
This commit is contained in:
Ivan Bondarev 2021-01-10 18:54:40 +01:00
parent 16274ab958
commit 00846fd0fc
2 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
TestSuite/generics47.pas Normal file
View file

@ -0,0 +1,4 @@
begin
var s := '1234';
assert(s.All(char.IsDigit));
end.

12
TreeConverter/TreeRealization/generics.cs
View file

@ -1187,6 +1187,18 @@ namespace PascalABCCompiler.TreeRealization
if (sil != null && sil.Count > 0) if (sil != null && sil.Count > 0)
fact_func = sil[0].sym_info as function_node; fact_func = sil[0].sym_info as function_node;
} }
else if (dm != null && dm.proper_methods.Count > 1 && formal_type.original_generic is compiled_type_node && (formal_type.original_generic as compiled_type_node).compiled_type.FullName.StartsWith("System.Func`"))
{
var ctn = formal_type.original_generic as compiled_type_node;
foreach (var fc in dm.proper_methods)
{
if (fc.simple_function_node.parameters.Count == formal_type.instance_params.Count - 1)
{
fact_func = fc.simple_function_node;
break;
}
}
}
if (fact_func != null) if (fact_func != null)
{ {