diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-07-25 11:41:02 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-07-25 11:41:02 +0200 |
commit | 4e82c7fb907c0d95a45414e246ddade84afe34e5 (patch) | |
tree | 1d8e79450751b1c792e7882c7fba1cee6ff1c1af /src/vhdl/vhdl-sem_types.adb | |
parent | 81502d5d023ea5fbd71970497af2b7168fdb41c7 (diff) | |
download | ghdl-4e82c7fb907c0d95a45414e246ddade84afe34e5.tar.gz ghdl-4e82c7fb907c0d95a45414e246ddade84afe34e5.tar.bz2 ghdl-4e82c7fb907c0d95a45414e246ddade84afe34e5.zip |
trans: propagate parent_type changes.
Diffstat (limited to 'src/vhdl/vhdl-sem_types.adb')
-rw-r--r-- | src/vhdl/vhdl-sem_types.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-sem_types.adb b/src/vhdl/vhdl-sem_types.adb index 10c84d41c..99c9646b5 100644 --- a/src/vhdl/vhdl-sem_types.adb +++ b/src/vhdl/vhdl-sem_types.adb @@ -1528,7 +1528,7 @@ package body Vhdl.Sem_Types is Error_Kind ("copy_subtype_indication", Def); end case; Location_Copy (Res, Def); - Set_Parent_Type (Res, Get_Base_Type (Def)); + Set_Parent_Type (Res, Def); Set_Type_Staticness (Res, Get_Type_Staticness (Def)); Set_Signal_Type_Flag (Res, Get_Signal_Type_Flag (Def)); return Res; |