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

#2600

Browse source
This commit is contained in:
Ivan Bondarev 2022-02-06 11:04:47 +01:00
parent 7593c5a1d3
commit 1a882ee112
2 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -0,0 +1,7 @@
//!Нельзя преобразовать тип integer к string
uses GraphWPF,Controls;
begin
var sb := StatusBar;
sb.Text := Milliseconds;
end.

4
TreeConverter/TreeConversion/SyntaxTreeVisitorNodes/Assign.cs
View file

@ -320,6 +320,8 @@ namespace PascalABCCompiler.TreeConverter
}
check_property_params(spr, loc);
function_node set_func = spr.property.set_function;
if (from.type is delegated_methods && !spr.property.property_type.IsDelegate)
from = convert_if_typed_expression_to_function_call(from, true);
from = convertion_data_and_alghoritms.convert_type(from, spr.property.property_type);
spr.fact_parametres.AddElement(from);
base_function_call bfc = create_static_method_call(set_func, loc,
@ -332,6 +334,8 @@ namespace PascalABCCompiler.TreeConverter
{
non_static_property_reference nspr = (non_static_property_reference) to;
check_property_params(nspr, loc);
if (from.type is delegated_methods && !nspr.property.property_type.IsDelegate)
from = convert_if_typed_expression_to_function_call(from, true);
from = convertion_data_and_alghoritms.convert_type(from, nspr.property.property_type);
nspr.fact_parametres.AddElement(from);