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

#2680

Browse source
This commit is contained in:
Ivan Bondarev 2022-07-24 14:18:00 +02:00
parent 8a9a56f989
commit 826463a9e0
3 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Compiler/PCU/PCUReader.cs
View file

@ -763,7 +763,7 @@ namespace PascalABCCompiler.PCU
return t;
template_types[i] = tt;
}
if (template_types.Length > 0)
if (template_types.Length > 0 && t.IsGenericTypeDefinition)
return t.MakeGenericType(template_types);
return t;
}

5
TestSuite/units/u_generics12.pas Normal file
View file

@ -0,0 +1,5 @@
unit u_generics12;
function f1: sequence of array of (integer, real) := Seq(|(1,2.3)|,|(3,4.3)|);
end.

5
TestSuite/usesunits/use_generics12.pas Normal file
View file

@ -0,0 +1,5 @@
uses u_generics12;
begin
assert(f1.ToArray[1][0].Item1 = 3);
end.