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;
|