Natools

Diff
Login

Differences From Artifact [d8b5d3ba16]:

To Artifact [901d3b82b8]:


25
26
27
28
29
30
31
32

33
34
35
36
37
38
39
25
26
27
28
29
30
31

32
33
34
35
36
37
38
39







-
+







      Timer.Start_Time := Now;
      Timer.Running := True;
   end Start;


   not overriding procedure Stop (Timer : in out Manual_Timer) is
   begin
      Timer.Backend.Add (Timer.Start_Time - Now);
      Timer.Backend.Add (Now - Timer.Start_Time);
      Timer.Running := False;
   end Stop;


   not overriding procedure Cancel (Timer : in out Manual_Timer) is
   begin
      Timer.Running := False;
57
58
59
60
61
62
63
64

65
66
67
68
69
57
58
59
60
61
62
63

64
65
66
67
68
69







-
+





      Object.Reported := False;
   end Initialize;


   overriding procedure Finalize (Object : in out Auto_Timer) is
   begin
      if not Object.Reported then
         Object.Backend.Add (Object.Start_Time - Now);
         Object.Backend.Add (Now - Object.Start_Time);
         Object.Reported := True;
      end if;
   end Finalize;

end Natools.Time_Statistics.Generic_Timers;