diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-06-13 18:57:15 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-06-13 18:57:15 +0200 |
commit | 71a81bae09057650e72802bc39f9ebe97b7e6bd8 (patch) | |
tree | b1631b7432f566d9ef2fff7458c961852bb0b006 /src/vhdl/translate/trans-chap7.adb | |
parent | cd2dacef9754e65e82ca30cdf33a031a39010d75 (diff) | |
download | ghdl-71a81bae09057650e72802bc39f9ebe97b7e6bd8.tar.gz ghdl-71a81bae09057650e72802bc39f9ebe97b7e6bd8.tar.bz2 ghdl-71a81bae09057650e72802bc39f9ebe97b7e6bd8.zip |
vhdl/translate: simplify some variable assignments. Fix #1361
When the expression is an aggregate of the form (others => X), do not use
intermediate variables.
Diffstat (limited to 'src/vhdl/translate/trans-chap7.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap7.adb | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb index 016132a29..91cf539f7 100644 --- a/src/vhdl/translate/trans-chap7.adb +++ b/src/vhdl/translate/trans-chap7.adb @@ -2818,14 +2818,8 @@ package body Trans.Chap7 is is Chain : Iir; Aggr1 : Iir; - --Type_Info : Type_Info_Acc; begin Aggr1 := Aggr; - -- Do not use translate_aggregate_others for a complex type. - --Type_Info := Get_Info (Get_Type (Aggr)); - --if Type_Info.C /= null and then Type_Info.C.Builder_Need_Func then - -- return Null_Iir; - --end if; loop Chain := Get_Association_Choices_Chain (Aggr1); if not Is_Chain_Length_One (Chain) then |