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

fix pascalabcnet/pascalabcnetide#64

Browse source
This commit is contained in:
Бондарев Иван 2019-12-27 11:51:57 +01:00
parent 1bc89d8ffc
commit 0c97ac63fa
2 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
CodeCompletion/SymTable.cs
View file

@ -6589,7 +6589,11 @@ namespace CodeCompletion
List<PascalABCCompiler.TreeConverter.SymbolInfo> sil = PascalABCCompiler.NetHelper.NetHelper.FindNameIncludeProtected(ctn, name);
//IEnumerable<MemberInfo> ext_meths = PascalABCCompiler.NetHelper.NetHelper.GetExtensionMethods(ctn);
List<ProcScope> pascal_ext_meths = this.GetExtensionMethods(name, this);
if (sil != null && sil.Count > 1 && sil.FirstOrDefault().sym_info.semantic_node_type == semantic_node_type.basic_property_node)
{
sil.Add(sil.FirstOrDefault());
sil.RemoveAt(0);
}
if (sil == null && names.Count == 0)
{
if (string.Compare(name, "Create", true) == 0 && this.ctn != typeof(object))

5
TestSuite/intellisense_tests/extensionmethods11.pas Normal file
View file

@ -0,0 +1,5 @@
begin
var l := Lst(1,2,3,4);
l.Count{@(расширение sequence of T) function Count<integer>(predicate: integer->boolean): integer;@}(i->i>2).Print;
writeln(l.Count{@property List<>.Count: integer; virtual; readonly;@});
end.