diff options
Diffstat (limited to 'src/vhdl/iirs.ads')
| -rw-r--r-- | src/vhdl/iirs.ads | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/vhdl/iirs.ads b/src/vhdl/iirs.ads index 33ac760f0..babb410f1 100644 --- a/src/vhdl/iirs.ads +++ b/src/vhdl/iirs.ads @@ -561,6 +561,8 @@ package Iirs is -- -- Get/Set_Same_Alternative_Flag (Flag1) -- + -- Get/Set_Element_Type_Flag (Flag2) + -- -- Only for Iir_Kind_Choice_By_Range: -- Only for Iir_Kind_Choice_By_Expression: -- Get/Set_Choice_Staticness (State1) @@ -6159,6 +6161,12 @@ package Iirs is function Get_Same_Alternative_Flag (Target : Iir) return Boolean; procedure Set_Same_Alternative_Flag (Target : Iir; Val : Boolean); + -- For one-dimensional aggregates: the value associated of the type of the + -- element (vs of the type of the aggregate). Always true before vhdl-08. + -- Field: Flag2 + function Get_Element_Type_Flag (Target : Iir) return Boolean; + procedure Set_Element_Type_Flag (Target : Iir; Val : Boolean); + -- Field: Field3 function Get_Architecture (Target : Iir_Entity_Aspect_Entity) return Iir; procedure Set_Architecture (Target : Iir_Entity_Aspect_Entity; Arch : Iir); |