diff options
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; |