From bc88630cb8984977873f6acb7f03a1dd73e92305 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 4 Jul 2019 18:21:47 +0200
Subject: synth: add concat_array function.

---
 src/synth/synth-expr.ads | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/synth/synth-expr.ads')

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;
-- 
cgit v1.2.3