diff options
Diffstat (limited to 'src')
| -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; |