diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-08-22 05:45:48 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-08-27 07:51:47 +0200 |
commit | 1db0e31470e458887db9d7ce04ace11c6f6320b9 (patch) | |
tree | 91c94a45417b555cb7df853f2995bac00d35c30f /src/synth/synth-expr.ads | |
parent | 76f621e49ba6342543e39375e707357cd0ed1b83 (diff) | |
download | ghdl-1db0e31470e458887db9d7ce04ace11c6f6320b9.tar.gz ghdl-1db0e31470e458887db9d7ce04ace11c6f6320b9.tar.bz2 ghdl-1db0e31470e458887db9d7ce04ace11c6f6320b9.zip |
synth: rework partial assignments
Diffstat (limited to 'src/synth/synth-expr.ads')
-rw-r--r-- | src/synth/synth-expr.ads | 9 |
1 files changed, 3 insertions, 6 deletions
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 |