bug fix #389

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;

Configuration/Version.defs

@@ -1,4 +1,4 @@
-%COREVERSION%=0
-%REVISION%=1425
 %MINOR%=2
+%REVISION%=1428
+%COREVERSION%=0
 %MAJOR%=3

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.2.0.1425'
+!define VERSION '3.2.0.1428'

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;
         }

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);
                 // заменяются только строки, а сами идентификаторы как объекты не меняются!

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;

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 
             {

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;