diff --git a/TestSuite/generics67.pas b/TestSuite/generics67.pas new file mode 100644 index 000000000..58baae3f4 --- /dev/null +++ b/TestSuite/generics67.pas @@ -0,0 +1,5 @@ +{$reference 'ns.dll'} +begin + var v1:= new ns.c2; + v1.Name&(); +end. \ No newline at end of file diff --git a/TestSuite/ns.dll b/TestSuite/ns.dll new file mode 100644 index 000000000..a3b7d6a4e Binary files /dev/null and b/TestSuite/ns.dll differ diff --git a/TreeConverter/TreeConversion/syntax_tree_visitor.cs b/TreeConverter/TreeConversion/syntax_tree_visitor.cs index 343662df7..bb76ea37f 100644 --- a/TreeConverter/TreeConversion/syntax_tree_visitor.cs +++ b/TreeConverter/TreeConversion/syntax_tree_visitor.cs @@ -5219,7 +5219,7 @@ namespace PascalABCCompiler.TreeConverter foreach (SymbolInfo func in funcs) { function_node f = func.sym_info as function_node; - if (f.is_generic_function) + if (f != null && f.is_generic_function) { //Проверяем на совпадение bool found = false;