Overview
| Comment: | time_statistics-generic_timers: fix stupid sign mistake |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
74297c4cffffeae5ecc0033929b4e943 |
| 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 |
Timer.Start_Time := Now;
Timer.Running := True;
end Start;
not overriding procedure Stop (Timer : in out Manual_Timer) is
begin
| | | 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 (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 |
Object.Reported := False;
end Initialize;
overriding procedure Finalize (Object : in out Auto_Timer) is
begin
if not Object.Reported then
| | | 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 (Now - Object.Start_Time);
Object.Reported := True;
end if;
end Finalize;
end Natools.Time_Statistics.Generic_Timers;
|