diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-05-29 13:48:03 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-05-29 13:48:03 +0200 |
| commit | b3530fbe93168d99c0409240d4a6e7cfaea4b728 (patch) | |
| tree | b0917dd4e1411ab416be9979850a1e505479f207 /sem_expr.adb | |
| parent | 066b95d502a24d30c7cec0fc203cae271f488ed0 (diff) | |
| download | ghdl-b3530fbe93168d99c0409240d4a6e7cfaea4b728.tar.gz ghdl-b3530fbe93168d99c0409240d4a6e7cfaea4b728.tar.bz2 ghdl-b3530fbe93168d99c0409240d4a6e7cfaea4b728.zip | |
Rework aggregate (when type of context is not static).
Diffstat (limited to 'sem_expr.adb')
| -rw-r--r-- | sem_expr.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/sem_expr.adb b/sem_expr.adb index aec8a83bc..0814355c3 100644 --- a/sem_expr.adb +++ b/sem_expr.adb @@ -3335,8 +3335,6 @@ package body Sem_Expr is Set_Index_Constraint_Flag (A_Subtype, True); Set_Constraint_State (A_Subtype, Fully_Constrained); Set_Type (Aggr, A_Subtype); - else - Set_Type (Aggr, Base_Type); end if; Prev_Info := Null_Iir; @@ -3355,7 +3353,7 @@ package body Sem_Expr is Set_Aggr_Named_Flag (Info, Infos (I).Has_Named); Set_Aggr_Low_Limit (Info, Infos (I).Low); Set_Aggr_High_Limit (Info, Infos (I).High); - Set_Aggr_Max_Length (Info, Iir_Int32 (Infos (I).Min_Length)); + Set_Aggr_Min_Length (Info, Iir_Int32 (Infos (I).Min_Length)); Set_Aggr_Others_Flag (Info, Infos (I).Has_Others); end loop; return Aggr; |