aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl/translate/trans-chap3.ads
diff options
context:
space:
mode:
Diffstat (limited to 'src/vhdl/translate/trans-chap3.ads')
-rw-r--r--src/vhdl/translate/trans-chap3.ads6
1 files changed, 5 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap3.ads b/src/vhdl/translate/trans-chap3.ads
index 53bff13d2..ec0921b01 100644
--- a/src/vhdl/translate/trans-chap3.ads
+++ b/src/vhdl/translate/trans-chap3.ads
@@ -157,7 +157,7 @@ package Trans.Chap3 is
function Range_To_Left (R : Mnode) return Mnode;
function Range_To_Right (R : Mnode) return Mnode;
- -- Get range for dimension DIM (1 based) of array bounds B or type
+ -- Get range for dimension DIM (1 based) of array bounds B of type
-- ATYPE.
function Bounds_To_Range (B : Mnode; Atype : Iir; Dim : Positive)
return Mnode;
@@ -173,6 +173,10 @@ package Trans.Chap3 is
function Get_Bounds_Acc_Base
(Acc : O_Enode; D_Type : Iir) return O_Enode;
+ -- From an unbounded record bounds B, get the bounds for (unbounded)
+ -- element EL.
+ function Bounds_To_Element_Bounds (B : Mnode; El : Iir) return Mnode;
+
-- Deallocate OBJ.
procedure Gen_Deallocate (Obj : O_Enode);