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

bug fix #565

Browse source
This commit is contained in:
Бондарев Иван 2017-11-22 21:13:05 +01:00
parent 20b3c5a1c9
commit 532498038d
2 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
NETGenerator/Helpers.cs
View file

@ -792,7 +792,7 @@ namespace PascalABCCompiler.NETGenerator {
public bool IsConstructedGenericType(Type t)
{
if (t is TypeBuilder || t is GenericTypeParameterBuilder)
if (t is TypeBuilder || t is GenericTypeParameterBuilder || t is EnumBuilder)
return true;
if (t.IsGenericType)
foreach (Type gt in t.GetGenericArguments())

11
TestSuite/foreachenum1.pas Normal file
View file

@ -0,0 +1,11 @@
type
e1 = (ep1, ep2, ep3);
begin
var i := 0;
foreach var a in arr(ep1, ep3) do
begin
assert(a=(i=0?ep1:ep3));
Inc(i);
end;
end.