From 1db0e31470e458887db9d7ce04ace11c6f6320b9 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 22 Aug 2019 05:45:48 +0200 Subject: synth: rework partial assignments --- src/synth/synth-expr.ads | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'src/synth/synth-expr.ads') diff --git a/src/synth/synth-expr.ads b/src/synth/synth-expr.ads index 06b824fe2..9292ab105 100644 --- a/src/synth/synth-expr.ads +++ b/src/synth/synth-expr.ads @@ -18,9 +18,11 @@ -- 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 Netlists.Utils; use Netlists.Utils; + with Synth.Source; with Synth.Values; use Synth.Values; with Synth.Context; use Synth.Context; @@ -51,11 +53,6 @@ package Synth.Expr is function Bit_Extract (Val : Value_Acc; Off : Uns32; Loc : Node) 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 -- cgit v1.2.3