Natools

Check-in [74297c4cff]
Login

Check-in [74297c4cff]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

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 2015-03-27 22:09:53.013
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
Side-by-Side Diff Ignore Whitespace Patch
Changes to src/natools-time_statistics-generic_timers.adb.
︙
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;