diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-06-07 06:02:42 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-06-07 06:02:42 +0200 |
| commit | c9bab05d5af5da3e42af6f08b0a8000391ce0766 (patch) | |
| tree | 7792b1213143ea0020a998770d947980c221ef54 /src/grt/grt-rtis_addr.ads | |
| parent | 2cf1465a532c8f089215193a5f9f189f5684eaf0 (diff) | |
| download | ghdl-c9bab05d5af5da3e42af6f08b0a8000391ce0766.tar.gz ghdl-c9bab05d5af5da3e42af6f08b0a8000391ce0766.tar.bz2 ghdl-c9bab05d5af5da3e42af6f08b0a8000391ce0766.zip | |
grt-vpi: improve support of arrays
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; |