bug fix #592

TestSuite/lambdas5.pas

@@ -0,0 +1,19 @@
+type
+  t1=class
+    
+    function f1(aX,aY:Single):=byte(2);
+    
+    constructor;
+    begin
+      
+      var MAng := 0;
+      var NP2 := new byte[1];
+      NP2.Fill(i->self.f1(i,MAng));
+      assert(NP2[0] = 2);
+    end;
+    
+  end;
+
+begin 
+  new t1;
+end.

TreeConverter/TreeConversion/compilation_context.cs

@@ -287,7 +287,8 @@ namespace PascalABCCompiler.TreeConverter
             if (lst.statements[0] is basic_function_call)
             {
                 base_function_call bfc = lst.statements[0] as basic_function_call;
-                
+                if (bfc.type != null && bfc.type.name.Contains("<>local_variables_class"))
+                    return true;
             }
             return false;
         }

TreeConverter/TreeConversion/syntax_tree_visitor.cs

@@ -16668,11 +16668,21 @@ namespace PascalABCCompiler.TreeConverter
                 try
                 {
                     statement_node semantic_statement = convert_strong(syntax_statement);
+                    bool lambda_init_code = false;
+                    if (semantic_statement is basic_function_call)
+                    {
+                        base_function_call bfc = semantic_statement as basic_function_call;
+                        if (bfc.type != null && bfc.type.name.Contains("<>local_variables_class"))
+                            lambda_init_code = true;
+                    }
                     if (semantic_statement != null)
                     {
+                        if (context.allow_inherited_ctor_call && !lambda_init_code)
+                            stl.statements.AddElementFirst(semantic_statement);
+                        else
                             stl.statements.AddElement(semantic_statement);
                     }
-
+                    if (!lambda_init_code)
                         context.allow_inherited_ctor_call = false;
                 }
                 catch (Errors.Error ex)