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

#2916

Browse source
This commit is contained in:
Ivan Bondarev 2023-08-20 11:59:24 +02:00
parent 740ea078ca
commit 0e8e1d1454
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
NETGenerator/NETGenerator.cs
View file

@ -11620,7 +11620,15 @@ namespace PascalABCCompiler.NETGenerator
//il.Emit(OpCodes.Leave, leave_label);
il.BeginFinallyBlock();
//il.MarkLabel(br_lbl);
if (lb.LocalType.GetInterface("System.IDisposable") != null)
bool is_disposable = false;
if (helper.IsConstructedGenericType(return_type))
{
if (enumer_mi.ReturnType.GetGenericTypeDefinition().GetMethod("Dispose") != null)
is_disposable = true;
}
else if (lb.LocalType.GetInterface("System.IDisposable") != null)
is_disposable = true;
if (is_disposable)
{
if (lb.LocalType.IsValueType)
il.Emit(OpCodes.Ldloca, lb);