diff options
author | Tristan Gingold <tgingold@free.fr> | 2023-01-14 18:48:54 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2023-01-14 19:36:42 +0100 |
commit | 1fe5958609b57e7d134e0cc75713c530339a86dd (patch) | |
tree | 07aecd3ef1315290cfb7a5265f90075550aa1add /src/vhdl/vhdl-nodes.adb | |
parent | 3fd2769300e7ff6e2065dbbbf4cbb44fa11fbda0 (diff) | |
download | ghdl-1fe5958609b57e7d134e0cc75713c530339a86dd.tar.gz ghdl-1fe5958609b57e7d134e0cc75713c530339a86dd.tar.bz2 ghdl-1fe5958609b57e7d134e0cc75713c530339a86dd.zip |
vhdl: add Get/Set_Elaboration_Flag
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 7e938d6e0..3891f3f13 100644 --- a/src/vhdl/vhdl-nodes.adb +++ b/src/vhdl/vhdl-nodes.adb @@ -7028,6 +7028,22 @@ package body Vhdl.Nodes is Set_Flag6 (Decl, Val); end Set_Use_Flag; + function Get_Elaborated_Flag (Decl : Iir) return Boolean is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Elaborated_Flag (Get_Kind (Decl)), + "no field Elaborated_Flag"); + return Get_Flag7 (Decl); + end Get_Elaborated_Flag; + + procedure Set_Elaborated_Flag (Decl : Iir; Val : Boolean) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Elaborated_Flag (Get_Kind (Decl)), + "no field Elaborated_Flag"); + Set_Flag7 (Decl, Val); + end Set_Elaborated_Flag; + function Get_End_Has_Reserved_Id (Decl : Iir) return Boolean is begin pragma Assert (Decl /= Null_Iir); |