Differences From Artifact [cc17f030d4]:

• File src/natools-cron.ads — part of check-in [04a8a351dd] at 2014-06-18 17:57:51 on branch trunk — cron: add support for synchronized events (user: nat size: 5962)

To Artifact [1c2494520d]:

• File src/natools-cron.ads — part of check-in [3b9912ed66] at 2014-07-19 18:27:21 on branch trunk — Add pragma Preelaborable_Initialization throughout the code (user: nat size: 6015)

42
43
44
45
46
47
48

49
50
51
52
53
54
55

42
43
44
45
46
47
48
49
50
51
52
53
54
55
56

+

   type Periodic_Time is record
      Origin : Ada.Calendar.Time;
      Period : Duration;
   end record;


   type Cron_Entry is tagged limited private;
   pragma Preelaborable_Initialization (Cron_Entry);

   function Create
     (Time : in Periodic_Time;
      Callback : in Cron.Callback'Class)
     return Cron_Entry;
      --  Create a new entry with the given parameters