diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-09-30 20:29:19 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-09-30 20:29:19 +0200 |
| commit | 51ec2af1a91f57a7315c528fae0e824d7965e5be (patch) | |
| tree | 7affd35e6502093813ed7bd82e75d72fbe109677 | |
| parent | 3736fa2cb834ae847e04a5e8ec424e323a76360d (diff) | |
| download | ghdl-51ec2af1a91f57a7315c528fae0e824d7965e5be.tar.gz ghdl-51ec2af1a91f57a7315c528fae0e824d7965e5be.tar.bz2 ghdl-51ec2af1a91f57a7315c528fae0e824d7965e5be.zip | |
Minor code factorization.
| -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); |