diff options
author | Tristan Gingold <tgingold@free.fr> | 2023-03-22 04:33:34 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2023-03-22 04:44:18 +0100 |
commit | 3f9512b68752421200b4fc34645a25a494c01c9f (patch) | |
tree | 4100617d9f3377993e5e5f7fc392370ff1fa77b1 /src/vhdl/vhdl-nodes.adb | |
parent | 19dab14a7452c793dde71bf599202cb7783ba376 (diff) | |
download | ghdl-3f9512b68752421200b4fc34645a25a494c01c9f.tar.gz ghdl-3f9512b68752421200b4fc34645a25a494c01c9f.tar.bz2 ghdl-3f9512b68752421200b4fc34645a25a494c01c9f.zip |
vhdl: add Set/Get_Immediate_Body_Flag (for package instantiation)
Diffstat (limited to 'src/vhdl/vhdl-nodes.adb')
-rw-r--r-- | src/vhdl/vhdl-nodes.adb | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-nodes.adb b/src/vhdl/vhdl-nodes.adb index 4048d2cf2..beff8b527 100644 --- a/src/vhdl/vhdl-nodes.adb +++ b/src/vhdl/vhdl-nodes.adb @@ -2679,6 +2679,22 @@ package body Vhdl.Nodes is Set_Flag1 (Decl, Flag); end Set_Need_Body; + function Get_Immediate_Body_Flag (Decl : Iir) return Boolean is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Immediate_Body_Flag (Get_Kind (Decl)), + "no field Immediate_Body_Flag"); + return Get_Flag5 (Decl); + end Get_Immediate_Body_Flag; + + procedure Set_Immediate_Body_Flag (Decl : Iir; Flag : Boolean) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Immediate_Body_Flag (Get_Kind (Decl)), + "no field Immediate_Body_Flag"); + Set_Flag5 (Decl, Flag); + end Set_Immediate_Body_Flag; + function Get_Macro_Expanded_Flag (Decl : Iir) return Boolean is begin pragma Assert (Decl /= Null_Iir); |