diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-07-15 18:39:57 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-07-15 18:39:57 +0200 |
commit | 4b35c49030a2c4844539be20af3430fe709e9b8e (patch) | |
tree | be02cfe7d415095fc6ed9d7231df05fde7ea86f0 /src/synth/synth-stmts.ads | |
parent | a7ddd4a3ac9e48565dd3a0600358815ecbb5baab (diff) | |
download | ghdl-4b35c49030a2c4844539be20af3430fe709e9b8e.tar.gz ghdl-4b35c49030a2c4844539be20af3430fe709e9b8e.tar.bz2 ghdl-4b35c49030a2c4844539be20af3430fe709e9b8e.zip |
synth: handle choices by range in aggregates.
Diffstat (limited to 'src/synth/synth-stmts.ads')
-rw-r--r-- | src/synth/synth-stmts.ads | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/synth/synth-stmts.ads b/src/synth/synth-stmts.ads index 8b3a68466..257acfdfd 100644 --- a/src/synth/synth-stmts.ads +++ b/src/synth/synth-stmts.ads @@ -18,6 +18,7 @@ -- Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, -- MA 02110-1301, USA. +with Types; use Types; with Vhdl.Nodes; use Vhdl.Nodes; with Synth.Values; use Synth.Values; with Synth.Context; use Synth.Context; @@ -38,4 +39,9 @@ package Synth.Stmts is -- Generate netlists for concurrent statements STMTS. procedure Synth_Concurrent_Statements (Syn_Inst : Synth_Instance_Acc; Stmts : Node); + + -- For iterators. + function In_Range (Rng : Value_Acc; V : Int64) return Boolean; + procedure Update_Index (Rng : Value_Acc; Idx : in out Int64); + end Synth.Stmts; |