fix #2437
This commit is contained in:
parent
d2de9c2621
commit
fbf11aea9a
|
|
@ -327,7 +327,10 @@ namespace SyntaxVisitors.PatternsVisitors
|
||||||
foreach (var x in l)
|
foreach (var x in l)
|
||||||
x.Parent = stat.Parent;
|
x.Parent = stat.Parent;
|
||||||
var stl = stat.Parent as statement_list;
|
var stl = stat.Parent as statement_list;
|
||||||
stl.ReplaceInList(stat, l);
|
if (stl != null)
|
||||||
|
stl.ReplaceInList(stat, l);
|
||||||
|
else
|
||||||
|
throw new SyntaxVisitorError("EMBEDDED_STATEMENT_CANNOT_BE_A_DECLARATION", stat.source_context);
|
||||||
}
|
}
|
||||||
//}
|
//}
|
||||||
|
|
||||||
|
|
|
||||||
4
TestSuite/errors/err0403.pas
Normal file
4
TestSuite/errors/err0403.pas
Normal file
|
|
@ -0,0 +1,4 @@
|
||||||
|
begin
|
||||||
|
if true then
|
||||||
|
var res := (a is integer(var b));
|
||||||
|
end.
|
||||||
File diff suppressed because it is too large
Load diff
|
|
@ -36,4 +36,5 @@ NESTED_RECORD_CAN_CONTAIN_ONLY_ONE_PUBLIC_VISIBILITY_SECTION=Nested records can
|
||||||
NESTED_RECORD_CANNOT_CONTAIN_SEVERAL_VISIBILITY_SECTIONS=Nested records can not contain several visibility section
|
NESTED_RECORD_CANNOT_CONTAIN_SEVERAL_VISIBILITY_SECTIONS=Nested records can not contain several visibility section
|
||||||
UNNAMED_RECORD_CANNOT_CATCH_NAMES_FROM_NONGLOBAL_CONTEXT=Nested records cannot catch names from nonglobal context
|
UNNAMED_RECORD_CANNOT_CATCH_NAMES_FROM_NONGLOBAL_CONTEXT=Nested records cannot catch names from nonglobal context
|
||||||
TOO_MANY_ELEMENTS_ON_LEFT_SIDE_OF_TUPLE_ASSIGNMENT=Too many elements on the left side of tuple assignment
|
TOO_MANY_ELEMENTS_ON_LEFT_SIDE_OF_TUPLE_ASSIGNMENT=Too many elements on the left side of tuple assignment
|
||||||
NESTED_LAMBDAS_MAXIMUM_10=Maximum number of nested lambdas = 10
|
NESTED_LAMBDAS_MAXIMUM_10=Maximum number of nested lambdas = 10
|
||||||
|
EMBEDDED_STATEMENT_CANNOT_BE_A_DECLARATION=Embedded statement cannot be a declaration or labeled statement
|
||||||
|
|
@ -40,4 +40,5 @@ NESTED_RECORD_CAN_CONTAIN_ONLY_ONE_PUBLIC_VISIBILITY_SECTION=Вложенные
|
||||||
NESTED_RECORD_CANNOT_CONTAIN_SEVERAL_VISIBILITY_SECTIONS=Вложенные записи не могут содержать несколько секций видимости
|
NESTED_RECORD_CANNOT_CONTAIN_SEVERAL_VISIBILITY_SECTIONS=Вложенные записи не могут содержать несколько секций видимости
|
||||||
NESTED_RECORD_CANNOT_CATCH_NAMES_FROM_NONGLOBAL_CONTEXT=Вложенные записи не могут захватывать имена из неглобального контекста
|
NESTED_RECORD_CANNOT_CATCH_NAMES_FROM_NONGLOBAL_CONTEXT=Вложенные записи не могут захватывать имена из неглобального контекста
|
||||||
TOO_MANY_ELEMENTS_ON_LEFT_SIDE_OF_TUPLE_ASSIGNMENT=Слишком много элементов в левой части при присваивании кортежа
|
TOO_MANY_ELEMENTS_ON_LEFT_SIDE_OF_TUPLE_ASSIGNMENT=Слишком много элементов в левой части при присваивании кортежа
|
||||||
NESTED_LAMBDAS_MAXIMUM_10=Максимальный уровень вложенности лямбд равен 10
|
NESTED_LAMBDAS_MAXIMUM_10=Максимальный уровень вложенности лямбд равен 10
|
||||||
|
EMBEDDED_STATEMENT_CANNOT_BE_A_DECLARATION=Вложенная инструкция не может быть объявлением, используйте операторные скобки
|
||||||
|
|
@ -12,6 +12,7 @@ FUNCTIONS_WITH_YIELDS_CANNOT_CONTAIN_NESTED_SUBROUTINES=Функції з yield
|
||||||
FUNCTIONS_WITH_YIELDS_CANNOT_CONTAIN_LOCAL_TYPE_DEFINITIONS=Функції з yield не можуть містити локальні визначення типів
|
FUNCTIONS_WITH_YIELDS_CANNOT_CONTAIN_LOCAL_TYPE_DEFINITIONS=Функції з yield не можуть містити локальні визначення типів
|
||||||
YIELDS_INSIDE_WITH_ARE_ILLEGAL=Оператор yield заборонений всередині with
|
YIELDS_INSIDE_WITH_ARE_ILLEGAL=Оператор yield заборонений всередині with
|
||||||
LAMBDA_EXPRESSIONS_CANNOT_CONTAIN_YIELD=Лямбда-вирази не можуть містити yield
|
LAMBDA_EXPRESSIONS_CANNOT_CONTAIN_YIELD=Лямбда-вирази не можуть містити yield
|
||||||
|
EMBEDDED_STATEMENT_CANNOT_BE_A_DECLARATION=Вложенная инструкция не может быть объявлением, используйте операторные скобки
|
||||||
|
|
||||||
Var_{0}_is_already_defined=Змінна {0} уже визначена
|
Var_{0}_is_already_defined=Змінна {0} уже визначена
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue