diff options
| -rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index faba5082a..b6acc18c5 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -1929,15 +1929,15 @@ package body Trans.Chap3 is -- Type is being completed. Complete_Info := Info; Clear_Info (Def); - Info := Add_Info (Def, Kind_Type); when others => raise Internal_Error; end case; else Complete_Info := null; - Info := Add_Info (Def, Kind_Type); end if; + Info := Add_Info (Def, Kind_Type); + Base_Type := Get_Base_Type (Def); Base_Info := Get_Info (Base_Type); |