From ec6d28ff5cf9f2b03281cbf252b21eb0e64f5c5f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=D0=91=D0=BE=D0=BD=D0=B4=D0=B0=D1=80=D0=B5=D0=B2=20=D0=98?=
 =?UTF-8?q?=D0=B2=D0=B0=D0=BD?= <ibond84@googlemail.com>
Date: Sun, 8 Sep 2019 11:57:18 +0200
Subject: [PATCH] fix pascalabcnet/pascalabcnetide#144

---
 CodeCompletion/DomSyntaxTreeVisitor.cs      | 2 ++
 TestSuite/intellisense_tests/generics18.pas | 7 +++++++
 2 files changed, 9 insertions(+)
 create mode 100644 TestSuite/intellisense_tests/generics18.pas

diff --git a/CodeCompletion/DomSyntaxTreeVisitor.cs b/CodeCompletion/DomSyntaxTreeVisitor.cs
index 49047778d..cb943d479 100644
--- a/CodeCompletion/DomSyntaxTreeVisitor.cs
+++ b/CodeCompletion/DomSyntaxTreeVisitor.cs
@@ -5247,6 +5247,8 @@ namespace CodeCompletion
                     td.visit(this);
                     if (returned_scope is TypeScope)
                         template_params.Add(returned_scope as TypeScope);
+                    else if (returned_scope is ProcScope)
+                        template_params.Add(new ProcType(returned_scope as ProcScope));
                     else
                     {
                         returned_scope = ts;
diff --git a/TestSuite/intellisense_tests/generics18.pas b/TestSuite/intellisense_tests/generics18.pas
new file mode 100644
index 000000000..fb8b1096a
--- /dev/null
+++ b/TestSuite/intellisense_tests/generics18.pas
@@ -0,0 +1,7 @@
+function f1<T> := default(T);
+function f2<T>: List<T> := nil;
+
+begin
+  var f{@var f: function(x: integer): integer;@} := f1&<function(x: integer): integer>;
+  var ff{@var ff: List<function(x: integer): integer>;@} := f2&<function(x: integer): integer>;
+end.
\ No newline at end of file