diff --git a/TestSuite/errors/err0324.pas b/TestSuite/errors/err0324.pas new file mode 100644 index 000000000..44c2d402a --- /dev/null +++ b/TestSuite/errors/err0324.pas @@ -0,0 +1,3 @@ +begin + var a: sequence of procedure; +end. \ No newline at end of file diff --git a/TreeConverter/TreeConversion/LambdaHelper.cs b/TreeConverter/TreeConversion/LambdaHelper.cs index 659c9d373..0ca1ba795 100644 --- a/TreeConverter/TreeConversion/LambdaHelper.cs +++ b/TreeConverter/TreeConversion/LambdaHelper.cs @@ -248,6 +248,8 @@ namespace PascalABCCompiler.TreeConverter else return false; } + else + return false; // Т.е. это - лямбда с коротким телом, но в результате сахарных преобразований Result := переменстился не на первое место - тогда преобразовать нельзя } lambdaDef.return_type = null;