bug fix #1281

Configuration/GlobalAssemblyInfo.cs

@@ -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 = "1805";
+	public const string Revision = "1806";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

@@ -1,4 +1,4 @@
-%COREVERSION%=2
-%REVISION%=1805
 %MINOR%=4
+%REVISION%=1806
+%COREVERSION%=2
 %MAJOR%=3

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.4.2.1805'
+!define VERSION '3.4.2.1806'

SyntaxVisitors/SugarVisitors/QuestionPointDesugarVisitor.cs

@@ -169,7 +169,8 @@ namespace SyntaxVisitors.SugarVisitors
 
             var qce = ConvertToQCE1(dqn, tname);
             var sug = sugared_addressed_value.NewP(dqn, qce, dqn.source_context);
-            ReplaceUsingParent(dqn, sug);
+            //ReplaceUsingParent(dqn, sug);
+            Replace(dqn, sug); // SSM 30/09/18
             visit(qce);
 
             ReplaceStatementUsingParent(st as statement, l);

TestSuite/questionpoint1.pas

@@ -0,0 +1,11 @@
+type
+  t1=class
+    o: object;
+    
+    property p1: System.Type read o?.GetType;
+  end;
+
+begin 
+  var t := new t1;
+  Assert(t.p1=nil);
+end.