1 files changed, 4 insertions, 1 deletions
diff --git a/src/vhdl/iirs_utils.ads b/src/vhdl/iirs_utils.ads
index 43cda1d1a..4117166aa 100644
--- a/src/vhdl/iirs_utils.ads
+++ b/src/vhdl/iirs_utils.ads
@@ -43,6 +43,9 @@ package Iirs_Utils is
    --  Return TRUE if EL in an element of chain CHAIN.
    function Is_In_Chain (Chain : Iir; El : Iir) return Boolean;
 
+   --  Convert a list L to an Flist, and free L.
+   function List_To_Flist (L : Iir_List) return Iir_Flist;
+
    --  Convert an operator node to a name.
    function Get_Operator_Name (Op : Iir) return Name_Id;
 
@@ -219,7 +222,7 @@ package Iirs_Utils is
    --  index_constraint INDEXES.  Return Null_Iir if IDX is out of dimension
    --  bounds, so that this function can be used to iterator over indexes of
    --  a type (or subtype).  Note that IDX starts at 0.
-   function Get_Index_Type (Indexes : Iir_List; Idx : Natural) return Iir;
+   function Get_Index_Type (Indexes : Iir_Flist; Idx : Natural) return Iir;
 
    --  Likewise but for array type or subtype ARRAY_TYPE.
    function Get_Index_Type (Array_Type : Iir; Idx : Natural) return Iir;