diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-05-18 18:38:57 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-05-18 18:38:57 +0200 |
commit | 7c8f4b6b20d42ba69d889f11c3da1f7aca877792 (patch) | |
tree | 8ceff3223f219c3d7c8456fe14b4c8146819ab01 /src/ghdldrv/ghdlsynth.adb | |
parent | e1ef6a6dee1c5b140022f191306931a40ff57cd6 (diff) | |
download | ghdl-7c8f4b6b20d42ba69d889f11c3da1f7aca877792.tar.gz ghdl-7c8f4b6b20d42ba69d889f11c3da1f7aca877792.tar.bz2 ghdl-7c8f4b6b20d42ba69d889f11c3da1f7aca877792.zip |
netlists: add disp_stats.
Diffstat (limited to 'src/ghdldrv/ghdlsynth.adb')
-rw-r--r-- | src/ghdldrv/ghdlsynth.adb | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb index d7d1965fc..dd2b40503 100644 --- a/src/ghdldrv/ghdlsynth.adb +++ b/src/ghdldrv/ghdlsynth.adb @@ -65,7 +65,9 @@ package body Ghdlsynth is -- Control format of the output. Disp_Inline : Boolean := True; Disp_Id : Boolean := True; - Oformat : Out_Format := Format_Default; + Oformat : Out_Format := Format_Default; + + Flag_Stats : Boolean := False; -- Control name encoding of the top-entity. Top_Encoding : Name_Encoding := Name_Asis; @@ -175,6 +177,8 @@ package body Ghdlsynth is else Flags.Verbose := True; end if; + elsif Option = "--stats" then + Cmd.Flag_Stats := True; else Decode_Option (Command_Lib (Cmd), Option, Arg, Res); end if; @@ -449,6 +453,10 @@ package body Ghdlsynth is end if; Disp_Design (Cmd, Format_Vhdl, Res, Config, Inst); + + if Cmd.Flag_Stats then + Netlists.Disp_Stats; + end if; end Perform_Action; function Get_Libghdl_Name return String |