fix #2324

NextPermutation видима

RunUnitTests - убрал StackTrace

Configuration/GlobalAssemblyInfo.cs

@@ -15,7 +15,7 @@ internal static class RevisionClass
 	public const string Major = "3";
 	public const string Minor = "7";
 	public const string Build = "1";
-	public const string Revision = "2714";
+	public const string Revision = "2721";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

@@ -1,4 +1,4 @@
-%COREVERSION%=1
-%REVISION%=2714
 %MINOR%=7
+%REVISION%=2721
+%COREVERSION%=1
 %MAJOR%=3

Release/pabcversion.txt

@@ -1 +1 @@
-3.7.1.2714
+3.7.1.2721

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.7.1.2714'
+!define VERSION '3.7.1.2721'

SyntaxVisitors/SugarVisitors/QuestionPointDesugarVisitor.cs

@@ -177,6 +177,7 @@ namespace SyntaxVisitors.SugarVisitors
             //Replace(dqn, sug); // Этот не подходит!
 
             var dl = (dqn.left.ExprToQCE == null ? dqn.left : dqn.left.ExprToQCE) as addressed_value;
+            dqn.Parent = null;
             var tt = new var_statement(new ident(tname), dl, dqn.source_context);
             tt.var_def.Parent = tt;
             var l = new List<statement>();

TestSuite/CompilationSamples/PABCSystem.pas

@@ -2130,6 +2130,9 @@ function MatrEqual<T>(a, b: array [,] of T): boolean;
 /// Перемешивает список случайным образом
 procedure Shuffle<T>(l: List<T>);
 
+/// Возвращает следующую перестановку в массиве 
+function NextPermutation(a: array of integer): boolean;
+
 
 // -----------------------------------------------------
 //>>     Подпрограммы для генерации последовательностей # Subroutines for sequence generation
@@ -11696,7 +11699,7 @@ begin
   repeat
     for var i:=0 to n-1 do
       res[i] := a[ind[i]];
-    yield res;
+    yield Arr(res);
   until not NextPermutation(ind);  
 end;
 

TestSuite/errors/err0377.pas

@@ -0,0 +1,8 @@
+type
+  t1 = class
+    o: Object;
+    property p1: string read o?.ToString;
+  end;
+  
+begin 
+end.

bin/Lib/PABCSystem.pas

@@ -2130,6 +2130,9 @@ function MatrEqual<T>(a, b: array [,] of T): boolean;
 /// Перемешивает список случайным образом
 procedure Shuffle<T>(l: List<T>);
 
+/// Возвращает следующую перестановку в массиве 
+function NextPermutation(a: array of integer): boolean;
+
 
 // -----------------------------------------------------
 //>>     Подпрограммы для генерации последовательностей # Subroutines for sequence generation
@@ -11696,7 +11699,7 @@ begin
   repeat
     for var i:=0 to n-1 do
       res[i] := a[ind[i]];
-    yield res;
+    yield Arr(res);
   until not NextPermutation(ind);  
 end;
 

bin/RunUnitTests.pas

@@ -45,8 +45,8 @@ begin
   Writeln($'{prefix}) {status}: {fullName}');
 	if not string.IsNullOrEmpty(message) then
 		Writeln(message.TrimEnd(TRIM_CHARS));
-	if not string.IsNullOrEmpty(stackTrace) then
-		Writeln(stackTrace.TrimEnd(TRIM_CHARS));
+	//if not string.IsNullOrEmpty(stackTrace) then
+	//	Writeln(stackTrace.TrimEnd(TRIM_CHARS));
 end;
 
 procedure DisplayTestResult(result: ITestResult);