paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 00:06:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

pdecsub.pas, parse_proc_head:

Browse Source 
* register the type parameter symbols and their defs once we really keep them

git-svn-id: trunk@32436 -
This commit is contained in:
svenbarth 2015-11-21 15:41:51 +00:00
parent b9ca24d4df
commit 2eeb59591a
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/pdecsub.pas
View File

@ -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;