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

#2032

Browse source
This commit is contained in:
Ivan Bondarev 2021-04-05 14:07:54 +02:00
parent 5811692ca9
commit 589d4b4493
2 changed files with 29 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
TestSuite/parameters1.pas Normal file
View file

@ -0,0 +1,20 @@
var byte: byte; // работает
procedure p(integer: integer); // не работает.
begin
end;
type T<x> = class
end;
procedure p(t: t<integer>); // работает
begin
end;
procedure p(list: list<integer>); // не работает
begin
end;
begin
end.

17
TreeConverter/TreeConversion/syntax_tree_visitor.cs
View file

@ -14378,14 +14378,7 @@ namespace PascalABCCompiler.TreeConverter
AddError(get_location(_typed_parametres.idents.idents[1]), "ONLY_ONE_PARAMS_PARAMETER_ALLOWED");
}
}
foreach (SyntaxTree.ident id in _typed_parametres.idents.idents)
{
com_par = context.add_parameter(id.name, par_type, cpt, get_location(id));
if (is_params)
{
com_par.intrenal_is_params = true;
}
}
if (_typed_parametres.vars_type == null)
throw new NotSupportedError(get_location(_typed_parametres));
@ -14399,6 +14392,14 @@ namespace PascalABCCompiler.TreeConverter
check_delegate_on_generic_parameters(tn as common_type_node, get_location(_typed_parametres.vars_type));
}
check_for_type_allowed(tn,get_location(_typed_parametres.vars_type));
foreach (SyntaxTree.ident id in _typed_parametres.idents.idents)
{
com_par = context.add_parameter(id.name, par_type, cpt, get_location(id));
if (is_params)
{
com_par.intrenal_is_params = true;
}
}
if (is_params)
{
internal_interface ii = tn.get_internal_interface(internal_interface_kind.unsized_array_interface);