From 3f1d627106ca2dd3097375c61739b5c92df23a22 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 18 Jan 2021 19:19:23 +0100
Subject: trans-chap5: use value mode to get object bounds.  Fix #1612

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

(limited to 'src/vhdl/translate')

diff --git a/src/vhdl/translate/trans-chap5.adb b/src/vhdl/translate/trans-chap5.adb
index b91d6a21c..b53896033 100644
--- a/src/vhdl/translate/trans-chap5.adb
+++ b/src/vhdl/translate/trans-chap5.adb
@@ -582,7 +582,7 @@ package body Trans.Chap5 is
             --  Actual type is unconstrained, but as this is an object reads
             --  bounds from the object.
             return Chap3.Get_Composite_Bounds
-              (Chap6.Translate_Name (Actual, Mode_Signal));
+              (Chap6.Translate_Name (Actual, Mode_Value));
          end if;
       end Get_Actual_Bounds;
 
-- 
cgit v1.2.3