bug fix #1283
This commit is contained in:
parent
c9e0fbb5f8
commit
549c2e55ed
|
|
@ -15,7 +15,7 @@ internal static class RevisionClass
|
|||
public const string Major = "3";
|
||||
public const string Minor = "4";
|
||||
public const string Build = "2";
|
||||
public const string Revision = "1806";
|
||||
public const string Revision = "1809";
|
||||
|
||||
public const string MainVersion = Major + "." + Minor;
|
||||
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
%MINOR%=4
|
||||
%REVISION%=1806
|
||||
%COREVERSION%=2
|
||||
%REVISION%=1809
|
||||
%MINOR%=4
|
||||
%MAJOR%=3
|
||||
|
|
|
|||
|
|
@ -1 +1 @@
|
|||
!define VERSION '3.4.2.1806'
|
||||
!define VERSION '3.4.2.1809'
|
||||
|
|
|
|||
10
TestSuite/questionpoint2.pas
Normal file
10
TestSuite/questionpoint2.pas
Normal file
|
|
@ -0,0 +1,10 @@
|
|||
type
|
||||
TClass = class
|
||||
function F() := 0;
|
||||
end;
|
||||
|
||||
begin
|
||||
var ff1 := new TClass;
|
||||
var x := ff1?.F;
|
||||
Assert(x=0);
|
||||
end.
|
||||
|
|
@ -19821,6 +19821,7 @@ namespace PascalABCCompiler.TreeConverter
|
|||
{
|
||||
var qce = av.new_addr_value as SyntaxTree.question_colon_expression;
|
||||
var av_cs = convert_strong(qce.ret_if_false);
|
||||
try_convert_typed_expression_to_function_call(ref av_cs);
|
||||
if (!type_table.is_with_nil_allowed(av_cs.type))
|
||||
{
|
||||
var dn = new dot_node(new ident("PABCSystem"), new ident("DQNToNullable"));
|
||||
|
|
|
|||
Loading…
Reference in a new issue