diff options
author | Tristan Gingold <tgingold@free.fr> | 2023-01-04 15:40:33 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2023-01-04 15:40:33 +0100 |
commit | c7f7cdffe62bf0f9939c8f4b86ccb0d4ba870599 (patch) | |
tree | 7680e9d51ae2b264f2417cfe5d7cea95e9315a55 /src/vhdl/vhdl-nodes.adb | |
parent | ad571771adbb27b43a9470f96dcb42db8a51c79a (diff) | |
download | ghdl-c7f7cdffe62bf0f9939c8f4b86ccb0d4ba870599.tar.gz ghdl-c7f7cdffe62bf0f9939c8f4b86ccb0d4ba870599.tar.bz2 ghdl-c7f7cdffe62bf0f9939c8f4b86ccb0d4ba870599.zip |
vhdl-sem_inst: handle suspend_state
Diffstat (limited to 'src/vhdl/vhdl-nodes.adb')
-rw-r--r-- | src/vhdl/vhdl-nodes.adb | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-nodes.adb b/src/vhdl/vhdl-nodes.adb index afeb675cc..7e938d6e0 100644 --- a/src/vhdl/vhdl-nodes.adb +++ b/src/vhdl/vhdl-nodes.adb @@ -7604,4 +7604,36 @@ package body Vhdl.Nodes is Set_Field4 (N, Chain); end Set_Suspend_State_Chain; + function Get_Suspend_State_Last (N : Iir) return Iir is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_Suspend_State_Last (Get_Kind (N)), + "no field Suspend_State_Last"); + return Get_Field5 (N); + end Get_Suspend_State_Last; + + procedure Set_Suspend_State_Last (N : Iir; Chain : Iir) is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_Suspend_State_Last (Get_Kind (N)), + "no field Suspend_State_Last"); + Set_Field5 (N, Chain); + end Set_Suspend_State_Last; + + function Get_Suspend_State_Decl (N : Iir) return Iir is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_Suspend_State_Decl (Get_Kind (N)), + "no field Suspend_State_Decl"); + return Get_Field5 (N); + end Get_Suspend_State_Decl; + + procedure Set_Suspend_State_Decl (N : Iir; Chain : Iir) is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_Suspend_State_Decl (Get_Kind (N)), + "no field Suspend_State_Decl"); + Set_Field5 (N, Chain); + end Set_Suspend_State_Decl; + end Vhdl.Nodes; |