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

bug fix #518

Browse source
This commit is contained in:
Бондарев Иван 2017-10-12 20:52:33 +02:00
parent c22e32b299
commit d0900679e3
3 changed files with 18 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
CodeCompletion/FindReferences.cs
View file

@ -70,7 +70,8 @@ namespace CodeCompletion
foreach (statement stmt in _statement_list.subnodes)
{
IBaseScope tmp2 = cur_scope;
cur_scope = cur_scope.FindScopeByLocation(stmt.source_context.begin_position.line_num, stmt.source_context.begin_position.column_num);
if (stmt.source_context != null)
cur_scope = cur_scope.FindScopeByLocation(stmt.source_context.begin_position.line_num, stmt.source_context.begin_position.column_num);
if (cur_scope == null)
cur_scope = tmp2;
stmt.visit(this);

5
CodeCompletion/SymTable.cs
View file

@ -1511,11 +1511,12 @@ namespace CodeCompletion
public override SymScope FindName(string name)
{
//SymScope sc = ht[name] as SymScope;
SymScope sc = def_proc.FindNameOnlyInType(name);
/*SymScope sc = def_proc.FindNameOnlyInType(name);
if (sc != null) return sc;
if (top_mod_scope != null)
return top_mod_scope.FindName(name);
return null;
return null;*/
return def_proc.FindName(name);
}
public override SymScope FindNameOnlyInType(string name)

13
TestSuite/intellisense_tests/class2.pas Normal file
View file

@ -0,0 +1,13 @@
type
t1=class
i:integer;
procedure p1;
end;
procedure t1.p1 := writeln(i{@var t1.i: integer;@});
begin
end.