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/synth/netlists.ads | |
parent | e1ef6a6dee1c5b140022f191306931a40ff57cd6 (diff) | |
download | ghdl-7c8f4b6b20d42ba69d889f11c3da1f7aca877792.tar.gz ghdl-7c8f4b6b20d42ba69d889f11c3da1f7aca877792.tar.bz2 ghdl-7c8f4b6b20d42ba69d889f11c3da1f7aca877792.zip |
netlists: add disp_stats.
Diffstat (limited to 'src/synth/netlists.ads')
-rw-r--r-- | src/synth/netlists.ads | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/synth/netlists.ads b/src/synth/netlists.ads index 2801b8fb0..58900e748 100644 --- a/src/synth/netlists.ads +++ b/src/synth/netlists.ads @@ -327,6 +327,9 @@ package Netlists is -- OFF is the word offset, from 0 to (len - 1) / 32. function Read_Pval (P : Pval; Off : Uns32) return Logic_32; procedure Write_Pval (P : Pval; Off : Uns32; Val : Logic_32); + + -- Display some usage stats on the standard error. + procedure Disp_Stats; private type Sname is new Uns32 range 0 .. 2**30 - 1; No_Sname : constant Sname := 0; |