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

fix pascalabcnet/pascalabcnetide#116

Browse source
This commit is contained in:
Бондарев Иван 2019-06-23 12:01:24 +02:00
parent f96378f7d2
commit a1160f993d
2 changed files with 22 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
CodeCompletion/SymTable.cs
View file

@ -933,7 +933,7 @@ namespace CodeCompletion
if (string.Compare(ss.si.name, name, !CodeCompletionController.CurrentParser.LanguageInformation.CaseSensitive) == 0) if (string.Compare(ss.si.name, name, !CodeCompletionController.CurrentParser.LanguageInformation.CaseSensitive) == 0)
if (ss.loc != null && loc != null && check_for_def && cur_line != -1 && cur_col != -1) if (ss.loc != null && loc != null && check_for_def && cur_line != -1 && cur_col != -1)
{ {
if (string.Compare(ss.loc.doc.file_name, loc.doc.file_name, true) == 0 && this != ss) if (string.Compare(ss.loc.doc.file_name, loc.doc.file_name, true) == 0 && this != ss && ss.topScope != this)
{ {
if (IsAfterDefinition(ss.loc.begin_line_num, ss.loc.begin_column_num)) if (IsAfterDefinition(ss.loc.begin_line_num, ss.loc.begin_column_num))
{ {

21
TestSuite/intellisense_tests/class4.pas Normal file
View file

@ -0,0 +1,21 @@
type
T = class
public constructor;
begin
p{@procedure T.p(a: integer);@}(0);
p2{@@}();
end;
public procedure p(a: integer);
begin
end;
end;
procedure p2;
begin
end;
begin
end.