diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-07-09 06:47:37 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-07-18 19:19:57 +0200 |
| commit | 297b0581e0e629602234f0bb0cbcbd435d813192 (patch) | |
| tree | 4328dc1099b18f78341bdb584a40ac3be8135ed7 /src/vhdl/vhdl-nodes.ads | |
| parent | 00c0959b01803f6db71e6380a6ec760a98f7b5cd (diff) | |
| download | ghdl-297b0581e0e629602234f0bb0cbcbd435d813192.tar.gz ghdl-297b0581e0e629602234f0bb0cbcbd435d813192.tar.bz2 ghdl-297b0581e0e629602234f0bb0cbcbd435d813192.zip | |
vhdl: fix ownership for recors subtypes.
Diffstat (limited to 'src/vhdl/vhdl-nodes.ads')
| -rw-r--r-- | src/vhdl/vhdl-nodes.ads | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads index 5c2ed4886..629f4671e 100644 --- a/src/vhdl/vhdl-nodes.ads +++ b/src/vhdl/vhdl-nodes.ads @@ -2000,8 +2000,6 @@ package Vhdl.Nodes is -- Record subtype definition which defines this constraint. -- Get/Set_Parent (Field0) -- - -- Get/Set_Type (Field1) - -- -- For Owned_Elements_Chain, so that the node has an owner. -- Get/Set_Chain (Field2) -- @@ -2011,7 +2009,13 @@ package Vhdl.Nodes is -- the first record element, increasing by one for each successive element. -- Get/Set_Element_Position (Field4) -- + -- Get/Set_Subtype_Indication (Field5) + -- + -- Get/Set_Type (Field1) + -- -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Is_Ref (Flag12) -- Iir_Kind_Attribute_Declaration (Short) -- @@ -2912,7 +2916,7 @@ package Vhdl.Nodes is -- -- Get/Set_Constraint_State (State2) -- - -- Always false for record type: elements are owned through + -- Always true for record subtype: elements are owned through -- Owned_Elements_Chain -- Get/Set_Is_Ref (Flag12) |