diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-07-01 20:35:00 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-07-01 20:35:00 +0200 |
| commit | 1c59818d0a07f10781abb565e7941e0a3411926f (patch) | |
| tree | b9cea65b45ceff8d01948412ae72085deeae8d7b /src/synth/synth-decls.ads | |
| parent | c675324384a2c1b6904e73bf0ed58687479fb351 (diff) | |
| download | ghdl-1c59818d0a07f10781abb565e7941e0a3411926f.tar.gz ghdl-1c59818d0a07f10781abb565e7941e0a3411926f.tar.bz2 ghdl-1c59818d0a07f10781abb565e7941e0a3411926f.zip | |
synth: destroy iterator after for-loop.
Diffstat (limited to 'src/synth/synth-decls.ads')
| -rw-r--r-- | src/synth/synth-decls.ads | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/synth/synth-decls.ads b/src/synth/synth-decls.ads index 0a5590b35..aaae102c3 100644 --- a/src/synth/synth-decls.ads +++ b/src/synth/synth-decls.ads @@ -22,6 +22,13 @@ with Vhdl.Nodes; use Vhdl.Nodes; with Synth.Context; use Synth.Context; package Synth.Decls is + -- Get the type of DECL iff it is standalone (not an already existing + -- subtype). + function Get_Declaration_Type (Decl : Node) return Node; + + procedure Synth_Subtype_Indication + (Syn_Inst : Synth_Instance_Acc; Atype : Node); + -- Elaborate the type of DECL. procedure Synth_Declaration_Type (Syn_Inst : Synth_Instance_Acc; Decl : Node); |