diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-12-26 07:14:25 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-12-26 07:14:25 +0100 |
commit | 8a5fe99b279b1ce1ea7fe4313a24d0f3a399149d (patch) | |
tree | cf14414d9b18d8bb8ec59ac6b89ef8ebc3e28933 /src/vhdl/vhdl-nodes.adb | |
parent | a24642ace5f43509c40b5a94927a1cff865f2ece (diff) | |
download | ghdl-8a5fe99b279b1ce1ea7fe4313a24d0f3a399149d.tar.gz ghdl-8a5fe99b279b1ce1ea7fe4313a24d0f3a399149d.tar.bz2 ghdl-8a5fe99b279b1ce1ea7fe4313a24d0f3a399149d.zip |
vhdl: add Has_Delay_Machanism for optional 'inertial' printing.
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 ffde6a5ab..b71de7906 100644 --- a/src/vhdl/vhdl-nodes.adb +++ b/src/vhdl/vhdl-nodes.adb @@ -6468,6 +6468,22 @@ package body Vhdl.Nodes is Set_Flag11 (Decl, Flag); end Set_Has_Class; + function Get_Has_Delay_Mechanism (Stmt : Iir) return Boolean is + begin + pragma Assert (Stmt /= Null_Iir); + pragma Assert (Has_Has_Delay_Mechanism (Get_Kind (Stmt)), + "no field Has_Delay_Mechanism"); + return Get_Flag2 (Stmt); + end Get_Has_Delay_Mechanism; + + procedure Set_Has_Delay_Mechanism (Stmt : Iir; Flag : Boolean) is + begin + pragma Assert (Stmt /= Null_Iir); + pragma Assert (Has_Has_Delay_Mechanism (Get_Kind (Stmt)), + "no field Has_Delay_Mechanism"); + Set_Flag2 (Stmt, Flag); + end Set_Has_Delay_Mechanism; + function Get_Suspend_Flag (Stmt : Iir) return Boolean is begin pragma Assert (Stmt /= Null_Iir); |