#2436

TestSuite/nil7.pas

@@ -0,0 +1,18 @@
+type
+  t0 = class end;
+  
+  t1 = class
+    static function operator implicit(p: t0): t1 := new t1;
+  end;
+
+var obj: t1;
+  
+procedure p1(o: t1);
+begin
+  obj := o;
+end;
+
+begin
+  p1(t0(nil));
+  assert(obj <> nil);
+end.

TreeConverter/TreeConversion/convertion_data_and_alghoritms.cs

@@ -1727,10 +1727,10 @@ namespace PascalABCCompiler.TreeConverter
                     exprs[i].type = fn.parameters[fn.parameters.Count - 1].type;
                     break;
                 }
-                if ((ptcal[i]==null)||(ptcal[i].first==null)||exprs[i] is null_const_node)
-				{
-					continue;
-				}
+                if ((ptcal[i] == null) || (ptcal[i].first == null) || (exprs[i] is null_const_node && exprs[i].type is null_type_node))
+                {
+                    continue;
+                }
                 expression_node[] temp_arr = new expression_node[1];
                 temp_arr[0] = exprs[i];
                 if (ptcal[i].first.convertion_method is compiled_constructor_node)