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/translate/trans-chap5.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/translate/trans-chap5.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap5.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap5.adb b/src/vhdl/translate/trans-chap5.adb index 20d4a3a19..9a596ecde 100644 --- a/src/vhdl/translate/trans-chap5.adb +++ b/src/vhdl/translate/trans-chap5.adb @@ -72,7 +72,7 @@ package body Trans.Chap5 is Push_Identifier_Prefix_Uniq (Mark); if Is_Anonymous_Type_Definition (Spec_Type) then Push_Identifier_Prefix (Mark2, "OT"); - Chap3.Translate_Subtype_Definition (Spec_Type, Get_Type (Attr), True); + Chap3.Translate_Subtype_Definition (Spec_Type, True); Pop_Identifier_Prefix (Mark2); end if; |