Merge pull request #1428 from Mr-Rm/fix/1427

fix #1427: исправление раскрутки стека при исключении в Выполнить, с тестом
EvilBeaver · Jul 31, 2024 · 133c26b · 133c26b
2 parents 7992509 + 851b34f
commit 133c26b
Show file tree

Hide file tree

Showing 2 changed files with 24 additions and 0 deletions.
diff --git a/src/NUnitTests/ContextTests.cs b/src/NUnitTests/ContextTests.cs
@@ -565,6 +565,29 @@ public void TestICallDeprecatedAliasAndHaveException()
             Assert.IsTrue(exceptionThrown, "Безнадёжно устаревший метод должен вызвать исключение");
         }
 
+        [Test]
+        public void TestICallExecuteWithException()
+        {
+            SystemLogger.SetWriter(this);
+            _messages.Clear();
+            var exceptionThrown = false;
+
+            try
+            {
+                host.RunTestString(
+                    @"Попытка
+	                    Выполнить(""Г=1/0"");
+                    Исключение
+                    КонецПопытки;");
+            }
+            catch
+            {
+                exceptionThrown = true;
+            }
+
+            Assert.IsFalse(exceptionThrown, "Перехваченное в Выполнить исключение не должно вызывать внешнее");
+        }
+
         public void Write(string text)
         {
             _messages.Add(text);

diff --git a/src/ScriptEngine/Machine/MachineInstance.cs b/src/ScriptEngine/Machine/MachineInstance.cs
@@ -1458,6 +1458,7 @@ private void Execute(int arg)
                 ModuleLoadIndex = _scopes.Count - 1,
                 Locals = new IVariable[method.Variables.Count],
                 InstructionPointer = 0,
+                IsReentrantCall = true
             };
             PushFrame(frame);
             CreateCurrentFrameLocals(method.Variables);