#2852

NETGenerator/NETGenerator.cs

@@ -11599,7 +11599,10 @@ namespace PascalABCCompiler.NETGenerator
             }
             LocalBuilder lb = il.DeclareLocal(return_type);
             if (save_debug_info) lb.SetLocalSymInfo("$enumer$" + uid++);
+
             value.InWhatExpr.visit(this);
+            if (value.InWhatExpr.type.is_value_type)
+                il.Emit(OpCodes.Box, in_what_type);
             il.Emit(OpCodes.Callvirt, enumer_mi);
             il.Emit(OpCodes.Stloc, lb);
             Label exl = il.BeginExceptionBlock();

TestSuite/foreach13.pas

@@ -0,0 +1,18 @@
+type
+  // Обязательно запись
+  r1 = record(IEnumerable<Exception>)
+    res := new Exception[](new System.InvalidOperationException('OK'));
+    
+    function GetEnumerator: IEnumerator<Exception> := res.AsEnumerable.GetEnumerator;
+    function System.Collections.IEnumerable.GetEnumerator: System.Collections.IEnumerator := self.GetEnumerator;
+    
+  end;
+  
+begin
+  var ex: Exception;
+  foreach var e in new r1 do
+  begin
+    ex := e;
+  end;
+  assert(ex.Message = 'OK');
+end.