diff --git a/Configuration/GlobalAssemblyInfo.cs b/Configuration/GlobalAssemblyInfo.cs index 31a9a3a7c..cf75c1c88 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 = "2"; public const string Build = "0"; - public const string Revision = "1425"; + public const string Revision = "1428"; 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 e710d1298..ab21ee503 100644 --- a/Configuration/Version.defs +++ b/Configuration/Version.defs @@ -1,4 +1,4 @@ -%COREVERSION%=0 -%REVISION%=1425 %MINOR%=2 +%REVISION%=1428 +%COREVERSION%=0 %MAJOR%=3 diff --git a/Localization/DefaultLang.resources b/Localization/DefaultLang.resources index b464250ac..afb0ea74b 100644 Binary files a/Localization/DefaultLang.resources and b/Localization/DefaultLang.resources differ diff --git a/ReleaseGenerators/PascalABCNET_version.nsh b/ReleaseGenerators/PascalABCNET_version.nsh index 9db37745d..fd5291037 100644 --- a/ReleaseGenerators/PascalABCNET_version.nsh +++ b/ReleaseGenerators/PascalABCNET_version.nsh @@ -1 +1 @@ -!define VERSION '3.2.0.1425' +!define VERSION '3.2.0.1428' diff --git a/SyntaxTreeConverters/StandardSyntaxConverter.cs b/SyntaxTreeConverters/StandardSyntaxConverter.cs index 0e09efd0d..55eede207 100644 --- a/SyntaxTreeConverters/StandardSyntaxConverter.cs +++ b/SyntaxTreeConverters/StandardSyntaxConverter.cs @@ -39,17 +39,17 @@ namespace PascalABCCompiler.SyntaxTreeConverters MarkMethodHasYieldAndCheckSomeErrorsVisitor.New.ProcessNode(root); ProcessYieldCapturedVarsVisitor.New.ProcessNode(root); -/*#if DEBUG +#if DEBUG try { - //root.visit(new SimplePrettyPrinterVisitor(@"d:\\zzz3.txt")); + root.visit(new SimplePrettyPrinterVisitor(@"d:\\zzz3.txt")); } catch { } -#endif*/ +#endif return root; } diff --git a/SyntaxVisitors/YieldVisitors/ReplaceVariableNameVisitor.cs b/SyntaxVisitors/YieldVisitors/ReplaceVariableNameVisitor.cs index 742a34b7a..d84242262 100644 --- a/SyntaxVisitors/YieldVisitors/ReplaceVariableNameVisitor.cs +++ b/SyntaxVisitors/YieldVisitors/ReplaceVariableNameVisitor.cs @@ -31,7 +31,7 @@ namespace SyntaxVisitors var upperNode = UpperNode(); if ( - (object)upperNode != null && (object)(upperNode as dot_node) == null) + upperNode != null /*&& (upperNode as dot_node) == null*/) // Я не знаю, зачем вообще было второе условие. Видимо, это всё надо убрать { //Replace(id, _newName); // заменяются только строки, а сами идентификаторы как объекты не меняются! diff --git a/TestSuite/CompilationSamples/GraphABC.pas b/TestSuite/CompilationSamples/GraphABC.pas index bb8f95c25..ab8cdd0be 100644 --- a/TestSuite/CompilationSamples/GraphABC.pas +++ b/TestSuite/CompilationSamples/GraphABC.pas @@ -532,9 +532,6 @@ procedure SetWindowCaption(s: string); /// Устанавливает заголовок графического окна procedure SetWindowTitle(s: string); -procedure AddStatusBar; - - /// Устанавливает ширину и высоту клиентской части графического окна в пикселах procedure InitWindow(Left,Top,Width,Height: integer; BackColor: Color := clWhite); @@ -2447,10 +2444,9 @@ begin end; procedure ResizeHelper; -var t: SmoothingMode; begin Monitor.Enter(f); - t := gr.SmoothingMode; + var t := gr.SmoothingMode; var m := gr.Transform; gr := Graphics.FromHwnd(f.Handle); gr.Transform := m; @@ -3403,10 +3399,8 @@ begin end; procedure SetWindowPos(l,t: integer); -var p: Proc2Integer; begin - p := ChangeFormPos; - f.Invoke(p,l,t); + f.Invoke(ChangeFormPos,l,t); end; procedure ChangeFormClientSize(w,h: integer); // вспомогательная @@ -3416,11 +3410,8 @@ begin end; procedure SetWindowSize(w,h: integer); -var p: Proc2Integer; begin - p := ChangeFormClientSize; - f.Invoke(p,w,h); - //ResizeHelper; + f.Invoke(ChangeFormClientSize,w,h); end; function GraphBoxWidth: integer; diff --git a/Yield/YieldConversionSyntax/YieldDesugarSyntaxTreeConverter.cs b/Yield/YieldConversionSyntax/YieldDesugarSyntaxTreeConverter.cs index 812721f99..0381b505d 100644 --- a/Yield/YieldConversionSyntax/YieldDesugarSyntaxTreeConverter.cs +++ b/Yield/YieldConversionSyntax/YieldDesugarSyntaxTreeConverter.cs @@ -24,7 +24,7 @@ namespace YieldDesugarSyntaxTreeConverter #if DEBUG try { - //root.visit(new SimplePrettyPrinterVisitor(@"d:\\zzz1.txt")); + //root.visit(new SimplePrettyPrinterVisitor(@"d:\\zzz3.txt")); } catch { diff --git a/bin/Lib/GraphABC.pas b/bin/Lib/GraphABC.pas index bb8f95c25..ab8cdd0be 100644 --- a/bin/Lib/GraphABC.pas +++ b/bin/Lib/GraphABC.pas @@ -532,9 +532,6 @@ procedure SetWindowCaption(s: string); /// Устанавливает заголовок графического окна procedure SetWindowTitle(s: string); -procedure AddStatusBar; - - /// Устанавливает ширину и высоту клиентской части графического окна в пикселах procedure InitWindow(Left,Top,Width,Height: integer; BackColor: Color := clWhite); @@ -2447,10 +2444,9 @@ begin end; procedure ResizeHelper; -var t: SmoothingMode; begin Monitor.Enter(f); - t := gr.SmoothingMode; + var t := gr.SmoothingMode; var m := gr.Transform; gr := Graphics.FromHwnd(f.Handle); gr.Transform := m; @@ -3403,10 +3399,8 @@ begin end; procedure SetWindowPos(l,t: integer); -var p: Proc2Integer; begin - p := ChangeFormPos; - f.Invoke(p,l,t); + f.Invoke(ChangeFormPos,l,t); end; procedure ChangeFormClientSize(w,h: integer); // вспомогательная @@ -3416,11 +3410,8 @@ begin end; procedure SetWindowSize(w,h: integer); -var p: Proc2Integer; begin - p := ChangeFormClientSize; - f.Invoke(p,w,h); - //ResizeHelper; + f.Invoke(ChangeFormClientSize,w,h); end; function GraphBoxWidth: integer; diff --git a/bin/Lib/PABCRtl.dll b/bin/Lib/PABCRtl.dll index ca65c79e7..0bb8fccd3 100644 Binary files a/bin/Lib/PABCRtl.dll and b/bin/Lib/PABCRtl.dll differ