diff options
Diffstat (limited to 'src/grt/grt-rtis_addr.ads')
| -rw-r--r-- | src/grt/grt-rtis_addr.ads | 4 |
1 files changed, 4 insertions, 0 deletions
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; |