vhdl-nodes_utils: renaming.

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;