administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

fix #2666

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2022-05-03 21:45:23 +03:00
parent 1d09aa7a15
commit 653b7dfaae
6 changed files with 21 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Configuration/GlobalAssemblyInfo.cs
View file

@ -15,7 +15,7 @@ internal static class RevisionClass
public const string Major = "3"; public const string Major = "3";
public const string Minor = "8"; public const string Minor = "8";
public const string Build = "3"; public const string Build = "3";
public const string Revision = "3114"; public const string Revision = "3115";
public const string MainVersion = Major + "." + Minor; public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision; public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

4
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%COREVERSION%=3
%REVISION%=3114
%MINOR%=8 %MINOR%=8
%REVISION%=3115
%COREVERSION%=3
%MAJOR%=3 %MAJOR%=3

2
Release/pabcversion.txt
View file

@ -1 +1 @@
3.8.3.3114 3.8.3.3115

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.8.3.3114' !define VERSION '3.8.3.3115'

15
TestSuite/ValueTupleUnpack.pas Normal file
View file

@ -0,0 +1,15 @@
##
function f1 := (1,2);
function f2 := System.ValueTuple.Create(1,2);
// OK
var (a1,b1) := f1;
// OK
var (a2,b2) := f2;
// OK
(a1,b1) := f1;
(a2,b2) := f2;
Assert((a1,b1)=(1,2));
Assert((a2,b2)=(1,2));

2
TreeConverter/TreeConversion/semantic_checks_for_sugar.cs
View file

@ -22,7 +22,7 @@ namespace PascalABCCompiler.TreeConverter
var IsTuple = false; var IsTuple = false;
var IsSequence = false; var IsSequence = false;
if (t.FullName.StartsWith("System.Tuple")) if (t.FullName.StartsWith("System.Tuple") || t.FullName.StartsWith("System.ValueTuple"))
IsTuple = true; IsTuple = true;
if (!IsTuple) if (!IsTuple)
{ {