diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-12-08 07:12:41 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-12-08 07:12:41 +0100 |
| commit | 51178dc5ff0d4a4fde04051b3c6c6705219499a6 (patch) | |
| tree | 5e198bdc25b57bb7c159dfcd2c78d356d222f997 | |
| parent | f7c7399476a4a7e4ddd630c2e37b8e68d6add965 (diff) | |
| download | ghdl-51178dc5ff0d4a4fde04051b3c6c6705219499a6.tar.gz ghdl-51178dc5ff0d4a4fde04051b3c6c6705219499a6.tar.bz2 ghdl-51178dc5ff0d4a4fde04051b3c6c6705219499a6.zip | |
sem_expr: fix ast ownership for type in record aggregate.
| -rw-r--r-- | src/vhdl/sem_expr.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb index 5e817ed9f..7009411c6 100644 --- a/src/vhdl/sem_expr.adb +++ b/src/vhdl/sem_expr.adb @@ -3196,6 +3196,7 @@ package body Sem_Expr is Set_Type_Staticness (Rec_Type, Staticness); Set_Constraint_State (Rec_Type, Constraint); Set_Type (Aggr, Rec_Type); + Set_Literal_Subtype (Aggr, Rec_Type); end; end if; |