diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-02-23 08:09:24 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-02-23 08:09:24 +0100 |
| commit | 5a61b36758ef3821b0d61183d37af576a420a14c (patch) | |
| tree | c46ac716a0ea3d84b4395cc9ab8ef9c81a6c4fa2 /src/vhdl/translate/trans-foreach_non_composite.adb | |
| parent | 39620f16799fe8aa80022322767ca9b5a2ad6089 (diff) | |
| download | ghdl-5a61b36758ef3821b0d61183d37af576a420a14c.tar.gz ghdl-5a61b36758ef3821b0d61183d37af576a420a14c.tar.bz2 ghdl-5a61b36758ef3821b0d61183d37af576a420a14c.zip | |
vhdl08: more on unbounded records (WIP)
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; |