diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-01-04 12:02:17 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-01-04 12:02:17 +0100 |
| commit | 316236ea3aef0eadc9bb7cd7c8b5b811ede87b0f (patch) | |
| tree | c09f9d42ed5c51eb6cf30d8c3eb08fc95a5e4baa /src/vhdl | |
| parent | 0d3facf9c5774d12925d6bef2655e28a53520598 (diff) | |
| download | ghdl-316236ea3aef0eadc9bb7cd7c8b5b811ede87b0f.tar.gz ghdl-316236ea3aef0eadc9bb7cd7c8b5b811ede87b0f.tar.bz2 ghdl-316236ea3aef0eadc9bb7cd7c8b5b811ede87b0f.zip | |
trans-chap3: remove useless element translation.
Diffstat (limited to 'src/vhdl')
| -rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index 14e4955fa..63d32f3f9 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -786,12 +786,8 @@ package body Trans.Chap3 is Info : Type_Info_Acc) is El_Type : constant Iir := Get_Element_Subtype (Def); - El_Tinfo : Type_Info_Acc; + El_Tinfo : constant Type_Info_Acc := Get_Info (El_Type); begin - -- Be sure the element type is translated. - Translate_Type_Definition (El_Type, True); - El_Tinfo := Get_Info (El_Type); - if Is_Complex_Type (El_Tinfo) then if El_Tinfo.Type_Mode = Type_Mode_Array then Info.B.Base_Type := El_Tinfo.B.Base_Ptr_Type; |