diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-06-14 06:25:16 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-06-14 06:25:16 +0200 |
| commit | d755ff4c469b073e7ce3175cfa821920d5ffcada (patch) | |
| tree | aa17ec4972085a592461df5bde37dd0fea8aff56 /src/vhdl/translate | |
| parent | 293cb1951037633a6b2846f8244a5170d1b240c4 (diff) | |
| download | ghdl-d755ff4c469b073e7ce3175cfa821920d5ffcada.tar.gz ghdl-d755ff4c469b073e7ce3175cfa821920d5ffcada.tar.bz2 ghdl-d755ff4c469b073e7ce3175cfa821920d5ffcada.zip | |
Silent spurious warning.
Fix #360
Diffstat (limited to 'src/vhdl/translate')
| -rw-r--r-- | src/vhdl/translate/trans-chap9.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap9.adb b/src/vhdl/translate/trans-chap9.adb index bbad1754a..8f88ca0ee 100644 --- a/src/vhdl/translate/trans-chap9.adb +++ b/src/vhdl/translate/trans-chap9.adb @@ -1585,8 +1585,13 @@ package body Trans.Chap9 is (Sig_Node, Get_Type (Sig), Init_Node); else Sig_Node := Chap6.Translate_Name (Sig, Mode_Signal); + + -- At least GNAT GPL 2017 reports this warning: + -- 'others choices is redundant' + pragma Warnings (Off); Gen_Add_Port_Driver_Default (Sig_Node, Get_Type (Sig), (others => <>)); + pragma Warnings (On); end if; else Register_Signal (Chap6.Translate_Name (Sig, Mode_Signal), |