diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-07-22 06:57:46 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-07-22 22:23:00 +0200 |
commit | d8a81db96f512c0d58b554df294f4acb0915d6a9 (patch) | |
tree | 2d1bdd2f3ee9e225adda728e8a3c6eff54ffb78c /src/vhdl/vhdl-utils.ads | |
parent | 4b862ddc4d81ff8b60bbc78eeb26d4221bfd52d8 (diff) | |
download | ghdl-d8a81db96f512c0d58b554df294f4acb0915d6a9.tar.gz ghdl-d8a81db96f512c0d58b554df294f4acb0915d6a9.tar.bz2 ghdl-d8a81db96f512c0d58b554df294f4acb0915d6a9.zip |
vhdl: replace base_type with parent_type in nodes
Only for subtype definition and remove base_type in type definitions.
Allows to better track the addition of contraints.
Diffstat (limited to 'src/vhdl/vhdl-utils.ads')
-rw-r--r-- | src/vhdl/vhdl-utils.ads | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/vhdl/vhdl-utils.ads b/src/vhdl/vhdl-utils.ads index 6712aa0fa..5cbdc8c25 100644 --- a/src/vhdl/vhdl-utils.ads +++ b/src/vhdl/vhdl-utils.ads @@ -160,6 +160,10 @@ package Vhdl.Utils is -- Clear flag of TOP and all of its callees. procedure Clear_Seen_Flag (Top : Iir); + -- Return the base type of ATYPE. Will always return ATYPE if ATYPE is + -- a proper type (and not a subtype). + function Get_Base_Type (Atype : Iir) return Iir; + -- Return TRUE iff DEF is an anonymous type (or subtype) definition. -- Note: DEF is required to be a type (or subtype) definition. -- Note: type (and not subtype) are never anonymous. @@ -263,10 +267,6 @@ package Vhdl.Utils is -- Return the type or subtype definition of the SUBTYP type mark. function Get_Denoted_Type_Mark (Subtyp : Iir) return Iir; - -- Return the parent type, which is either the type of the type mark, or - -- the base type if SUBTYP has no type mark. - function Get_Parent_Type (Subtyp : Iir) return Iir; - -- From element declaration or element constraint EL, get the corresponding -- element declaration in the base record type. function Get_Base_Element_Declaration (El : Iir) return Iir; |