diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-06-28 06:16:41 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-06-28 06:16:41 +0200 |
| commit | 657fcfde5fb93c1311fe5fd2d28146c89852614d (patch) | |
| tree | 8af462440308027eb903d0a912c6c348629cc2a3 /src/grt | |
| parent | 1013d3e7c2af31ce7cf5720d03e39d9861755fdb (diff) | |
| download | ghdl-657fcfde5fb93c1311fe5fd2d28146c89852614d.tar.gz ghdl-657fcfde5fb93c1311fe5fd2d28146c89852614d.tar.bz2 ghdl-657fcfde5fb93c1311fe5fd2d28146c89852614d.zip | |
grt: use 64-bit type for Nbr_Cycles.
Fix #614
Diffstat (limited to 'src/grt')
| -rw-r--r-- | src/grt/grt-processes.ads | 4 | ||||
| -rw-r--r-- | src/grt/grt-stats.adb | 6 |
2 files changed, 4 insertions, 6 deletions
diff --git a/src/grt/grt-processes.ads b/src/grt/grt-processes.ads index 57dac4497..2cd091524 100644 --- a/src/grt/grt-processes.ads +++ b/src/grt/grt-processes.ads @@ -57,9 +57,9 @@ package Grt.Processes is Next_Time : Std_Time; -- Number of delta cycles. - Nbr_Delta_Cycles : Integer; + Nbr_Delta_Cycles : Ghdl_I64; -- Number of non-delta cycles. - Nbr_Cycles : Integer; + Nbr_Cycles : Ghdl_I64; type Process_Type is private; -- type Process_Acc is access all Process_Type; diff --git a/src/grt/grt-stats.adb b/src/grt/grt-stats.adb index 8827ae222..a31ee839e 100644 --- a/src/grt/grt-stats.adb +++ b/src/grt/grt-stats.adb @@ -305,7 +305,7 @@ package body Grt.Stats is -- Disp all statistics. procedure Disp_Stats is - N : Natural; + N : Ghdl_I64; begin Put (stdout, "total: "); Put (stdout, Last_Time - Init_Time); @@ -363,9 +363,7 @@ package body Grt.Stats is if N = 0 then Put (stdout, "-"); else - Put_I64 - (stdout, - Ghdl_I64 (Processes.Get_Nbr_Resumed_Processes) / Ghdl_I64 (N)); + Put_I64 (stdout, Ghdl_I64 (Processes.Get_Nbr_Resumed_Processes) / N); end if; New_Line; end Disp_Stats; |