diff options
Diffstat (limited to 'src/vhdl/translate/trans.adb')
| -rw-r--r-- | src/vhdl/translate/trans.adb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans.adb b/src/vhdl/translate/trans.adb index fae8dd137..b9455965d 100644 --- a/src/vhdl/translate/trans.adb +++ b/src/vhdl/translate/trans.adb @@ -2144,6 +2144,13 @@ package body Trans is return Create_Temp_Init (Atype, New_Address (Name, Atype)); end Create_Temp_Ptr; + function Create_Temp_Bounds (Tinfo : Type_Info_Acc) return Mnode is + begin + return Dv2M (Create_Temp (Tinfo.B.Bounds_Type), + Tinfo, Mode_Value, + Tinfo.B.Bounds_Type, Tinfo.B.Bounds_Ptr_Type); + end Create_Temp_Bounds; + -- Return a ghdl_index_type literal for NUM. function New_Index_Lit (Num : Unsigned_64) return O_Cnode is begin |