fix EvilBeaver#1772: возврат Рефлектором измененных параметров при исключении +тест

Author: Mr-Rm

src/OneScript.StandardLibrary/Reflector.cs

@@ -57,28 +57,40 @@ public IValue CallMethod(IBslProcess process, IRuntimeContextInstance target, st
             else
                 argsToPass = GetArgsToPass(arguments, methInfo.CallParameters);
 
-            IValue retValue = ValueFactory.Create();
-            if (methInfo.IsFunction())
-            {
-                target.CallAsFunction(methodIdx, argsToPass, out retValue, process);
-            }
-            else
-            {
-                target.CallAsProcedure(methodIdx, argsToPass, process);
-            }
-
-            if (arguments != null)
-            {
-                for (int i = 0; i < argsToPass.Length; i++)
-                {
-                    if (i < arguments.Count())
-                    {
-                        arguments.Set(i, argsToPass[i] is IValueReference r ? r.Value : argsToPass[i]);
-                    }
+            IValue retValue = BslUndefinedValue.Instance;
+            try
+            {
+                if (methInfo.IsFunction())
+                {
+                    target.CallAsFunction(methodIdx, argsToPass, out retValue, process);
+                }
+                else
+                {
+                    target.CallAsProcedure(methodIdx, argsToPass, process);
                 }
             }
-
+            catch (Exception ex)
+            {
+                CopyArgsBack(argsToPass, arguments);
+                throw ex;
+            }
+
+            CopyArgsBack(argsToPass, arguments);
             return retValue;
+        }
+
+        private static void CopyArgsBack(IValue[] argsToPass, ArrayImpl arguments)
+        {
+            if (arguments == null)
+                return;
+
+            for (int i = 0; i < argsToPass.Length; i++)
+            {
+                if (i < arguments.Count())
+                {
+                    arguments.Set(i, argsToPass[i] is IValueReference r ? r.Value : argsToPass[i]);
+                }
+            }
         }
 
         private static IValue[] GetArgsToPass(ArrayImpl arguments, ReadOnlySpan<BslCallParameter> parameters)

tests/reflector.os

@@ -20,6 +20,7 @@
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьМетод_ПолучитьТаблицуМетодов_ДляРефлектора");
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьМетод_ПолучитьТаблицуМетодов_ДляРазныхТипов");
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьЧтоПараметрыИзмененныеВПроцедуреВозвращеныВМассив");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьЧтоПараметрыИзмененныеВПроцедуреВозвращеныВМассивПриИсключении");
 
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьМетод_ПолучитьТаблицуСвойств");
 
@@ -313,6 +314,30 @@
 
 КонецПроцедуры
 
+
+Процедура ИзменитьПараметрСИсключением(Парам) Экспорт
+	Парам = 22;
+	ВызватьИсключение "!";
+	Парам = 33;
+КонецПроцедуры         
+
+Процедура ТестДолжен_ПроверитьЧтоПараметрыИзмененныеВПроцедуреВозвращеныВМассивПриИсключении() Экспорт
+
+	Рефлектор = Новый Рефлектор;     
+
+	Аргументы = Новый Массив(1);
+	Аргументы[0] = 11;
+	
+	Попытка
+		Рефлектор.ВызватьМетод(ЭтотОбъект, "ИзменитьПараметрСИсключением", Аргументы);
+	Исключение
+	КонецПопытки;
+
+	юТест.ПроверитьРавенство(22, Аргументы[0], "Переменная не должна поменять значение");
+
+КонецПроцедуры
+
+
 Процедура ТестДолжен_ПроверитьМетод_ПолучитьТаблицуСвойств() Экспорт
 
 	Пример = ПолучитьОбъектДляПроверки("test_reflector");