aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl/sem_expr.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/vhdl/sem_expr.adb')
-rw-r--r--src/vhdl/sem_expr.adb12
1 files changed, 4 insertions, 8 deletions
diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb
index be236cc05..9aca42f4b 100644
--- a/src/vhdl/sem_expr.adb
+++ b/src/vhdl/sem_expr.adb
@@ -3028,7 +3028,6 @@ package body Sem_Expr is
-- True if one sub-aggregate is by named/by position.
Has_Named : Boolean := False;
- Has_Positional : Boolean := False;
-- True if one sub-aggregate is dynamic.
Has_Dynamic : Boolean := False;
@@ -3338,9 +3337,6 @@ package body Sem_Expr is
Error_Kind ("sem_array_aggregate_type_1", Aggr);
end case;
- if Is_Positional = True then
- Info.Has_Positional := True;
- end if;
if Is_Positional = False then
Info.Has_Named := True;
end if;
@@ -3521,11 +3517,11 @@ package body Sem_Expr is
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).
- if Get_Kind (Aggr) /= Iir_Kind_Aggregate then
- -- Nothing to do for a string.
- return;
- else
+ if Get_Kind (Aggr) = Iir_Kind_Aggregate then
Sem_Array_Aggregate_Elements (Aggr, A_Type, Expr_Staticness, Info);
+ else
+ -- Nothing to do for a string.
+ null;
end if;
else
-- A sub-aggregate: recurse.