From 248d03347f535474725dfd9feb453fcbb9e0a168 Mon Sep 17 00:00:00 2001 From: Mikhalkovich Stanislav Date: Sun, 7 Mar 2021 20:42:06 +0300 Subject: [PATCH] =?UTF-8?q?=D0=A0=D0=B5=D0=BB=D0=B8=D0=B7=20=D1=81=20\(x,y?= =?UTF-8?q?)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Configuration/GlobalAssemblyInfo.cs | 2 +- Configuration/Version.defs | 4 ++-- Release/pabcversion.txt | 2 +- ReleaseGenerators/PascalABCNET_version.nsh | 2 +- TestSuite/unpacklparams3.pas | 6 ++++++ 5 files changed, 11 insertions(+), 5 deletions(-) create mode 100644 TestSuite/unpacklparams3.pas diff --git a/Configuration/GlobalAssemblyInfo.cs b/Configuration/GlobalAssemblyInfo.cs index ccc8faebc..ba2a1019b 100644 --- a/Configuration/GlobalAssemblyInfo.cs +++ b/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 = "2"; - public const string Revision = "2852"; + public const string Revision = "2853"; public const string MainVersion = Major + "." + Minor; public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision; diff --git a/Configuration/Version.defs b/Configuration/Version.defs index 55d185ccf..72b222dff 100644 --- a/Configuration/Version.defs +++ b/Configuration/Version.defs @@ -1,4 +1,4 @@ -%COREVERSION%=2 -%REVISION%=2852 %MINOR%=7 +%REVISION%=2853 +%COREVERSION%=2 %MAJOR%=3 diff --git a/Release/pabcversion.txt b/Release/pabcversion.txt index 7f0adfa2f..97ce3db06 100644 --- a/Release/pabcversion.txt +++ b/Release/pabcversion.txt @@ -1 +1 @@ -3.7.2.2852 +3.7.2.2853 diff --git a/ReleaseGenerators/PascalABCNET_version.nsh b/ReleaseGenerators/PascalABCNET_version.nsh index c58a15a1f..9ebc69d12 100644 --- a/ReleaseGenerators/PascalABCNET_version.nsh +++ b/ReleaseGenerators/PascalABCNET_version.nsh @@ -1 +1 @@ -!define VERSION '3.7.2.2852' +!define VERSION '3.7.2.2853' diff --git a/TestSuite/unpacklparams3.pas b/TestSuite/unpacklparams3.pas new file mode 100644 index 000000000..3b0221a8c --- /dev/null +++ b/TestSuite/unpacklparams3.pas @@ -0,0 +1,6 @@ +begin + var pairs := Arr(1..3).Pairwise; + var pairs2 := pairs.ZipTuple(pairs.Skip(1)); + + Assert(pairs2.Select(\(\(a,b),\(c,d)) -> (a, b, c, d)).SequenceEqual(Seq((1,2,2,3)))); +end. \ No newline at end of file