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

#2135

Browse source
This commit is contained in:
Ivan Bondarev 2021-01-06 12:37:03 +01:00
parent c3da960cbf
commit 5f647d029c
3 changed files with 20 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
TestSuite/errors/err0395.pas Normal file
View file

@ -0,0 +1,11 @@
type
t1 = class
static procedure operator+=(a: t1; d: System.Action) := exit;
end;
begin
var a := new t1;
a *= ()->Writeln(1);
end.

8
TestSuite/errors/err0396.pas Normal file
View file

@ -0,0 +1,8 @@
type TProc = procedure;
var i: integer;
begin
var l := new List<integer>;
l += ()->Inc(i);
end.

2
TreeConverter/TreeConversion/LambdaHelper.cs
View file

@ -275,7 +275,7 @@ namespace PascalABCCompiler.TreeConverter
if (op != Operators.Undefined)
{
var sil = leftType.find_in_type(name_reflector.get_name(op));
if (sil.Count > 0)
if (sil != null && sil.Count > 0)
{
foreach (SymbolInfo si in sil)
{