administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

update for fix #592

Browse source
This commit is contained in:
Бондарев Иван 2017-12-31 16:23:16 +01:00
parent be69b527b8
commit 4c51cbdae1
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
TreeConverter/TreeConversion/syntax_tree_visitor.cs
View file

@ -16670,10 +16670,11 @@ namespace PascalABCCompiler.TreeConverter
statement_node semantic_statement = convert_strong(syntax_statement);
if (semantic_statement != null)
{
if (stl.statements.Count > 0 && stl.statements[0] is basic_function_call)
if (stl.statements.Count > 0 && stl.statements[0] is basic_function_call && i == 2)
{
base_function_call bfc = stl.statements[0] as basic_function_call;
if (bfc.type != null && bfc.type.name.Contains("<>local_variables_class") && (semantic_statement is compiled_constructor_call || semantic_statement is common_constructor_call) )
if (bfc.type != null && bfc.type.name.Contains("<>local_variables_class") && (semantic_statement is compiled_constructor_call || semantic_statement is common_constructor_call)
&& !context.converted_func_stack.Empty && context.converted_func_stack.top() is common_method_node && (context.converted_func_stack.top() as common_method_node).is_constructor)
stl.statements.AddElementFirst(semantic_statement);
else
stl.statements.AddElement(semantic_statement);