diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-06-30 18:41:32 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-06-30 19:34:50 +0200 |
| commit | aedbcc715e099335d28e1e06934e75263bd335e9 (patch) | |
| tree | e360d3edab22d7fe2ab0ed8fe2bdef06bfe1e979 /src/vhdl/vhdl-nodes.ads | |
| parent | e2d751d624eb1319e654d9504b36d43eff65c8fb (diff) | |
| download | ghdl-aedbcc715e099335d28e1e06934e75263bd335e9.tar.gz ghdl-aedbcc715e099335d28e1e06934e75263bd335e9.tar.bz2 ghdl-aedbcc715e099335d28e1e06934e75263bd335e9.zip | |
vhdl-nodes: make Subtype_Indication Maybe_Ref. For #641
Diffstat (limited to 'src/vhdl/vhdl-nodes.ads')
| -rw-r--r-- | src/vhdl/vhdl-nodes.ads | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads index 37e155c5d..02d5866ef 100644 --- a/src/vhdl/vhdl-nodes.ads +++ b/src/vhdl/vhdl-nodes.ads @@ -1222,6 +1222,8 @@ package Vhdl.Nodes is -- Get/Set_After_Drivers_Flag (Flag5) -- -- Get/Set_Use_Flag (Flag6) + -- + -- Get/Set_Is_Ref (Flag12) -- Iir_Kind_Non_Object_Alias_Declaration (Short) -- @@ -1327,6 +1329,8 @@ package Vhdl.Nodes is -- Get/Set_Visible_Flag (Flag4) -- -- Get/Set_Use_Flag (Flag6) + -- + -- Get/Set_Is_Ref (Flag12) -- Iir_Kind_Nature_Declaration (Short) -- @@ -1876,7 +1880,6 @@ package Vhdl.Nodes is -- -- Get/Set_Use_Flag (Flag6) -- - -- Only for Iir_Kind_Constant_Declaration: -- Get/Set_Is_Ref (Flag12) -- -- Get/Set_Expr_Staticness (State1) @@ -1958,6 +1961,8 @@ package Vhdl.Nodes is -- Get/Set_Expr_Staticness (State1) -- -- Get/Set_Name_Staticness (State2) + -- + -- Get/Set_Is_Ref (Flag12) -- Iir_Kind_Element_Declaration (Short) -- @@ -1987,6 +1992,8 @@ package Vhdl.Nodes is -- Get/Set_Has_Identifier_List (Flag3) -- -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Is_Ref (Flag12) -- Iir_Kind_Record_Element_Constraint (Short) -- @@ -4208,6 +4215,8 @@ package Vhdl.Nodes is -- Get/Set_Allocator_Designated_Type (Field2) -- -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Is_Ref (Flag12) ------------ -- Names -- @@ -4322,6 +4331,8 @@ package Vhdl.Nodes is -- Get/Set_Expr_Staticness (State1) -- -- Get/Set_Name_Staticness (State2) + -- + -- Get/Set_Is_Ref (Flag12) -- Iir_Kind_Selected_By_All_Name (Short) -- @@ -7668,8 +7679,8 @@ package Vhdl.Nodes is -- The subtype indication of a declaration. If several declarations share -- the same subtype_indication like in: -- variable a, b : integer := 5; - -- then only the first declaration has a subtype_indication. - -- Field: Field5 + -- then only the first declaration is the owner of the subtype_indication. + -- Field: Field5 Maybe_Ref function Get_Subtype_Indication (Target : Iir) return Iir; procedure Set_Subtype_Indication (Target : Iir; Atype : Iir); |