diff options
Diffstat (limited to 'src/vhdl/translate/trans-chap3.ads')
| -rw-r--r-- | src/vhdl/translate/trans-chap3.ads | 6 |
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); |