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)