From ee69f424e8714344cb0c66162f6d8649e128452d Mon Sep 17 00:00:00 2001 From: Mikhalkovich Stanislav Date: Sat, 10 Sep 2022 19:16:37 +0300 Subject: [PATCH] fix #2703 --- TestSuite/ternary_byte_value.pas | 4 ++++ TreeConverter/TreeConversion/syntax_tree_visitor.cs | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) create mode 100644 TestSuite/ternary_byte_value.pas diff --git a/TestSuite/ternary_byte_value.pas b/TestSuite/ternary_byte_value.pas new file mode 100644 index 000000000..5b829f297 --- /dev/null +++ b/TestSuite/ternary_byte_value.pas @@ -0,0 +1,4 @@ +begin + var x := true ? byte(3) : byte(2); + Assert(x=3); +end. \ No newline at end of file diff --git a/TreeConverter/TreeConversion/syntax_tree_visitor.cs b/TreeConverter/TreeConversion/syntax_tree_visitor.cs index 3214497c5..1d0c8883b 100644 --- a/TreeConverter/TreeConversion/syntax_tree_visitor.cs +++ b/TreeConverter/TreeConversion/syntax_tree_visitor.cs @@ -18669,7 +18669,7 @@ namespace PascalABCCompiler.TreeConverter else { right = convertion_data_and_alghoritms.convert_type(right, lub); - left = convertion_data_and_alghoritms.convert_type(right, lub); + left = convertion_data_and_alghoritms.convert_type(left, lub); } } else if (left.type == SystemLibrary.SystemLibrary.float_type && right.type == SystemLibrary.SystemLibrary.double_type)