diff options
Diffstat (limited to 'src/grt/grt-rtis_utils.ads')
-rw-r--r-- | src/grt/grt-rtis_utils.ads | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/grt/grt-rtis_utils.ads b/src/grt/grt-rtis_utils.ads index 71d9e963b..537f1bff8 100644 --- a/src/grt/grt-rtis_utils.ads +++ b/src/grt/grt-rtis_utils.ads @@ -70,10 +70,12 @@ package Grt.Rtis_Utils is Bounds : out Address); -- Get address of element EL for record at OBJ. - procedure Record_To_Element_Base (Obj : Address; - El : Ghdl_Rtin_Element_Acc; - Is_Sig : Boolean; - Addr : out Address); + procedure Record_To_Element (Obj : Address; + El : Ghdl_Rtin_Element_Acc; + Is_Sig : Boolean; + Rec_Layout : Address; + El_Addr : out Address; + El_Bounds : out Address); procedure Get_Value (Str : in out Vstring; Value : Value_Union; |