diff --git a/Configuration/GlobalAssemblyInfo.cs b/Configuration/GlobalAssemblyInfo.cs index 12203715e..5123746b6 100644 --- a/Configuration/GlobalAssemblyInfo.cs +++ b/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; diff --git a/Configuration/Version.defs b/Configuration/Version.defs index 4eea306ce..32df0d164 100644 --- a/Configuration/Version.defs +++ b/Configuration/Version.defs @@ -1,4 +1,4 @@ -%COREVERSION%=0 -%REVISION%=2192 %MINOR%=5 +%REVISION%=2193 +%COREVERSION%=0 %MAJOR%=3 diff --git a/ReleaseGenerators/PascalABCNET_version.nsh b/ReleaseGenerators/PascalABCNET_version.nsh index fe9cea5ef..561b08f63 100644 --- a/ReleaseGenerators/PascalABCNET_version.nsh +++ b/ReleaseGenerators/PascalABCNET_version.nsh @@ -1 +1 @@ -!define VERSION '3.5.0.2192' +!define VERSION '3.5.0.2193' diff --git a/SyntaxTreeConverters/StandardSyntaxConverter.cs b/SyntaxTreeConverters/StandardSyntaxConverter.cs index c388b3164..9fc454a9d 100644 --- a/SyntaxTreeConverters/StandardSyntaxConverter.cs +++ b/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 diff --git a/SyntaxVisitors/YieldVisitors/RenameSameBlockLocalVarsVisitor.cs b/SyntaxVisitors/YieldVisitors/RenameSameBlockLocalVarsVisitor.cs index d14fe0a61..9da7d9e82 100644 --- a/SyntaxVisitors/YieldVisitors/RenameSameBlockLocalVarsVisitor.cs +++ b/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 diff --git a/TestSuite/CompilationSamples/PABCSystem.pas b/TestSuite/CompilationSamples/PABCSystem.pas index 8565743af..47a5885a2 100644 --- a/TestSuite/CompilationSamples/PABCSystem.pas +++ b/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; diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas index 8565743af..47a5885a2 100644 --- a/bin/Lib/PABCSystem.pas +++ b/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;