aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2020-01-06 07:48:49 +0100
committerTristan Gingold <tgingold@free.fr>2020-01-06 18:20:28 +0100
commit7186f0bd324c80a466384849f9b9033121d79a29 (patch)
tree5c54f166676735755ec235cbaee069a98caf80bd
parent2b876a4a4f3e27bbfa132bbbcb66966b8df307de (diff)
downloadghdl-7186f0bd324c80a466384849f9b9033121d79a29.tar.gz
ghdl-7186f0bd324c80a466384849f9b9033121d79a29.tar.bz2
ghdl-7186f0bd324c80a466384849f9b9033121d79a29.zip
vhdl/translate: handle implicit record-record conversions.
-rw-r--r--src/vhdl/translate/trans-chap7.adb13
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;