diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-09-18 07:07:27 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-09-18 18:45:25 +0200 |
commit | 1b8c3d64e07584ffcd60f2d13634e6285e3cc7ef (patch) | |
tree | 1d9f47c3896738ec3e4450b796b71d210fe5eada /src/synth/synth-source.ads | |
parent | 48396102d53ed1c10a750a14ff75364d5c533e10 (diff) | |
download | ghdl-1b8c3d64e07584ffcd60f2d13634e6285e3cc7ef.tar.gz ghdl-1b8c3d64e07584ffcd60f2d13634e6285e3cc7ef.tar.bz2 ghdl-1b8c3d64e07584ffcd60f2d13634e6285e3cc7ef.zip |
synth: improve locations tracking.
Diffstat (limited to 'src/synth/synth-source.ads')
-rw-r--r-- | src/synth/synth-source.ads | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/synth/synth-source.ads b/src/synth/synth-source.ads index 2dd081e84..1a2db0209 100644 --- a/src/synth/synth-source.ads +++ b/src/synth/synth-source.ads @@ -18,9 +18,14 @@ -- Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, -- MA 02110-1301, USA. +with Netlists; + with Vhdl.Nodes; use Vhdl.Nodes; package Synth.Source is subtype Syn_Src is Iir; No_Syn_Src : constant Syn_Src := Null_Iir; + + procedure Set_Location (N : Netlists.Net; Src : Syn_Src); + pragma Inline (Set_Location); end Synth.Source; |