diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-04-22 19:03:49 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-04-22 21:31:28 +0200 |
| commit | 5e3156f249145f7384f0a4fe25486791efd0e10a (patch) | |
| tree | d86da410413ed3f337385a3a8b3ca4177cbd055a /src/synth/synth-insts.adb | |
| parent | 9b40ca4a65f7ffbb2186393ed6db5b054ba7a494 (diff) | |
| download | ghdl-5e3156f249145f7384f0a4fe25486791efd0e10a.tar.gz ghdl-5e3156f249145f7384f0a4fe25486791efd0e10a.tar.bz2 ghdl-5e3156f249145f7384f0a4fe25486791efd0e10a.zip | |
synth: support -v option.
Diffstat (limited to 'src/synth/synth-insts.adb')
| -rw-r--r-- | src/synth/synth-insts.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/synth/synth-insts.adb b/src/synth/synth-insts.adb index bdc9f040a..bcd90f2b2 100644 --- a/src/synth/synth-insts.adb +++ b/src/synth/synth-insts.adb @@ -53,6 +53,7 @@ with Synth.Expr; use Synth.Expr; with Synth.Source; use Synth.Source; with Synth.Debugger; with Synth.Files_Operations; +with Synth.Errors; package body Synth.Insts is Root_Instance : Synth_Instance_Acc; @@ -1467,6 +1468,10 @@ package body Synth.Insts is return; end if; + if Flag_Verbose then + Errors.Info_Msg_Synth (+Entity, "synthesizing %n", (1 => +Entity)); + end if; + -- Save the current architecture, so that files can be open using a -- path relative to the architecture filename. Synth.Files_Operations.Set_Design_Unit (Arch); |