paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 17:47:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

* correctly set the generic related defoptions for an outlined procdef

Browse Source 
git-svn-id: trunk@45645 -
This commit is contained in:
svenbarth 2020-06-13 18:42:26 +00:00
parent c45c543faa
commit 4da6465d05
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/procdefutil.pas
View File

@ -65,6 +65,10 @@ implementation
symtablestack:=nil;
result:=cprocdef.create(max(normal_function_level,st.symtablelevel)+1,true);
result.returndef:=resultdef;
{ if the parent is a generic or a specialization, the new function is one
as well }
if st.symtabletype=localsymtable then
result.defoptions:=result.defoptions+(tstoreddef(st.defowner).defoptions*[df_generic,df_specialization]);
symtablestack:=oldsymtablestack;
st.insertdef(result);
result.struct:=astruct;