support of ia64 added, more stats added

1 files changed, 17 insertions, 0 deletions

diff --git a/translate/grt/grt-processes.adb b/translate/grt/grt-processes.adb
index c0dee2bcb..1e8b183ef 100644
--- a/translate/grt/grt-processes.adb
+++ b/translate/grt/grt-processes.adb
@@ -134,6 +134,18 @@ package body Grt.Processes is
       return Natural (Process_Table.Last);
    end Get_Nbr_Processes;
 
+   function Get_Nbr_Sensitized_Processes return Natural
+   is
+      Res : Natural := 0;
+   begin
+      for I in Process_Table.First .. Process_Table.Last loop
+         if Process_Table.Table (I).State = State_Sensitized then
+            Res := Res + 1;
+         end if;
+      end loop;
+      return Res;
+   end Get_Nbr_Sensitized_Processes;
+
    procedure Process_Register (This : System.Address;
                                Proc : System.Address;
                                Ctxt : Rti_Context;
@@ -616,6 +628,7 @@ package body Grt.Processes is
       Update_Signals;
       if Options.Flag_Stats then
          Stats.End_Update;
+         Stats.Start_Resume;
       end if;
 
       --  d) For each process P, if P is currently sensitive to a signal S and
@@ -659,6 +672,10 @@ package body Grt.Processes is
          end;
       end loop;
 
+      if Options.Flag_Stats then
+         Stats.End_Resume;
+      end if;
+
       --  e) Each nonpostponed that has resumed in the current simulation cycle
       --     is executed until it suspends.
       Status := Run_Processes (Postponed => False);