diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-02-12 21:06:00 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-02-12 21:07:48 +0100 |
commit | 748a8a732b96a8940bb1461502d1f1eaec0e9576 (patch) | |
tree | f5ca5d3d953cb32ae88144cc59088e1bd0df707c /src/vhdl/translate/trans-chap6.adb | |
parent | fce8f87f735b5eadca4e6b85eefaecdb50159704 (diff) | |
download | ghdl-748a8a732b96a8940bb1461502d1f1eaec0e9576.tar.gz ghdl-748a8a732b96a8940bb1461502d1f1eaec0e9576.tar.bz2 ghdl-748a8a732b96a8940bb1461502d1f1eaec0e9576.zip |
vhdl08: unbounded records (WIP)
Diffstat (limited to 'src/vhdl/translate/trans-chap6.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap6.adb | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/src/vhdl/translate/trans-chap6.adb b/src/vhdl/translate/trans-chap6.adb index 5d6c87993..769b23bc4 100644 --- a/src/vhdl/translate/trans-chap6.adb +++ b/src/vhdl/translate/trans-chap6.adb @@ -31,16 +31,14 @@ with Trans_Decls; use Trans_Decls; package body Trans.Chap6 is use Trans.Helpers; - function Get_Array_Bound_Length (Arr : Mnode; - Arr_Type : Iir; - Dim : Natural) - return O_Enode + function Get_Array_Bound_Length + (Arr : Mnode; Arr_Type : Iir; Dim : Natural) return O_Enode is - Index_Type : constant Iir := Get_Index_Type (Arr_Type, Dim - 1); - Tinfo : constant Type_Info_Acc := Get_Info (Arr_Type); - Constraint : Iir; + Tinfo : constant Type_Info_Acc := Get_Info (Arr_Type); + Index_Type, Constraint : Iir; begin if Tinfo.Type_Locally_Constrained then + Index_Type := Get_Index_Type (Arr_Type, Dim - 1); Constraint := Get_Range_Constraint (Index_Type); return New_Lit (Chap7.Translate_Static_Range_Length (Constraint)); else |