diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-03-21 18:42:22 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-03-21 18:42:22 +0100 |
commit | 9c96c560b0227c0473cad2760de514de72d5b613 (patch) | |
tree | 972aadab362819baa28ec178f463c41a1cca9c1a /src/grt/grt-stats.adb | |
parent | ffca448651c5b7b0fc5fe6bdbbcf1e0dc13419e1 (diff) | |
download | ghdl-9c96c560b0227c0473cad2760de514de72d5b613.tar.gz ghdl-9c96c560b0227c0473cad2760de514de72d5b613.tar.bz2 ghdl-9c96c560b0227c0473cad2760de514de72d5b613.zip |
Increase the size of Nbr_Resumed_Processes; fix for #378
Diffstat (limited to 'src/grt/grt-stats.adb')
-rw-r--r-- | src/grt/grt-stats.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/grt/grt-stats.adb b/src/grt/grt-stats.adb index 5bc046d00..8827ae222 100644 --- a/src/grt/grt-stats.adb +++ b/src/grt/grt-stats.adb @@ -356,14 +356,16 @@ package body Grt.Stats is Put_I32 (stdout, Ghdl_I32 (Grt.Processes.Get_Nbr_Sensitized_Processes)); New_Line; Put (stdout, "Number of resumed processes: "); - Put_I32 (stdout, Ghdl_I32 (Grt.Processes.Get_Nbr_Resumed_Processes)); + Put_I64 (stdout, Ghdl_I64 (Grt.Processes.Get_Nbr_Resumed_Processes)); New_Line; Put (stdout, "Average number of resumed processes per cycle: "); N := Processes.Nbr_Delta_Cycles + Processes.Nbr_Cycles; if N = 0 then Put (stdout, "-"); else - Put_I32 (stdout, Ghdl_I32 (Processes.Get_Nbr_Resumed_Processes / N)); + Put_I64 + (stdout, + Ghdl_I64 (Processes.Get_Nbr_Resumed_Processes) / Ghdl_I64 (N)); end if; New_Line; end Disp_Stats; |