diff options
Diffstat (limited to 'src/vhdl/translate/trans-foreach_non_composite.adb')
| -rw-r--r-- | src/vhdl/translate/trans-foreach_non_composite.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-foreach_non_composite.adb b/src/vhdl/translate/trans-foreach_non_composite.adb index 91e90fb5e..3ae044eeb 100644 --- a/src/vhdl/translate/trans-foreach_non_composite.adb +++ b/src/vhdl/translate/trans-foreach_non_composite.adb @@ -31,7 +31,7 @@ begin case Type_Info.Type_Mode is when Type_Mode_Scalar => Do_Non_Composite (Targ, Targ_Type, Data); - when Type_Mode_Fat_Array + when Type_Mode_Unbounded_Array | Type_Mode_Array => declare Var_Array : Mnode; @@ -76,7 +76,8 @@ begin Finish_Data_Array (Composite_Data); Close_Temp; end; - when Type_Mode_Record => + when Type_Mode_Record + | Type_Mode_Unbounded_Record => declare Var_Record : Mnode; Sub_Data : Data_Type; |