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

fix #1797

Browse source
This commit is contained in:
Бондарев Иван 2019-04-21 12:01:24 +02:00
parent 3557eab81f
commit d35fcda955
3 changed files with 33 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
TestSuite/CompilationSamples/graph3d.pas
View file

@ -1129,11 +1129,14 @@ type
scale: real;
el: ScaleTransform3D;
procedure Hand(o: object; e: System.EventArgs);
begin
if not dax.AutoReverse then
begin
var el0 := Element.scaletransform;
el0.ScaleX += el.ScaleX;
el0.ScaleY += el.ScaleY;
el0.ScaleZ += el.ScaleZ;
end;
Element.transfgroup.Children.Remove(el);
if Completed <> nil then
Completed();
@ -1163,9 +1166,12 @@ type
scale: real;
el: ScaleTransform3D;
procedure Hand(o: object; e: System.EventArgs);
begin
if not da.AutoReverse then
begin
var el0 := Element.scaletransform;
el0.ScaleX += el.ScaleX;
end;
Element.transfgroup.Children.Remove(el);
if Completed <> nil then
Completed();
@ -1191,9 +1197,12 @@ type
ScaleYAnimation = class(ScaleXAnimation)
private
procedure Hand(o: object; e: System.EventArgs);
begin
if not da.AutoReverse then
begin
var el0 := Element.scaletransform;
el0.ScaleY += el.ScaleY;
end;
Element.transfgroup.Children.Remove(el);
if Completed <> nil then
Completed();
@ -1213,9 +1222,12 @@ type
ScaleZAnimation = class(ScaleXAnimation)
private
procedure Hand(o: object; e: System.EventArgs);
begin
if not da.AutoReverse then
begin
var el0 := Element.scaletransform;
el0.ScaleZ += el.ScaleZ;
end;
Element.transfgroup.Children.Remove(el);
if Completed <> nil then
Completed();
@ -1240,6 +1252,7 @@ type
procedure Hand(o: object; e: System.EventArgs);
begin
var rot := el.Rotation as AxisAngleRotation3D;
if not da.AutoReverse then
Element.RotateAt(rot.Axis, angle, center);
Element.transfgroup.Children.Remove(el);
if Completed <> nil then

6
TestSuite/overloads10.pas Normal file
View file

@ -0,0 +1,6 @@
function f1: sequence of integer:= Seq(1,2);
begin
var s := f1+f1;
assert(1 in s);
end.

3
TreeConverter/TreeConversion/syntax_tree_visitor.cs
View file

@ -1107,6 +1107,9 @@ namespace PascalABCCompiler.TreeConverter
if (right_type.semantic_node_type == semantic_node_type.delegated_method && !left_type.IsDelegate && left_type.semantic_node_type != semantic_node_type.delegated_method)
{
try_convert_typed_expression_to_function_call(ref right);
if (name != compiler_string_consts.plusassign_name && name != compiler_string_consts.minusassign_name)
try_convert_typed_expression_to_function_call(ref left);
right_type = right.type;
}
if (right_type.semantic_node_type == semantic_node_type.delegated_method && name != compiler_string_consts.plusassign_name && name != compiler_string_consts.minusassign_name)