Natools

Check-in [74297c4cff]
Login
Overview
Comment:time_statistics-generic_timers: fix stupid sign mistake
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 74297c4cffffeae5ecc0033929b4e943534d0724
User & Date: nat on 2015-03-27 22:09:53
Other Links: manifest | tags
Context
2015-03-29
13:36
README: update with new packages check-in: 7bb056f68d user: nat tags: trunk
2015-03-27
22:09
time_statistics-generic_timers: fix stupid sign mistake check-in: 74297c4cff user: nat tags: trunk
2015-03-19
18:01
s_expressions-special_descriptors: new package that provide empty and erroneous descriptors check-in: df682ad54a user: nat tags: trunk
Changes

Modified src/natools-time_statistics-generic_timers.adb from [d8b5d3ba16] to [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;