Перенесен фикс #1498

Author: EvilBeaver

src/ScriptEngine/Compiler/Compiler.cs

@@ -1111,7 +1111,7 @@ private void BuildTryExceptStatement()
             BuildCodeBatch(Token.EndTry);
 
             var endIndex = AddLineNumber(_lastExtractedLexem.LineNumber, CodeGenerationFlags.CodeStatistics | CodeGenerationFlags.DebugCode);
-            AddCommand(OperationCode.EndTry);
+            AddCommand(OperationCode.EndTry, beginHandler);
             CorrectCommandArgument(jmpIndex, endIndex);
 
             NextToken();

src/ScriptEngine/Machine/MachineInstance.cs

@@ -1354,8 +1354,12 @@ private void BeginTry(int exceptBlockAddress)
 
         private void EndTry(int arg)
         {
-            if (_exceptionsStack.Count > 0 && _exceptionsStack.Peek().handlerFrame == _currentFrame)
-                _exceptionsStack.Pop();
+            if (_exceptionsStack.Count > 0)
+            {
+                var jmpInfo = _exceptionsStack.Peek();
+                if (jmpInfo.handlerFrame == _currentFrame && arg == jmpInfo.handlerAddress)
+                    _exceptionsStack.Pop();
+            }
             _currentFrame.LastException = null;
             NextInstruction();
         }

tests/engine-behaviors.os

@@ -53,6 +53,10 @@
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьПередачуПараметровПоСсылке");
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьСравнениеНаБольшеМеньше");
 
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьВложенныеИсключения");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьВложенныеИсключенияДелегат");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьВложенныеИсключенияФоновоеЗадание");
+
 	Возврат ВсеТесты;
 
 КонецФункции
@@ -243,7 +247,7 @@
 	Попытка
 		ПроброситьИсключение();
 	Исключение
-		юТест.ПроверитьИстину(ПустаяСтрока(ИнформацияОбОшибке().Описание), "Текст исключения должен быть пустым");
+		юТест.ПроверитьРавенство("", ИнформацияОбОшибке().Описание, "Текст исключения должен быть пустым");
 	КонецПопытки;
 
 КонецПроцедуры
@@ -691,3 +695,47 @@
 		Ошибка, "Для одинаковых объектов" );
 
 КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьВложенныеИсключения() Экспорт
+	ИсключениеВоВложеннойПопытке();
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьВложенныеИсключенияДелегат() Экспорт
+	Действие = Новый Действие(ЭтотОбъект, "ИсключениеВоВложеннойПопытке");
+	Действие.Выполнить();
+	КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьВложенныеИсключенияФоновоеЗадание() Экспорт
+
+	ФоновоеЗадание = ФоновыеЗадания.Выполнить(ЭтотОбъект, "ИсключениеВоВложеннойПопытке");
+	ФоновоеЗадание.ОжидатьЗавершения();
+
+	Если ФоновоеЗадание.ИнформацияОбОшибке <> Неопределено Тогда
+
+		ВызватьИсключение СтрШаблон(
+			"%1 (%2:%3)",
+			ФоновоеЗадание.ИнформацияОбОшибке.Описание,
+			ФоновоеЗадание.ИнформацияОбОшибке.ИмяМодуля,
+			ФоновоеЗадание.ИнформацияОбОшибке.НомерСтроки
+		);
+
+	КонецЕсли;
+
+КонецПроцедуры
+
+Процедура ИсключениеВоВложеннойПопытке() Экспорт
+
+	Попытка
+
+		Попытка
+			ВызватьИсключение "Исключение из вложенной попытки должна перехватываться";
+		Исключение
+		КонецПопытки;
+
+		ВызватьИсключение "Исключение из внешней попытки должна перехватываться";
+
+	Исключение
+		// Успех
+	КонецПопытки;
+
+КонецПроцедуры