1 ------------------------------------------------------------------------------
3 -- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS --
5 -- A D A . C A L E N D A R . D E L A Y S --
9 -- Copyright (C) 1991-1994, Florida State University --
10 -- Copyright (C) 1995-2006, AdaCore --
12 -- GNARL is free software; you can redistribute it and/or modify it under --
13 -- terms of the GNU General Public License as published by the Free Soft- --
14 -- ware Foundation; either version 2, or (at your option) any later ver- --
15 -- sion. GNARL is distributed in the hope that it will be useful, but WITH- --
16 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
17 -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
18 -- for more details. You should have received a copy of the GNU General --
19 -- Public License distributed with GNARL; see file COPYING. If not, write --
20 -- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
21 -- Boston, MA 02110-1301, USA. --
23 -- As a special exception, if other files instantiate generics from this --
24 -- unit, or you link this unit with other files to produce an executable, --
25 -- this unit does not by itself cause the resulting executable to be --
26 -- covered by the GNU General Public License. This exception does not --
27 -- however invalidate any other reasons why the executable file might be --
28 -- covered by the GNU Public License. --
30 -- GNARL was developed by the GNARL team at Florida State University. --
31 -- Extensive contributions were provided by Ada Core Technologies, Inc. --
33 ------------------------------------------------------------------------------
35 with System.OS_Primitives;
36 -- Used for Delay_Modes
39 with System.Soft_Links;
40 -- Used for Timed_Delay
43 -- Used for Send_Trace_Info
45 with System.Parameters;
46 -- used for Runtime_Traces
48 package body Ada.Calendar.Delays is
50 package OSP renames System.OS_Primitives;
51 package SSL renames System.Soft_Links;
53 use type SSL.Timed_Delay_Call;
57 -- Earlier, System.Time_Opeations was used to implement the following
58 -- operations. The idea was to avoid sucking in the tasking packages. This
59 -- did not work. Logically, we can't have it both ways. There is no way to
60 -- implement time delays that will have correct task semantics without
61 -- reference to the tasking run-time system. To achieve this goal, we now
64 -----------------------
65 -- Local Subprograms --
66 -----------------------
68 procedure Timed_Delay_NT (Time : Duration; Mode : Integer);
69 -- Timed delay procedure used when no tasking is active
75 procedure Delay_For (D : Duration) is
77 if System.Parameters.Runtime_Traces then
78 Send_Trace_Info (W_Delay, D);
81 SSL.Timed_Delay.all (Duration'Min (D, OSP.Max_Sensible_Delay),
84 if System.Parameters.Runtime_Traces then
85 Send_Trace_Info (M_Delay, D);
93 procedure Delay_Until (T : Time) is
94 D : constant Duration := To_Duration (T);
97 if System.Parameters.Runtime_Traces then
98 Send_Trace_Info (WU_Delay, D);
101 SSL.Timed_Delay.all (D, OSP.Absolute_Calendar);
103 if System.Parameters.Runtime_Traces then
104 Send_Trace_Info (M_Delay, D);
112 procedure Timed_Delay_NT (Time : Duration; Mode : Integer) is
114 OSP.Timed_Delay (Time, Mode);
121 function To_Duration (T : Time) return Duration is
123 -- Since time has multiple representations on different platforms, a
124 -- target independent operation in Ada.Calendar is used to perform
127 return Delays_Operations.To_Duration (T);
131 -- Set up the Timed_Delay soft link to the non tasking version if it has
132 -- not been already set.
134 -- If tasking is present, Timed_Delay has already set this soft link, or
135 -- this will be overriden during the elaboration of
136 -- System.Tasking.Initialization
138 if SSL.Timed_Delay = null then
139 SSL.Timed_Delay := Timed_Delay_NT'Access;
142 end Ada.Calendar.Delays;