diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-08-09 05:51:14 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-08-10 05:23:51 +0200 |
commit | 992a52089e39c5975748ca364971ed61d974a168 (patch) | |
tree | a0bef887267453bca6ef046911be6e95b15045ec /src/vhdl/vhdl-utils.ads | |
parent | 30554b32a7d205feaed5e0658770f137672a1eb6 (diff) | |
download | ghdl-992a52089e39c5975748ca364971ed61d974a168.tar.gz ghdl-992a52089e39c5975748ca364971ed61d974a168.tar.bz2 ghdl-992a52089e39c5975748ca364971ed61d974a168.zip |
vhdl: handle subtype indication (with range) in discrete_range.
For #877
Diffstat (limited to 'src/vhdl/vhdl-utils.ads')
-rw-r--r-- | src/vhdl/vhdl-utils.ads | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-utils.ads b/src/vhdl/vhdl-utils.ads index e80135f04..af4bc65d1 100644 --- a/src/vhdl/vhdl-utils.ads +++ b/src/vhdl/vhdl-utils.ads @@ -310,6 +310,9 @@ package Vhdl.Utils is -- Return TRUE iff unanalyzed EXPR is a range attribute. function Is_Range_Attribute_Name (Expr : Iir) return Boolean; + -- Return range_expression or a range attribute from discrete range RNG. + function Get_Range_From_Discrete_Range (Rng : Iir) return Iir; + -- Create an array subtype from array_type or array_subtype ARR_TYPE. -- All fields of the returned node are filled, except the index_list. -- The type_staticness is set with the type staticness of the element |