diff options
Diffstat (limited to 'src/vhdl/vhdl-nodes_utils.ads')
-rw-r--r-- | src/vhdl/vhdl-nodes_utils.ads | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/src/vhdl/vhdl-nodes_utils.ads b/src/vhdl/vhdl-nodes_utils.ads index ef71e504b..00769a9ee 100644 --- a/src/vhdl/vhdl-nodes_utils.ads +++ b/src/vhdl/vhdl-nodes_utils.ads @@ -55,28 +55,25 @@ package Vhdl.Nodes_Utils is -- the sub-chain. -- Set FIRST and LAST to Null_Iir. - procedure Sub_Chain_Init (First, Last : out Iir); - pragma Inline (Sub_Chain_Init); + procedure Chain_Init (First, Last : out Iir); + pragma Inline (Chain_Init); -- Append element EL to the sub-chain. - procedure Sub_Chain_Append (First, Last : in out Iir; El : Iir); - pragma Inline (Sub_Chain_Append); + procedure Chain_Append (First, Last : in out Iir; El : Iir); + pragma Inline (Chain_Append); -- Append chain to the sub-chain. FIRST_SUB and LAST_SUB must not be -- Null_Iir. - procedure Sub_Chain_Append_Chain (First, Last : in out Iir; - First_Sub, Last_Sub : Iir); - procedure Sub_Chain_Append_Subchain (First, Last : in out Iir; - Sub : Iir); + procedure Chain_Append_Chain (First, Last : in out Iir; + First_Sub, Last_Sub : Iir); + procedure Chain_Append_Subchain (First, Last : in out Iir; + Sub : Iir); -- Return TRUE iff CHAIN is of length one, ie CHAIN is not NULL_IIR -- and chain (CHAIN) is NULL_IIR. function Is_Chain_Length_One (Chain : Iir) return Boolean; pragma Inline (Is_Chain_Length_One); - -- Insert EL after LAST. - procedure Insert (Last : Iir; El : Iir); - -- Insert EL after LAST and set LAST to EL. procedure Insert_Incr (Last : in out Iir; El : Iir); end Vhdl.Nodes_Utils; |