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

#2936

Browse source
This commit is contained in:
Ivan Bondarev 2023-11-01 13:48:08 +01:00
parent a63a489968
commit 28b1a4917b
2 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
TestSuite/defaultparams5.pas Normal file
View file

@ -0,0 +1,9 @@
var obj: object;
procedure p1<T>(o: T := default(T));
begin
obj := o;
end;
begin
p1&<BigInteger>;
assert(BigInteger(obj) = default(BigInteger));
end.

8
TreeConverter/TreeRealization/generics.cs
View file

@ -2649,6 +2649,14 @@ namespace PascalABCCompiler.TreeRealization
par.default_value, null);
cpar.inital_value = par.inital_value;
cpar.default_value = par.default_value;
if (cpar.default_value is default_operator_node)
(cpar.default_value as default_operator_node).type = generic_convertions.determine_type(cpar.default_value.type, _instance_params, true, orig_gen_params);
else if (cpar.default_value is default_operator_node_as_constant)
{
(cpar.default_value as default_operator_node_as_constant).type = generic_convertions.determine_type(cpar.default_value.type, _instance_params, true, orig_gen_params);
(cpar.default_value as default_operator_node_as_constant).default_operator.type = (cpar.default_value as default_operator_node_as_constant).type;
}
cpar.intrenal_is_params = par.is_params;
cpar.is_ret_value = par.is_ret_value;
cpar.is_special_name = par.is_special_name;