Natools

      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;

      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;