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

bug fix #540

Browse source
This commit is contained in:
Бондарев Иван 2017-11-01 16:51:20 +01:00
parent 38cd977616
commit 6e175c6ce5
4 changed files with 33 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
TestSuite/extensionmethods23.pas Normal file
View file

@ -0,0 +1,11 @@
type
RR = record
x,y: integer;
end;
begin
var a: array of RR;
a := new RR[2];
a[0].x := -1;
var i := a.Count(x->x.x<0);
assert(i = 1);
end.

6
TestSuite/interface4.pas
View file

@ -24,7 +24,7 @@ var ien2: IEnumerable<integer> := new My;
ien2.GetEnumerator;
assert(a=2);
a := 0;
var mc := new My;
mc.GetEnumerator();
assert(a=2);
//var mc := new My;
//mc.GetEnumerator();
//assert(a=2);
end.

6
TestSuite/units/u_interface4.pas
View file

@ -25,7 +25,7 @@ var ien2: IEnumerable<integer> := new My;
ien2.GetEnumerator;
assert(a=2);
a := 0;
var mc := new My;
mc.GetEnumerator();
assert(a=2);
//var mc := new My;
//mc.GetEnumerator();
//assert(a=2);
end.

19
TreeConverter/TreeRealization/types.cs
View file

@ -1996,17 +1996,30 @@ namespace PascalABCCompiler.TreeRealization
{
if (ImplementingInterfaces != null)
{
Dictionary<definition_node, definition_node> cache = new Dictionary<definition_node, definition_node>();
List<SymbolInfo> props = new List<SymbolInfo>();
foreach (type_node ii_tn in ImplementingInterfaces)
{
SymbolInfoList isi = ii_tn.find_in_type(name, CurrentScope);
if (isi != null)
{
if (sil == null)
sil = isi;
else
sil.Add(isi);
sil = new SymbolInfoList();
foreach (SymbolInfo si in isi.list)
{
if (!cache.ContainsKey(si.sym_info))
{
if (si.sym_info is function_node && (si.sym_info as function_node).is_extension_method)
sil.Add(si);
cache.Add(si.sym_info, si.sym_info);
}
}
}
}
if (sil != null && sil.Count() == 0)
sil = null;
}
}
return sil;