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

* free the list containing the generic parameters as after calling insert_generic_parameter_types() it's no longer required (though this means that the condition handling generictypelist instead needs to be adjusted)

Browse Source 
git-svn-id: trunk@39561 -
This commit is contained in:
svenbarth 2018-08-03 20:24:19 +00:00
parent c1cfd87b56
commit 32db846289
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pdecsub.pas
View File

@ -1125,6 +1125,9 @@ implementation
tstoreddef(ttypesym(genericparams[i]).typedef).register_def;
end;
insert_generic_parameter_types(pd,nil,genericparams);
{ the list is no longer required }
genericparams.free;
genericparams:=nil;
symtablestack.pop(pd.parast);
freegenericparams:=false;
parse_generic:=true;
@ -1151,9 +1154,8 @@ implementation
{ start token recorder for the declaration }
pd.init_genericdecl;
current_scanner.startrecordtokens(pd.genericdecltokenbuf);
end;
if assigned(genericdef) and not assigned(genericparams) then
end
else if assigned(genericdef) then
insert_generic_parameter_types(pd,tstoreddef(genericdef),generictypelist);
{ methods inherit df_generic or df_specialization from the objectdef }