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

fix #1024

Browse source
This commit is contained in:
Бондарев Иван 2018-08-06 10:10:58 +02:00
parent 08542175da
commit 5276f920aa
2 changed files with 35 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
CodeCompletion/DomSyntaxTreeVisitor.cs
View file

@ -1230,10 +1230,9 @@ namespace CodeCompletion
ss = (cur_scope as ImplementationUnitScope).topScope.FindNameOnlyInThisType(meth_name);
if (ss != null && ss is ProcScope)
{
//ps = ss as ProcScope;
//while ((ss as ProcScope).already_defined && (ss as ProcScope).nextProc != null)
// ss = (ss as ProcScope).nextProc;
ps = select_function_definition(ss as ProcScope, _procedure_header.parameters, null, null);
if (ps == null && _procedure_header.parameters == null)
ps = ss as ProcScope;
if (ps == null)
{
ps = new ProcScope(meth_name, cur_scope);
@ -1556,6 +1555,8 @@ namespace CodeCompletion
//while ((ss as ProcScope).already_defined && (ss as ProcScope).nextProc != null) ss = (ss as ProcScope).nextProc;
//ps = ss as ProcScope;
ps = select_function_definition(ss as ProcScope, _function_header.parameters, return_type, null, true);
if (ps == null && _function_header.parameters == null && _function_header.return_type == null)
ps = ss as ProcScope;
if (ps == null)
{
ps = new ProcScope(meth_name, cur_scope);

31
TestSuite/intellisense_tests/procimplunit.pas Normal file
View file

@ -0,0 +1,31 @@
unit procimplunit;
interface
procedure p0;
procedure p1(b: byte);
function f1(i: integer): integer;
function f2(i: integer): integer;
implementation
procedure p0 := exit;
procedure p1{@procedure procimplunit.p1(b: byte);@};
begin
end;
function f1{@function procimplunit.f1(i: integer): integer;@};
begin
end;
function f2{@function procimplunit.f2(i: integer): integer;@}(i: integer): integer;
begin
end;
end.