From 5d61676973add240db798b79302add98b10b1375 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 11 Jan 2018 06:38:23 +0100 Subject: Rework array/record type mode to improve support of constrained records. --- src/vhdl/translate/trans-foreach_non_composite.adb | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'src/vhdl/translate/trans-foreach_non_composite.adb') diff --git a/src/vhdl/translate/trans-foreach_non_composite.adb b/src/vhdl/translate/trans-foreach_non_composite.adb index 1c203f68f..bbb595195 100644 --- a/src/vhdl/translate/trans-foreach_non_composite.adb +++ b/src/vhdl/translate/trans-foreach_non_composite.adb @@ -31,8 +31,7 @@ begin case Type_Info.Type_Mode is when Type_Mode_Scalar => Do_Non_Composite (Targ, Targ_Type, Data); - when Type_Mode_Unbounded_Array - | Type_Mode_Array => + when Type_Mode_Arrays => declare El_Type : constant Iir := Get_Element_Subtype (Targ_Type); Var_El : Mnode; @@ -81,8 +80,7 @@ begin Finish_Data_Array (Composite_Data); Close_Temp; end; - when Type_Mode_Record - | Type_Mode_Unbounded_Record => + when Type_Mode_Records => declare List : constant Iir_Flist := Get_Elements_Declaration_List (Targ_Type); -- cgit v1.2.3