From 51178dc5ff0d4a4fde04051b3c6c6705219499a6 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 8 Dec 2018 07:12:41 +0100
Subject: sem_expr: fix ast ownership for type in record aggregate.

---
 src/vhdl/sem_expr.adb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

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;
 
-- 
cgit v1.2.3