From 2eeb59591aecf9ee2a958e5aba2635b94f1ab3ce Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Sat, 21 Nov 2015 15:41:51 +0000
Subject: [PATCH] pdecsub.pas, parse_proc_head:   * register the type parameter
 symbols and their defs once we really keep them

git-svn-id: trunk@32436 -
---
 compiler/pdecsub.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/compiler/pdecsub.pas b/compiler/pdecsub.pas
index cb41f8bf2a..a8e931e9a8 100644
--- a/compiler/pdecsub.pas
+++ b/compiler/pdecsub.pas
@@ -1078,6 +1078,12 @@ implementation
             { push the parameter symtable so that constraint definitions are added
               there and not in the owner symtable }
             symtablestack.push(pd.parast);
+            { register the parameters }
+            for i:=0 to genericparams.count-1 do
+              begin
+                 ttypesym(genericparams[i]).register_sym;
+                 tstoreddef(ttypesym(genericparams[i]).typedef).register_def;
+              end;
             insert_generic_parameter_types(pd,nil,genericparams);
             symtablestack.pop(pd.parast);
             freegenericparams:=false;