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

fix #2280

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2020-07-09 23:01:39 +03:00
parent bc12063981
commit fe5b3353de
7 changed files with 13 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 = "6"; public const string Minor = "6";
public const string Build = "3"; public const string Build = "3";
public const string Revision = "2568"; public const string Revision = "2569";
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%=2568
%MINOR%=6 %MINOR%=6
%REVISION%=2569
%COREVERSION%=3
%MAJOR%=3 %MAJOR%=3

BIN
Localization/DefaultLang.resources
View file

Binary file not shown.

2
Release/pabcversion.txt
View file

@ -1 +1 @@
3.6.3.2568 3.6.3.2569

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.6.3.2568' !define VERSION '3.6.3.2569'

7
TestSuite/Qpoint1.pas Normal file
View file

@ -0,0 +1,7 @@
// #2280
begin
var a: sequence of object := Seq(object(1));
//Ошибка: Левый операнд операции ?. должен иметь ссылочный тип
var o := a?.First;
Assert(o.Equals(1));
end.

2
TreeConverter/TreeConversion/semantic_checks_for_sugar.cs
View file

@ -123,7 +123,7 @@ namespace PascalABCCompiler.TreeConverter
else if (av.type is compiled_type_node ctn1) else if (av.type is compiled_type_node ctn1)
t = ctn1.compiled_type; t = ctn1.compiled_type;
if (!av.type.is_class && !(t.IsGenericType && t.GetGenericTypeDefinition() == typeof(Nullable<>))) if (!av.type.is_class && !av.type.IsInterface && !(t.IsGenericType && t.GetGenericTypeDefinition() == typeof(Nullable<>)))
AddError(av.location, "OPERATOR_DQ_MUST_BE_USED_WITH_A_REFERENCE_TYPE_VALUETYPE"); AddError(av.location, "OPERATOR_DQ_MUST_BE_USED_WITH_A_REFERENCE_TYPE_VALUETYPE");
} }