diff options
Diffstat (limited to 'src/vhdl/vhdl-nodes.ads')
| -rw-r--r-- | src/vhdl/vhdl-nodes.ads | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads index 0cd02d637..8601159db 100644 --- a/src/vhdl/vhdl-nodes.ads +++ b/src/vhdl/vhdl-nodes.ads @@ -1074,6 +1074,8 @@ package Vhdl.Nodes is -- Iir_Kind_Package_Instantiation_Body (Short) -- Note: a body is not a declaration, that's the reason why there is no -- _declaration suffix in the name. + -- Note: Package_Instantiation_Body represent the place of the body when + -- it is not immediately after the instantiation. -- -- Get/Set_Parent (Field0) -- Get/Set_Design_Unit (Alias Field0) @@ -1124,6 +1126,9 @@ package Vhdl.Nodes is -- For macro-expanded packages: the body. -- Get/Set_Instance_Package_Body (Field4) -- + -- For macro-expanded packages: true if the body appears immediately after. + -- Get/Set_Immediate_Body_Flag (Flag5) + -- -- Get/Set_Visible_Flag (Flag4) -- -- Get/Set_End_Has_Reserved_Id (Flag8) @@ -8152,6 +8157,10 @@ package Vhdl.Nodes is function Get_Need_Body (Decl : Iir_Package_Declaration) return Boolean; procedure Set_Need_Body (Decl : Iir_Package_Declaration; Flag : Boolean); + -- Field: Flag5 + function Get_Immediate_Body_Flag (Decl : Iir) return Boolean; + procedure Set_Immediate_Body_Flag (Decl : Iir; Flag : Boolean); + -- Field: Flag2 function Get_Macro_Expanded_Flag (Decl : Iir) return Boolean; procedure Set_Macro_Expanded_Flag (Decl : Iir; Flag : Boolean); |