1 files changed, 8 insertions, 0 deletions
diff --git a/src/synth/synth-expr.ads b/src/synth/synth-expr.ads
index f41eb626d..1599eb22e 100644
--- a/src/synth/synth-expr.ads
+++ b/src/synth/synth-expr.ads
@@ -18,6 +18,7 @@
 --  Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
 --  MA 02110-1301, USA.
 
+with Ada.Unchecked_Deallocation;
 with Types; use Types;
 with Netlists; use Netlists;
 with Synth.Values; use Synth.Values;
@@ -35,6 +36,13 @@ package Synth.Expr is
 
    function Bit_Extract (Val : Value_Acc; Off : Uns32) return Value_Acc;
 
+   type Net_Array is array (Int32 range <>) of Net;
+   type Net_Array_Acc is access Net_Array;
+   procedure Free_Net_Array is new Ada.Unchecked_Deallocation
+     (Net_Array, Net_Array_Acc);
+
+   function Concat_Array (Arr : Net_Array_Acc) return Net;
+
    function Synth_Expression_With_Type
      (Syn_Inst : Synth_Instance_Acc; Expr : Node; Expr_Type : Node)
      return Value_Acc;