diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-07-04 18:21:47 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-07-04 18:21:47 +0200 |
| commit | bc88630cb8984977873f6acb7f03a1dd73e92305 (patch) | |
| tree | e4ce0d27f2c0e5919a5d77d6e6d2f240821ae34b /src/synth/synth-expr.ads | |
| parent | ea5dd7ef71213326abe9c30a50de9b9b431c7d6f (diff) | |
| download | ghdl-bc88630cb8984977873f6acb7f03a1dd73e92305.tar.gz ghdl-bc88630cb8984977873f6acb7f03a1dd73e92305.tar.bz2 ghdl-bc88630cb8984977873f6acb7f03a1dd73e92305.zip | |
synth: add concat_array function.
Diffstat (limited to 'src/synth/synth-expr.ads')
| -rw-r--r-- | src/synth/synth-expr.ads | 8 |
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; |