From 7186f0bd324c80a466384849f9b9033121d79a29 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 6 Jan 2020 07:48:49 +0100 Subject: vhdl/translate: handle implicit record-record conversions. --- src/vhdl/translate/trans-chap7.adb | 13 +------------ 1 file changed, 1 insertion(+), 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; -- cgit v1.2.3