From 8538537c96f380c7822c6101435b1ebfea58f9a9 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 21 May 2022 15:47:38 +0200 Subject: synth-vhdl_stmts: write generic procedure Assign_Aggregate. --- src/synth/synth-vhdl_stmts.ads | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'src/synth/synth-vhdl_stmts.ads') diff --git a/src/synth/synth-vhdl_stmts.ads b/src/synth/synth-vhdl_stmts.ads index 96c7d8c6c..6195f2b5b 100644 --- a/src/synth/synth-vhdl_stmts.ads +++ b/src/synth/synth-vhdl_stmts.ads @@ -149,6 +149,19 @@ package Synth.Vhdl_Stmts is function Synth_Target (Syn_Inst : Synth_Instance_Acc; Target : Node) return Target_Info; + -- Split aggregate assignment into smaller parts. + generic + with procedure Assign (Inst : Synth_Instance_Acc; + Targ_Info : Target_Info; + Val : Valtyp; + Loc : Node); + procedure Assign_Aggregate (Inst : Synth_Instance_Acc; + Target : Node; + Target_Typ : Type_Acc; + Val : Valtyp; + Loc : Node); + + private -- There are 2 execution mode: -- * static: it is like simulation, all the inputs are known, neither -- cgit v1.2.3