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

bug fix #714

Browse source
This commit is contained in:
Бондарев Иван 2018-03-11 18:08:25 +01:00
parent d471e79465
commit 4f417eaefd
2 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
TestSuite/lambda_exit.pas Normal file
View file

@ -0,0 +1,11 @@
begin
var i := 0;
var p: procedure := procedure ->
begin
i := 1;
exit;
i := 2;
end;
p;
assert(i = 1);
end.

3
TreeConverter/LambdaExpressions/Closure/CapturedVariablesTreeBuilder.cs
View file

@ -165,7 +165,8 @@ namespace TreeConverter.LambdaExpressions.Closure
var acceptableVarType = si.sym_info.semantic_node_type == semantic_node_type.local_variable || var acceptableVarType = si.sym_info.semantic_node_type == semantic_node_type.local_variable ||
si.sym_info.semantic_node_type == semantic_node_type.local_block_variable || si.sym_info.semantic_node_type == semantic_node_type.local_block_variable ||
si.sym_info.semantic_node_type == semantic_node_type.common_parameter || si.sym_info.semantic_node_type == semantic_node_type.common_parameter ||
si.sym_info.semantic_node_type == semantic_node_type.class_field; si.sym_info.semantic_node_type == semantic_node_type.class_field ||
si.sym_info.semantic_node_type == semantic_node_type.basic_function_node && idName == "exit";
if (!(acceptableVarType) && InLambdaContext) if (!(acceptableVarType) && InLambdaContext)
{ {