diff --git a/TestSuite/extensionmethods34.pas b/TestSuite/extensionmethods34.pas new file mode 100644 index 000000000..a23e865be --- /dev/null +++ b/TestSuite/extensionmethods34.pas @@ -0,0 +1,7 @@ +type + c1 = class end; + +begin + var v1: array [,] of c1 := ((new c1, new c1),(new c1, new c1)); + v1.Print; +end. \ No newline at end of file diff --git a/TreeConverter/TreeConversion/convertion_data_and_alghoritms.cs b/TreeConverter/TreeConversion/convertion_data_and_alghoritms.cs index 4fbaa46f2..8c5f5dd4e 100644 --- a/TreeConverter/TreeConversion/convertion_data_and_alghoritms.cs +++ b/TreeConverter/TreeConversion/convertion_data_and_alghoritms.cs @@ -1372,7 +1372,7 @@ namespace PascalABCCompiler.TreeConverter { for (var i = 0; i < left_original.parameters.Count; i++) { - if (left_original.parameters[i].is_params || right_original.parameters[i].is_params) + if (left_original.parameters[i].is_params || i < right_original.parameters.Count && right_original.parameters[i].is_params || i >= right_original.parameters.Count) { return MoreSpecific.None; }