diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-05-21 15:47:38 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-05-21 15:47:38 +0200 |
| commit | 8538537c96f380c7822c6101435b1ebfea58f9a9 (patch) | |
| tree | 1689509dc81d1acf58a953cad0558bda60b0d952 /src/synth/synth-vhdl_stmts.ads | |
| parent | 644dbe16d9c55def0fef1df1c333ff9bd8da52f2 (diff) | |
| download | ghdl-8538537c96f380c7822c6101435b1ebfea58f9a9.tar.gz ghdl-8538537c96f380c7822c6101435b1ebfea58f9a9.tar.bz2 ghdl-8538537c96f380c7822c6101435b1ebfea58f9a9.zip | |
synth-vhdl_stmts: write generic procedure Assign_Aggregate.
Diffstat (limited to 'src/synth/synth-vhdl_stmts.ads')
| -rw-r--r-- | src/synth/synth-vhdl_stmts.ads | 13 |
1 files changed, 13 insertions, 0 deletions
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 |