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

* set the flag that the symtable contains a generic at the end of the corresponding block of types_dec() to ensure that the owner is assigned correctly

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-02-05 20:45:34 +01:00
parent 6299e94c8f
commit ff0b560fe4
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pdecl.pas
View File

@ -886,9 +886,6 @@ implementation
{ update the definition of the type }
if assigned(hdef) then
begin
if df_generic in hdef.defoptions then
{ flag parent symtables that they now contain a generic }
hdef.owner.includeoption(sto_has_generic);
if assigned(hdef.typesym) then
begin
istyperenaming:=true;
@ -1154,6 +1151,10 @@ implementation
attributes to this def }
if not istyperenaming or isunique then
trtti_attribute_list.bind(rtti_attrs_def,tstoreddef(hdef).rtti_attribute_list);
if df_generic in hdef.defoptions then
{ flag parent symtables that they now contain a generic }
hdef.owner.includeoption(sto_has_generic);
end;
if isgeneric and (not(hdef.typ in [objectdef,recorddef,arraydef,procvardef])