From 20edd487e3eba46fcca55366e907b865286753b5 Mon Sep 17 00:00:00 2001 From: Ivan Bondarev Date: Sun, 22 Sep 2024 12:39:03 +0200 Subject: [PATCH] #3204 --- TestSuite/lambdas25.pas | 9 +++++++++ TreeConverter/TreeConversion/syntax_tree_visitor.cs | 3 ++- 2 files changed, 11 insertions(+), 1 deletion(-) create mode 100644 TestSuite/lambdas25.pas diff --git a/TestSuite/lambdas25.pas b/TestSuite/lambdas25.pas new file mode 100644 index 000000000..236840384 --- /dev/null +++ b/TestSuite/lambdas25.pas @@ -0,0 +1,9 @@ +var + f: function: sequence of char := + ()-> 'aboba'.Select(x-> x); + v: function: function: integer := () -> () -> 1; + +begin + assert(f().First = 'a'); + assert(v()() = 1); +end. \ No newline at end of file diff --git a/TreeConverter/TreeConversion/syntax_tree_visitor.cs b/TreeConverter/TreeConversion/syntax_tree_visitor.cs index 1f26f64f6..ab4dec249 100644 --- a/TreeConverter/TreeConversion/syntax_tree_visitor.cs +++ b/TreeConverter/TreeConversion/syntax_tree_visitor.cs @@ -2930,7 +2930,8 @@ namespace PascalABCCompiler.TreeConverter #if DEBUG //System.IO.File.AppendAllText("aa.txt", context._cmn.functions[context._cmn.functions.Count - 1].name+"\n"); #endif - context._cmn.functions.remove_at(context._cmn.functions.Count - 1); + context._cmn.functions[context._cmn.functions.Count - 1].function_code = new statements_list(null); + //context._cmn.functions.remove_at(context._cmn.functions.Count - 1); }