diff options
Diffstat (limited to 'src/grt/grt-rtis_addr.adb')
| -rw-r--r-- | src/grt/grt-rtis_addr.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/grt/grt-rtis_addr.adb b/src/grt/grt-rtis_addr.adb index 7be70eb02..4881a5abd 100644 --- a/src/grt/grt-rtis_addr.adb +++ b/src/grt/grt-rtis_addr.adb @@ -278,6 +278,11 @@ package body Grt.Rtis_Addr is end case; end Extract_Range; + function Array_Layout_To_Bounds (Layout : Address) return Address is + begin + return Layout + Ghdl_Index_Type'(Ghdl_Indexes_Type'Size / 8); + end Array_Layout_To_Bounds; + procedure Bound_To_Range (Bounds_Addr : Address; Def : Ghdl_Rtin_Type_Array_Acc; Res : out Ghdl_Range_Array) |