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

bug fix #2113

Browse source
This commit is contained in:
Бондарев Иван 2019-10-03 11:35:58 +02:00
parent 0e51f776f1
commit 7f998cd371
3 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
TestSuite/lambdas_pointers.pas Normal file
View file

@ -0,0 +1,6 @@
begin
var i: integer;
var p: procedure(ptr: pointer);
p := ptr->begin assert(@i = pinteger(ptr)) end;
p(@i);
end.

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

@ -195,6 +195,7 @@ namespace TreeConverter.LambdaExpressions.Closure
si.sym_info.semantic_node_type == semantic_node_type.common_namespace_node || si.sym_info.semantic_node_type == semantic_node_type.common_namespace_node ||
si.sym_info.semantic_node_type == semantic_node_type.compiled_unit_node || si.sym_info.semantic_node_type == semantic_node_type.compiled_unit_node ||
si.sym_info.semantic_node_type == semantic_node_type.template_type || si.sym_info.semantic_node_type == semantic_node_type.template_type ||
si.sym_info.semantic_node_type == semantic_node_type.ref_type_node ||
si.sym_info.semantic_node_type == semantic_node_type.generic_indicator || 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.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.function_constant_definition || // SSM 03.11.18 bug fix #1449

2
TreeConverter/TreeConversion/CompilationErrors.cs
View file

@ -2936,7 +2936,7 @@ namespace PascalABCCompiler.TreeConverter
public ThisTypeOfVariablesCannotBeCaptured(location loc) public ThisTypeOfVariablesCannotBeCaptured(location loc)
: base(loc) : base(loc)
{ {
} }
public override string ToString() public override string ToString()