Исправление var (x,y) := a[1:3];

Configuration/GlobalAssemblyInfo.cs

@@ -15,7 +15,7 @@ internal static class RevisionClass
 	public const string Major = "3";
 	public const string Minor = "8";
 	public const string Build = "0";
-	public const string Revision = "2899";
+	public const string Revision = "2901";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

@@ -1,4 +1,4 @@
 %MINOR%=8
-%REVISION%=2899
+%REVISION%=2901
 %COREVERSION%=0
 %MAJOR%=3

Release/pabcversion.txt

@@ -1 +1 @@
-3.8.0.2899
+3.8.0.2901

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.8.0.2899'
+!define VERSION '3.8.0.2901'

SyntaxTreeConverters/StandardSyntaxConverter.cs

@@ -53,12 +53,12 @@ namespace PascalABCCompiler.SyntaxTreeConverters
             // index 
             IndexVisitor.New.ProcessNode(root);
 
+            // slice_expr и slice_expr_question
+            SliceDesugarVisitor.New.ProcessNode(root); // поставил раньше AssignTuplesDesugarVisitor из за var (a,b) := a[1:3];
+
             // assign_tuple и assign_var_tuple
             AssignTuplesDesugarVisitor.New.ProcessNode(root); // теперь это - на семантике
 
-            // slice_expr и slice_expr_question
-            SliceDesugarVisitor.New.ProcessNode(root);
-
 
             // question_point_desugar_visitor
             QuestionPointDesugarVisitor.New.ProcessNode(root);

TestSuite/var_tuple_and_slice.pas

@@ -0,0 +1,5 @@
+begin
+  var a := Arr(1,2,3);
+  var (k,m) := a[1:3];
+  Assert((k=2) and (m=3));
+end.