From c9bab05d5af5da3e42af6f08b0a8000391ce0766 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 7 Jun 2021 06:02:42 +0200 Subject: grt-vpi: improve support of arrays --- src/grt/grt-rtis_addr.ads | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/grt/grt-rtis_addr.ads') diff --git a/src/grt/grt-rtis_addr.ads b/src/grt/grt-rtis_addr.ads index b7c19bea9..1e275e21d 100644 --- a/src/grt/grt-rtis_addr.ads +++ b/src/grt/grt-rtis_addr.ads @@ -109,6 +109,10 @@ package Grt.Rtis_Addr is -- Get the base type of ATYPE. function Get_Base_Type (Atype : Ghdl_Rti_Access) return Ghdl_Rti_Access; + -- Likewise, but for an array type. + function Get_Base_Array_Type (Atype : Ghdl_Rti_Access) + return Ghdl_Rtin_Type_Array_Acc; + -- Return true iff ATYPE is anonymous. -- Valid only on type and subtype definitions. function Rti_Anonymous_Type (Atype : Ghdl_Rti_Access) return Boolean; -- cgit v1.2.3