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

fix #1449

Browse source
This commit is contained in:
miks1965 2018-11-03 11:34:51 +03:00
parent c7f77db426
commit fbd3aa98ac
2 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
TestSuite/lambdas_closures_15_const.pas Normal file
View file

@ -0,0 +1,15 @@
procedure p1;
const
c1 = ' ';
begin
var p: procedure := ()->
begin
var s := c1;
Assert(s=' ');
end;
p;
end;
begin
p1;
end.

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

@ -166,6 +166,7 @@ namespace TreeConverter.LambdaExpressions.Closure
si.sym_info.semantic_node_type == semantic_node_type.template_type ||
si.sym_info.semantic_node_type == semantic_node_type.generic_indicator ||
si.sym_info.semantic_node_type == semantic_node_type.class_constant_definition ||
si.sym_info.semantic_node_type == semantic_node_type.function_constant_definition || // SSM 03.11.18 bug fix #1449
si.sym_info.semantic_node_type == semantic_node_type.basic_function_node && (idName == "exit" || idName == "continue" || idName == "break"))
{
return;