aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl/translate
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2021-01-18 19:19:23 +0100
committerTristan Gingold <tgingold@free.fr>2021-01-19 07:40:56 +0100
commit3f1d627106ca2dd3097375c61739b5c92df23a22 (patch)
treec5944047f921aead7b6d01e75396980d5ee5d49f /src/vhdl/translate
parent181943dc7378a8899353ed4b885ab5f290004677 (diff)
downloadghdl-3f1d627106ca2dd3097375c61739b5c92df23a22.tar.gz
ghdl-3f1d627106ca2dd3097375c61739b5c92df23a22.tar.bz2
ghdl-3f1d627106ca2dd3097375c61739b5c92df23a22.zip
trans-chap5: use value mode to get object bounds. Fix #1612
Diffstat (limited to 'src/vhdl/translate')
-rw-r--r--src/vhdl/translate/trans-chap5.adb2
1 files changed, 1 insertions, 1 deletions
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;