diff options
| -rw-r--r-- | src/vhdl/translate/trans-chap7.adb | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb index 51f97e8e7..c2b2e950f 100644 --- a/src/vhdl/translate/trans-chap7.adb +++ b/src/vhdl/translate/trans-chap7.adb @@ -980,18 +980,7 @@ package body Trans.Chap7 is end case; when Type_Mode_Bounded_Records => -- X to bounded - case Einfo.Type_Mode is - when Type_Mode_Unbounded_Record => - -- unbounded to bounded. - return Convert_To_Constrained - (Expr, Expr_Type, Res_Type, Loc); - when Type_Mode_Bounded_Records => - -- bounded to bounded. - -- TODO: likewise ? check bounds ? - return Expr; - when others => - raise Internal_Error; - end case; + return Convert_To_Constrained (Expr, Expr_Type, Res_Type, Loc); when others => raise Internal_Error; end case; |