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

fix #2279

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2020-07-09 23:54:10 +03:00
parent fe5b3353de
commit b24c527c7e
6 changed files with 18 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 = "2569"; public const string Revision = "2570";
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 @@
%MINOR%=6
%REVISION%=2569
%COREVERSION%=3 %COREVERSION%=3
%REVISION%=2570
%MINOR%=6
%MAJOR%=3 %MAJOR%=3

2
Release/pabcversion.txt
View file

@ -1 +1 @@
3.6.3.2569 3.6.3.2570

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

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

11
TestSuite/qp2.pas Normal file
View file

@ -0,0 +1,11 @@
type
t1 = auto class
i: integer;
end;
begin
var a: array of t1 := Arr(new t1(2));
var o := a?.First;
Assert((o as t1).i = 2)
end.

3
TreeConverter/TreeConversion/semantic_checks_for_sugar.cs
View file

@ -122,7 +122,8 @@ namespace PascalABCCompiler.TreeConverter
t = ctn2.compiled_original_generic.compiled_type; t = ctn2.compiled_original_generic.compiled_type;
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.type_special_kind == SemanticTree.type_special_kind.array_kind)
return;
if (!av.type.is_class && !av.type.IsInterface && !(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");
} }