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

#2436

Browse source
This commit is contained in:
Ivan Bondarev 2021-02-21 12:33:51 +01:00
parent 4817fd07e1
commit 903e6ed63c
2 changed files with 22 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
TestSuite/nil7.pas Normal file
View file

@ -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.

8
TreeConverter/TreeConversion/convertion_data_and_alghoritms.cs
View file

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