diff options
Diffstat (limited to 'src/vhdl/sem_expr.adb')
| -rw-r--r-- | src/vhdl/sem_expr.adb | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb index 63cd7de6c..6b7624358 100644 --- a/src/vhdl/sem_expr.adb +++ b/src/vhdl/sem_expr.adb @@ -3338,7 +3338,12 @@ package body Sem_Expr is end if; -- Analyze aggregate elements. - Expr_Staticness := Locally; + if Constrained then + Expr_Staticness := Get_Type_Staticness (Index_Type); + else + Expr_Staticness := Locally; + end if; + if Dim = Get_Nbr_Elements (Index_List) then -- A type has been found for AGGR, analyze AGGR as if it was -- an aggregate with a subtype (and not a string). |