From d6421b108d0b428fa47ec2b9e89053faf0dc7d60 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 13 Sep 2021 21:58:19 +0200 Subject: trans-chap3: improve comment --- src/vhdl/translate/trans-chap3.adb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/vhdl/translate') diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index f09601066..e1bb61af6 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -1180,10 +1180,10 @@ package body Trans.Chap3 is if Info.Type_Locally_Constrained then Arr := Arr_Def; else - -- If the element has been constrained, there is no ortho array - -- with the constrained element. So use the base type as a fall - -- back (if the element cannot be constrained, it is the same as the - -- base type element). + -- When an element is constrained, no ortho array is created with + -- the constrained element (unless it is statically constrained). + -- So use the base type as a fall back (if the element cannot be + -- constrained, it is the same as the base type element). Arr := Get_Base_Type (Arr_Def); end if; return Get_Element_Subtype (Arr); -- cgit v1.2.3