bug fix #2104
This commit is contained in:
parent
dac1a87ff7
commit
9155cc7921
|
|
@ -6741,6 +6741,9 @@ namespace PascalABCCompiler.NETGenerator
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
TypeInfo ti = helper.GetTypeReference(value.return_value_type);
|
TypeInfo ti = helper.GetTypeReference(value.return_value_type);
|
||||||
|
if (ti == null && value.return_value_type.name == null)//not used lambda, ignore
|
||||||
|
ret_type = TypeFactory.VoidType;
|
||||||
|
else
|
||||||
ret_type = ti.tp;
|
ret_type = ti.tp;
|
||||||
if (IsNeedCorrectGetType(cur_ti, ret_type))
|
if (IsNeedCorrectGetType(cur_ti, ret_type))
|
||||||
{
|
{
|
||||||
|
|
|
||||||
12
TestSuite/lambda_delegate.pas
Normal file
12
TestSuite/lambda_delegate.pas
Normal file
|
|
@ -0,0 +1,12 @@
|
||||||
|
procedure p0(l: System.Delegate) := l.DynamicInvoke();
|
||||||
|
|
||||||
|
begin
|
||||||
|
var i := 0;
|
||||||
|
p0(()->
|
||||||
|
begin
|
||||||
|
i := 2;
|
||||||
|
Result := true;
|
||||||
|
|
||||||
|
end);
|
||||||
|
assert(i = 2);
|
||||||
|
end.
|
||||||
Loading…
Reference in a new issue