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.ads | |
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.ads')
-rw-r--r-- | src/vhdl/vhdl-nodes.ads | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads index f16d7302b..6c7e8f8c8 100644 --- a/src/vhdl/vhdl-nodes.ads +++ b/src/vhdl/vhdl-nodes.ads @@ -1909,7 +1909,11 @@ package Vhdl.Nodes is -- -- Get/Set_Chain (Field2) -- + -- First suspend statement. -- Get/Set_Suspend_State_Chain (Field4) + -- + -- Last suspend statement (to help instantiation). + -- Get/Set_Suspend_State_Last (Field5) -- Iir_Kind_Constant_Declaration (Medium) -- Iir_Kind_Iterator_Declaration (Short) @@ -4226,6 +4230,9 @@ package Vhdl.Nodes is -- -- Get/Set_Suspend_State_Index (Field3) -- + -- Corresponding suspend state declaration. + -- Get/Set_Suspend_State_Decl (Field5) + -- -- Get/Set_Suspend_State_Chain (Field4) ---------------- @@ -9642,11 +9649,21 @@ package Vhdl.Nodes is function Get_Foreign_Node (N : Iir) return Int32; procedure Set_Foreign_Node (N : Iir; En : Int32); + -- State index for the statement. -- Field: Field3 (uc) function Get_Suspend_State_Index (N : Iir) return Int32; procedure Set_Suspend_State_Index (N : Iir; Num : Int32); + -- Chain of suspend state statement. -- Field: Field4 Forward_Ref function Get_Suspend_State_Chain (N : Iir) return Iir; procedure Set_Suspend_State_Chain (N : Iir; Chain : Iir); + + -- Field: Field5 Forward_Ref + function Get_Suspend_State_Last (N : Iir) return Iir; + procedure Set_Suspend_State_Last (N : Iir; Chain : Iir); + + -- Field: Field5 Ref + function Get_Suspend_State_Decl (N : Iir) return Iir; + procedure Set_Suspend_State_Decl (N : Iir; Chain : Iir); end Vhdl.Nodes; |