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

* when specializing a routine all nested specializations must go to the para- or localsymtable as otherwise the symbol can't be found to be registered

Browse Source 
git-svn-id: trunk@43568 -
This commit is contained in:
svenbarth 2019-11-24 00:04:31 +00:00
parent 6edf6cad2c
commit 1abc9c1fe7
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pgenutil.pas
View File

@ -862,7 +862,13 @@ uses
{ decide in which symtable to put the specialization } { decide in which symtable to put the specialization }
if parse_generic and not assigned(result) then if parse_generic and not assigned(result) then
begin begin
if assigned(current_procinfo) and (df_generic in current_procinfo.procdef.defoptions) then srsymtable:=symtablestack.top;
if (srsymtable.symtabletype in [localsymtable,parasymtable]) and tstoreddef(srsymtable.defowner).is_specialization then
{ if we are currently specializing a routine we need to specialize into
the routine's local- or parasymtable so that they are correctly
registered should the specialization be finalized }
specializest:=srsymtable
else if assigned(current_procinfo) and (df_generic in current_procinfo.procdef.defoptions) then
{ if we are parsing the definition of a method we specialize into { if we are parsing the definition of a method we specialize into
the local symtable of it } the local symtable of it }
specializest:=current_procinfo.procdef.getsymtable(gs_local) specializest:=current_procinfo.procdef.getsymtable(gs_local)