fix #1706

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 = "2133";
+	public const string Revision = "2134";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

@@ -1,4 +1,4 @@
-%MINOR%=5
-%REVISION%=2133
 %COREVERSION%=0
+%REVISION%=2134
+%MINOR%=5
 %MAJOR%=3

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.5.0.2133'
+!define VERSION '3.5.0.2134'

TestSuite/errors/err0321.pas

@@ -0,0 +1,17 @@
+procedure p1();
+begin
+  {$omp parallel for}
+  for var i:=1 to 10 do
+  begin
+    var a: array of integer;
+    //a := ArrGen(i,x->x);
+  end;
+  {$omp parallel sections}
+  begin
+    var a: array of integer;
+    a := ArrGen(2, x -> 0);
+  end;
+end;
+
+begin
+end.

TestSuite/errors/err0322.pas

@@ -0,0 +1,17 @@
+procedure p1();
+begin
+  {$omp parallel for}
+  for var i:=1 to 10 do
+  begin
+    var a: array of integer;
+    //a := ArrGen(i,x->x);
+  end;
+  {$omp parallel sections}
+  begin
+    var a: array of integer;
+    a := ArrGen(2, x -> 0);
+  end;
+end;
+
+begin
+end.

TreeConverter/TreeConversion/SyntaxTreeVisitorNodes/ForLoop.cs

@@ -1,4 +1,5 @@
 using System;
+using System.Linq;
 using PascalABCCompiler.SemanticTree;
 using PascalABCCompiler.SyntaxTree;
 using PascalABCCompiler.TreeRealization;
@@ -180,6 +181,10 @@ namespace PascalABCCompiler.TreeConverter
                 CurrentParallelPosition = ParallelPosition.Outside;
                 if (stl != null)
                 {
+                    var f = _for_node.DescendantNodes().OfType<function_lambda_definition>().FirstOrDefault();
+                    if (f != null)
+                        AddError(get_location(f), "OPENMP_CONTROLLED_CONSTRUCTIONS_CANNOT_CONTAIN_LAMBDAS");
+
                     OpenMP.LoopVariables.Pop();
                     return_value(stl);
                     return;

TreeConverter/TreeConversion/syntax_tree_visitor.cs

@@ -17153,9 +17153,12 @@ namespace PascalABCCompiler.TreeConverter
                     //перед этим узлом есть директива parallel sections
                     if (CurrentParallelPosition == ParallelPosition.Outside)            //входим в самый внешний параллельный sections
                     {
+                        var f = _statement_list.DescendantNodes().OfType<function_lambda_definition>().FirstOrDefault();
+                        if (f != null)
+                            AddError(get_location(f), "OPENMP_CONTROLLED_CONSTRUCTIONS_CANNOT_CONTAIN_LAMBDAS");
                         //сгенерировать сначала последовательную ветку, затем параллельную
                         //устанавливаем флаг и продолжаем конвертирование, считая, что конвертируем последовательную ветку
-                        isGenerateParallel = true;
+                            isGenerateParallel = true;
                         CurrentParallelPosition = ParallelPosition.InsideSequential;
                         //в конце за счет флага вернем состояние обратно и сгенерируем и параллельную ветку тоже
                     }
@@ -20358,7 +20361,5 @@ namespace PascalABCCompiler.TreeConverter
 
             visit(mc);*/
         }
-
-        
     }
 }

bin/Lng/Eng/SemanticErrors_ms.dat

@@ -25,4 +25,5 @@ UNNAMED_RECORD_CANNOT_IMPLEMENT_INTERFACE=Unnamed records can not implement inte
 UNNAMED_RECORD_CANNOT_CONTAIN_METHODS=Unnamed records can not contain methods 
 UNNAMED_RECORD_CANNOT_CONTAIN_CONSTRUCTORS=Unnamed records can not contain constructors
 UNNAMED_RECORD_CAN_CONTAIN_ONLY_ONE_PUBLIC_VISIBILITY_SECTION=Unnamed records can contain only one section with public visibility 
-UNNAMED_RECORD_CANNOT_CONTAIN_SEVERAL_VISIBILITY_SECTIONS=Unnamed records can not contain several visibility section
+UNNAMED_RECORD_CANNOT_CONTAIN_SEVERAL_VISIBILITY_SECTIONS=Unnamed records can not contain several visibility section
+OPENMP_CONTROLLED_CONSTRUCTIONS_CANNOT_CONTAIN_LAMBDAS=OpenMP-directive-based constructions cannot contain lambdas

bin/Lng/Rus/SemanticErrors_ms.dat

@@ -26,4 +26,5 @@ UNNAMED_RECORD_CANNOT_IMPLEMENT_INTERFACE=Безымянные записи не
 UNNAMED_RECORD_CANNOT_CONTAIN_METHODS=Безымянные записи не могут содержать методы
 UNNAMED_RECORD_CANNOT_CONTAIN_CONSTRUCTORS=Безымянные записи не могут содержать конструкторы
 UNNAMED_RECORD_CAN_CONTAIN_ONLY_ONE_PUBLIC_VISIBILITY_SECTION=Безымянные записи могут содержать лишь одну секцию с public-видимостью
-UNNAMED_RECORD_CANNOT_CONTAIN_SEVERAL_VISIBILITY_SECTIONS=Безымянные записи не могут содержать несколько секций видимости
+UNNAMED_RECORD_CANNOT_CONTAIN_SEVERAL_VISIBILITY_SECTIONS=Безымянные записи не могут содержать несколько секций видимости
+OPENMP_CONTROLLED_CONSTRUCTIONS_CANNOT_CONTAIN_LAMBDAS=Лямбда-выражения не могут содержаться внутри конструкций под управлением OpenMP-директив