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

fix #1100

Browse source
This commit is contained in:
Бондарев Иван 2018-08-26 19:09:20 +02:00
parent f4bd784cfe
commit c62884e67a
2 changed files with 18 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
CodeCompletion/DomSyntaxTreeVisitor.cs
View file

@ -4552,10 +4552,12 @@ namespace CodeCompletion
{
returned_scope = null;
td.visit(this);
if (returned_scope != null && returned_scope is TypeScope)
//instances.Add(ret_tn as TypeScope);
//ts.AddGenericInstanciation(ret_tn as TypeScope);
gen_args.Add(returned_scope as TypeScope);
if (returned_scope is TypeScope)
//instances.Add(ret_tn as TypeScope);
//ts.AddGenericInstanciation(ret_tn as TypeScope);
gen_args.Add(returned_scope as TypeScope);
else if (returned_scope is ProcScope)
gen_args.Add(new ProcType(returned_scope as ProcScope));
}
}

12
TestSuite/intellisense_tests/generics13.pas Normal file
View file

@ -0,0 +1,12 @@
type
TProcedure = procedure;
begin
var pa1: procedure; // procedure
var pa2{@var pa2: (procedure,procedure);@}: (procedure, procedure);
var pa3{@var pa3: (byte,procedure);@}: (byte, procedure);
var pb1: TProcedure; // TProcedure
var pb2{@var pb2: (TProcedure,TProcedure);@}: (TProcedure, TProcedure);
var pb3{@var pb3: (byte,TProcedure);@}: (byte, TProcedure);
end.