From 05507ab2016c069a195ad86be451b5b33c64df4c Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 7 Jul 2020 07:40:14 +0200
Subject: trans-chap8: add a stabilize.

---
 src/vhdl/translate/trans-chap8.adb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb
index acda82aff..7283b9bd0 100644
--- a/src/vhdl/translate/trans-chap8.adb
+++ b/src/vhdl/translate/trans-chap8.adb
@@ -977,6 +977,7 @@ package body Trans.Chap8 is
                         Sub_Aggr := Chap3.Slice_Base
                           (Chap3.Get_Composite_Base (Val),
                            Sub_Type, New_Obj_Value (Index));
+                        Stabilize (Sub_Aggr);
                      end if;
                      Translate_Variable_Aggregate_Assignment
                        (Expr, Sub_Type, Sub_Aggr);
-- 
cgit v1.2.3