diff --git a/Configuration/GlobalAssemblyInfo.cs b/Configuration/GlobalAssemblyInfo.cs index 812c6ffbd..031f32ac2 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 = "8"; public const string Build = "2"; - public const string Revision = "3065"; + public const string Revision = "3069"; 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 4323519bb..b8db25841 100644 --- a/Configuration/Version.defs +++ b/Configuration/Version.defs @@ -1,4 +1,4 @@ %MINOR%=8 -%REVISION%=3065 +%REVISION%=3069 %COREVERSION%=2 %MAJOR%=3 diff --git a/Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs b/Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs index 56c285bb7..86b35df0b 100644 --- a/Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs +++ b/Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs @@ -5871,7 +5871,7 @@ public partial class GPPGParser: ShiftReduceParserx.expr).ToList(); + var exprs = l.name_expr.Select(x=>x.expr.Clone() as expression).ToList(); var typename = "AnonymousType#"+Guid(); var type = new named_type_reference(typename,LocationStack[LocationStack.Depth-5]); diff --git a/Release/pabcversion.txt b/Release/pabcversion.txt index 4a17b09c6..fc97284e7 100644 --- a/Release/pabcversion.txt +++ b/Release/pabcversion.txt @@ -1 +1 @@ -3.8.2.3065 +3.8.2.3069 diff --git a/ReleaseGenerators/PascalABCNET_version.nsh b/ReleaseGenerators/PascalABCNET_version.nsh index d8108e0f2..bb17fbf36 100644 --- a/ReleaseGenerators/PascalABCNET_version.nsh +++ b/ReleaseGenerators/PascalABCNET_version.nsh @@ -1 +1 @@ -!define VERSION '3.8.2.3065' +!define VERSION '3.8.2.3069' diff --git a/TestSuite/anonclass.pas b/TestSuite/anonclass.pas new file mode 100644 index 000000000..3f7ec044d --- /dev/null +++ b/TestSuite/anonclass.pas @@ -0,0 +1,4 @@ +begin + var x := new class(r := 1..2, r2 := 3..4); + Assert(x.r = 1..2) +end. \ No newline at end of file