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

#2542

Browse source
This commit is contained in:
Ivan Bondarev 2021-11-07 12:16:09 +01:00
parent 289bf45e82
commit 163bb02603
2 changed files with 18 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
TestSuite/errors/err0441.pas Normal file
View file

@ -0,0 +1,7 @@
//!Ожидалась функция, встречена процедура p
{$reference WindowsBase.dll}
begin
var p: byte->();
System.Windows.Threading.Dispatcher(nil).Invoke(()->p(0));
end.

11
TreeConverter/TreeConversion/syntax_tree_visitor.cs
View file

@ -7583,6 +7583,17 @@ namespace PascalABCCompiler.TreeConverter
else
{
function_node fn = convertion_data_and_alghoritms.select_function(exprs, sil, subloc2, syntax_nodes_parameters);
if (!proc_wait && fn.return_value_type == null && exp2 != null && exp2 != null && fn.name == "Invoke")
{
string del_name = "";
if (exp2 is local_block_variable_reference)
del_name = (exp2 as local_block_variable_reference).var.name;
else if (exp2 is local_variable_reference)
del_name = (exp2 as local_variable_reference).var.name;
else if (exp2 is namespace_variable_reference)
del_name = (exp2 as namespace_variable_reference).var.name;
AddError(subloc2, "FUNCTION_EXPECTED_PROCEDURE_{0}_MEET", del_name);
}
base_function_call bbffcc = create_not_static_method_call(fn, exp2, subloc2, proc_wait);
bbffcc.parameters.AddRange(exprs);
expr_node = bbffcc;