diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-09-22 13:51:46 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-09-22 13:51:46 +0200 |
| commit | 5fb9fbc5a3244ea45db141e59cdccb9a3e000fdc (patch) | |
| tree | a49f566bf5d4fa884982cbf5c2c77b374c3f1a70 /src/vhdl/translate/trans-chap7.adb | |
| parent | 2ee2550e1271f35e4ab7effb453252bcb7aa900f (diff) | |
| download | ghdl-5fb9fbc5a3244ea45db141e59cdccb9a3e000fdc.tar.gz ghdl-5fb9fbc5a3244ea45db141e59cdccb9a3e000fdc.tar.bz2 ghdl-5fb9fbc5a3244ea45db141e59cdccb9a3e000fdc.zip | |
Add Warnid_Static, detect incorrect use of others in aggregate.
Diffstat (limited to 'src/vhdl/translate/trans-chap7.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap7.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb index 2351f77bf..582b3be68 100644 --- a/src/vhdl/translate/trans-chap7.adb +++ b/src/vhdl/translate/trans-chap7.adb @@ -2929,6 +2929,8 @@ package body Trans.Chap7 is Expr_Type : Iir; Final : Boolean; + -- Assign EXPR to current position (defined by index VAR_INDEX), and + -- update VAR_INDEX. Handles sub-aggregates. procedure Do_Assign (Expr : Iir) is begin if Final then @@ -3013,8 +3015,8 @@ package body Trans.Chap7 is -- There is only one choice case Get_Kind (El) is when Iir_Kind_Choice_By_Others => - -- falltrough... - null; + -- Handled by positional. + raise Internal_Error; when Iir_Kind_Choice_By_Expression => Do_Assign (Get_Associated_Expr (El)); return; |