доисправления #2042

Configuration/GlobalAssemblyInfo.cs

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

Configuration/Version.defs

@@ -1,4 +1,4 @@
-%COREVERSION%=0
-%REVISION%=2192
 %MINOR%=5
+%REVISION%=2193
+%COREVERSION%=0
 %MAJOR%=3

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.5.0.2192'
+!define VERSION '3.5.0.2193'

SyntaxTreeConverters/StandardSyntaxConverter.cs

@@ -66,7 +66,7 @@ namespace PascalABCCompiler.SyntaxTreeConverters
             cv.ProcessNode(root);
             cv.Output(@"Light1.txt");*/
 
-            /*try
+            try
             {
                 root.visit(new SimplePrettyPrinterVisitor(@"d:\\zzz1.txt"));
             }
@@ -74,7 +74,7 @@ namespace PascalABCCompiler.SyntaxTreeConverters
             {
 
                 System.IO.File.AppendAllText(@"d:\\zzz1.txt",e.Message);
-            }*/
+            }
 
 
 #endif

SyntaxVisitors/YieldVisitors/RenameSameBlockLocalVarsVisitor.cs

@@ -60,7 +60,7 @@ namespace SyntaxVisitors
         {
             if (first_time_visit_function_header)
             {
-                DefaultVisit(fh);
+                //DefaultVisit(fh);
                 first_time_visit_function_header = false;
             }
             // DO NOTHING

TestSuite/CompilationSamples/PABCSystem.pas

@@ -8488,23 +8488,23 @@ begin
   end;
 end;
 
-/// Возвращает бесконечную последовательность целых от текущего значения с шагом st
-function Step(Self: integer; st: integer): sequence of integer; extensionmethod;
+/// Возвращает бесконечную последовательность целых от текущего значения с шагом step
+function Step(Self: integer; step: integer): sequence of integer; extensionmethod;
 begin
   while True do
   begin
     yield Self;
-    Self += st;
+    Self += step;
   end;
 end;
 
-/// Возвращает бесконечную последовательность вещественных от текущего значения с шагом st
-function Step(Self: real; st: real): sequence of real; extensionmethod;
+/// Возвращает бесконечную последовательность вещественных от текущего значения с шагом step
+function Step(Self: real; step: real): sequence of real; extensionmethod;
 begin
   while True do
   begin
     yield Self;
-    Self += st;
+    Self += step;
   end;
 end;
 

bin/Lib/PABCSystem.pas

@@ -8488,23 +8488,23 @@ begin
   end;
 end;
 
-/// Возвращает бесконечную последовательность целых от текущего значения с шагом st
-function Step(Self: integer; st: integer): sequence of integer; extensionmethod;
+/// Возвращает бесконечную последовательность целых от текущего значения с шагом step
+function Step(Self: integer; step: integer): sequence of integer; extensionmethod;
 begin
   while True do
   begin
     yield Self;
-    Self += st;
+    Self += step;
   end;
 end;
 
-/// Возвращает бесконечную последовательность вещественных от текущего значения с шагом st
-function Step(Self: real; st: real): sequence of real; extensionmethod;
+/// Возвращает бесконечную последовательность вещественных от текущего значения с шагом step
+function Step(Self: real; step: real): sequence of real; extensionmethod;
 begin
   while True do
   begin
     yield Self;
-    Self += st;
+    Self += step;
   end;
 end;