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

fix #2027

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2019-07-02 23:04:50 +03:00
parent 03d0f5486b
commit 2575d8a335
2 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
TestSuite/lambda_static_meth_def_outof_class.pas Normal file
View file

@ -0,0 +1,14 @@
type A = class
static function X := 1;
static procedure p;
end;
static procedure A.p;
begin
var s := X;
ArrGen(10,i->i);
end;
begin
end.

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

@ -286,7 +286,7 @@ namespace TreeConverter.LambdaExpressions.Closure
else id1 = new ident(cname.name, cname.source_context); else id1 = new ident(cname.name, cname.source_context);
dot_node dn = new dot_node(id1, new ident(id.name, id.source_context), id.source_context); dot_node dn = new dot_node(id1, new ident(id.name, id.source_context), id.source_context);
id.Parent.ReplaceDescendantUnsafe(id, dn); id.Parent.ReplaceDescendantUnsafe(id, dn);
ProcessNode(id.Parent); ProcessNode(dn);
return; return;
} }
} }